oConnection.Name = "Connexion 1"

oConnection.Reusable = True

oConnection.ConnectImmediate = False

oConnection.DataSource = "C:\Inetpub\wwwroot\upload\Maj.xls"

oConnection.UseTrustedConnection = False

oConnection.UseDSL = False

'If you have a password for this connection, please uncomment and add your password below.

'oConnection.Password = "<put the password here>"

oConnection = Nothing

'------------- a new connection defined below.

'For security purposes, the password is never scripted

oConnection = goPackage.Connections.New("SQLOLEDB")

oConnection.ConnectionProperties.Item("Integrated Security").Value = "SSPI"

oConnection.ConnectionProperties.Item("Persist Security Info").Value = True

oConnection.ConnectionProperties.Item("Initial Catalog").Value = "Bd"

oConnection.ConnectionProperties.Item("Data Source").Value = "SERVEUR"

oConnection.ConnectionProperties.Item("Application Name").Value = "Assistant Importation/exportation DTS (Data Transformation Services)"

oConnection.Name = "Connexion 2"

oConnection.Reusable = True

oConnection.ConnectImmediate = False

oConnection.DataSource = "SERVEUR"

oConnection.Catalog = "exclus"

oConnection.UseTrustedConnection = True

oConnection.UseDSL = False

'If you have a password for this connection, please uncomment and add your password below.

'oConnection.Password = "<put the password here>"

oConnection = Nothing

'---------------------------------------------------------------------------

' create package steps information

'---------------------------------------------------------------------------

Dim oStep As DTS.Step2

Dim oPrecConstraint As DTS.PrecedenceConstraint

'------------- a new step defined below

oStep.Name = "Copy Data from Feuil1$ to [Bd].[dbo].[Bd] étape"

oStep.Description = "Copy Data from Feuil1$ to [Bd].[dbo].[Bd] étape"

oStep.TaskName = "Copy Data from Feuil1$ to [Bd].[dbo].[Bd] Tâche"

oStep.CommitSuccess = False

oStep.RollbackFailure = False

oStep.ScriptLanguage = "VBScript"

oStep.AddGlobalVariables = True

oStep.CloseConnection = False

oStep.ExecuteInMainThread = True

oStep.IsPackageDSORowset = False

oStep.JoinTransactionIfPresent = False

oStep.DisableStep = False

oStep.FailPackageOnError = False

oStep = Nothing

'---------------------------------------------------------------------------

' create package tasks information

'---------------------------------------------------------------------------

'------------- call Task_Sub1 for task Copy Data from Feuil1$ to [exclus].[dbo].[exclus] Tƒche (Copy Data from Feuil1$ to [exclus].[dbo].[exclus] Tƒche)

Call Task_Sub1(goPackage)

'---------------------------------------------------------------------------

' Save or execute package

'---------------------------------------------------------------------------

'goPackage.SaveToSQLServer "(local)", "sa", ""

'to save a package instead of executing it, comment out the executing package line above and uncomment the saving package line

goPackage = Nothing

goPackageOld = Nothing

End Sub

'-----------------------------------------------------------------------------

' error reporting using step.GetExecutionErrorInfo after execution

'-----------------------------------------------------------------------------

Public Sub tracePackageError(ByVal oPackage As DTS.Package)

Dim ErrorCode As Long

Dim ErrorSource As String

Dim ErrorDescription As String

Dim ErrorHelpFile As String

Dim ErrorHelpContext As Long

Dim ErrorIDofInterfaceWithError As String

Dim i As Integer

For i = 1 To oPackage.Steps.Count

If oPackage.Steps(i).ExecutionResult = DTSStepExecResult_Failure Then

MsgBox(oPackage.Steps(i).Name & " failed" & vbCrLf & ErrorSource & vbCrLf & ErrorDescription)

End If

Next i

End Sub

'------------- define Task_Sub1 for task Copy Data from Feuil1$ to [exclus].[dbo].[exclus] Tƒche (Copy Data from Feuil1$ to [exclus].[dbo].[exclus] Tƒche)

Public Sub Task_Sub1(ByVal goPackage As Object)

Dim oTask As DTS.Task

Dim oLookup As DTS.Lookup

Dim oCustomTask1 As DTS.DataPumpTask2

oTask = goPackage.Tasks.New("DTSDataPumpTask")

'' un appel à un constructeur est valide uniquement en tant que ''première instruction dans un constructeur d'instance

oTask.Name = "Copy Data from Feuil1$ to [Bd].[dbo].[Bd] Tâche"

oCustomTask1.Name = "Copy Data from Feuil1$ to [Bd].[dbo].[Bd] Tâche"

oCustomTask1.Description = "Copy Data from Feuil1$ to [Bd].[dbo].[Bd] Tâche"

oCustomTask1.SourceSQLStatement = "select `nom`,`prenom`,`surnom`,`dn........ from `Feuil1$`"

oCustomTask1.DestinationObjectName = "[exclus].[dbo].[exclus]"

oCustomTask1.UseFastLoad = True

oCustomTask1.ExceptionFileColumnDelimiter = "|"

oCustomTask1.AllowIdentityInserts = False

Call oCustomTask1_Trans_Sub1(oCustomTask1)

oCustomTask1 = Nothing

oTask = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub1(ByVal oCustomTask1 As Object)

Dim oTransformation As DTS.Transformation2

Dim oTransProps As DTS.Properties

Dim oColumn As DTS.Column

oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")

'' un appel à un constructeur est valide uniquement en tant que ''première instruction dans un constructeur d'instance
oTransformation.Name = "DirectCopyXform"

oTransformation.ForceBlobsInMemory = False

oColumn = oTransformation.SourceColumns.New("nom", 1)

Le reste il est Content !!!