Bonjour,
Je cherche une macro pour sélectionner le fichier de données de mon choix (format EXCEL 2007) dans un répertoire ciblé à partir d'une requête que j'ai créée avec MS QUERY et qui resterait toujours la même.
Jusqu'à présent j'allais directement dans "Propriétés des données externes" et je changeais le fichier cible dans la chaine de connexion ce qui fonctionne très bien mais reste un peu fastidieux...
Voilà la macro que j'ai créée mais qui ne fonctionne pas :
Sub IMPORTBD()
Dim Fichiercible As String
Worksheets("EXTRACT").Activate
Fichiercible = Cells(5, 1).Value
With ActiveWorkbook.Connections("REQUETEEXTRACT").ODBCConnection
.BackgroundQuery = True
.CommandText = Array( _
"SELECT `EXPORT$`.Numcompte, `EXPORT$`.Date, `EXPORT$`.Mois, `EXPORT$`.Journal, `EXPORT$`.Colonne4, `EXPORT$`.Intitulé, `EXPORT$`.Débit, `EXPORT$`.Crédit, `EXPORT$`.Solde" & Chr(13) & "" & Chr(10) & "FROM `EXPORT$` `EXPORT$`" _
)
.CommandType = xlCmdSql
.Connection = "ODBC;DSN=Excel Files;DBQ=C:\Users\PN\Documents\PROFESSIONNEL\CONCEPTION TBORD\FICHIERS EXPORT\Fichiercible;DefaultDir=C:\Users\PN\Documents\PROFESSIONNEL\CONCEPTION TBORD\&FICHIERS EXPORT;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;"
.RefreshOnFileOpen = False
.SavePassword = False
.SourceConnectionFile = ""
.SourceDataFile = ""
.ServerCredentialsMethod = xlCredentialsMethodIntegrated
.AlwaysUseConnectionFile = False
End With
End Sub
Merci par avance si quelqu'un d'entre-vous a une piste...
Je cherche une macro pour sélectionner le fichier de données de mon choix (format EXCEL 2007) dans un répertoire ciblé à partir d'une requête que j'ai créée avec MS QUERY et qui resterait toujours la même.
Jusqu'à présent j'allais directement dans "Propriétés des données externes" et je changeais le fichier cible dans la chaine de connexion ce qui fonctionne très bien mais reste un peu fastidieux...
Voilà la macro que j'ai créée mais qui ne fonctionne pas :
Sub IMPORTBD()
Dim Fichiercible As String
Worksheets("EXTRACT").Activate
Fichiercible = Cells(5, 1).Value
With ActiveWorkbook.Connections("REQUETEEXTRACT").ODBCConnection
.BackgroundQuery = True
.CommandText = Array( _
"SELECT `EXPORT$`.Numcompte, `EXPORT$`.Date, `EXPORT$`.Mois, `EXPORT$`.Journal, `EXPORT$`.Colonne4, `EXPORT$`.Intitulé, `EXPORT$`.Débit, `EXPORT$`.Crédit, `EXPORT$`.Solde" & Chr(13) & "" & Chr(10) & "FROM `EXPORT$` `EXPORT$`" _
)
.CommandType = xlCmdSql
.Connection = "ODBC;DSN=Excel Files;DBQ=C:\Users\PN\Documents\PROFESSIONNEL\CONCEPTION TBORD\FICHIERS EXPORT\Fichiercible;DefaultDir=C:\Users\PN\Documents\PROFESSIONNEL\CONCEPTION TBORD\&FICHIERS EXPORT;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;"
.RefreshOnFileOpen = False
.SavePassword = False
.SourceConnectionFile = ""
.SourceDataFile = ""
.ServerCredentialsMethod = xlCredentialsMethodIntegrated
.AlwaysUseConnectionFile = False
End With
End Sub
Merci par avance si quelqu'un d'entre-vous a une piste...
