Bonjour.
Je cherche à automatiser une procédure que mon équipe effectue sous Excel.
Nous actualisons la source de donnée excel qui est un fichier *.txt puis une fois rafraîchies on traite nos données et pour finir on change de fichier source. Le tout pour X fichiers

Mon problème est que je n'arrive pas à faire mon Refresh aprés avoir changé le SourceDataFile ( si c'est bien lui à change car j’hésite avec SourceConnectionFile)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim Temp As String
Dim chemin As String
 
chemin = "\\mon\chemin"
 
 
    Temp = Dir(chemin & "\*.txt", vbNormal)
    Do
        If Temp = "" Then
            Exit Do
        Else
            Sheets("FLUX-TMP").Select
            Selection.QueryTable.SourceDataFile = chemin & "\" & Temp
 
            Selection.QueryTable.Refresh
            'ici mon traitement 
 
      End If
        Temp = Dir
    Loop
 
End Sub
je reste humble face au VBA que je ne maîtrise pas à 100% (surtout avec Excel).

Merci pour vos réponses.