Macro pour selectionner automatiquement fichier de données avec MS Query

  • Initiateur de la discussion Initiateur de la discussion pat59
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pat59

XLDnaute Nouveau
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...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour