Bonjour,
Je n'arrive pas à trouver la solution à mon problème,
Lorsque je souhaite transferer mon fichier texte vers excel, j'ai un message d'erreur
Erreur d'éxécution '1004' "Impossible de trouver le fichier texte pour l'actualisation de cette plage...."
Et la macro se bloque sur cette ligne :
J'ai l'impression que j'ai un souci avec le refresh...
Si quelqu'un à la solution ça serait TOP
Voici le code complet :
Je n'arrive pas à trouver la solution à mon problème,
Lorsque je souhaite transferer mon fichier texte vers excel, j'ai un message d'erreur
Erreur d'éxécution '1004' "Impossible de trouver le fichier texte pour l'actualisation de cette plage...."
Et la macro se bloque sur cette ligne :
VB:
Worksheets("TXTtoXLS").QueryTables.Add("TEXT;" & FichierTXT, Cells(1, 1)).RefreshJ'ai l'impression que j'ai un souci avec le refresh...
Si quelqu'un à la solution ça serait TOP
Voici le code complet :
VB:
Sub test()
Sheets("TXTtoXLS").Select
Cells(1, 1).Select
Dim FichierTXT
Dim numResult As Integer
FichierTXT = Dir("C:\Users\m422115\Desktop\prognos\", 0)
While FichierTXT <> ""
numResult = numResult + 1
Worksheets("TXTtoXLS").QueryTables.Add("TEXT;" & FichierTXT, Cells(1, 1)).Refresh
FichierTXT = Dir
Wend
End Sub