Vba: changer la manière d'ouvrir un fichier

Johny -  
gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Ma question concerne vba sous excel.
Tout d'abord je ne programme pas du tout. On me demande de changer un code fait par un informaticien qui était là avant.

Pour l'instant, excel ouvre un fichier par l'application application.getopenfilename, une boite de dialogue apparait et demande où aller chercher le fichier txt. La requête qu'on m'a formulé consiste à ouvrir ce fichier de manière automatique.

Voici le code d'origine:

'Recherche du fichier log contenant les données de FMC
myCurrDir = CurDir
ChDrive "U"
MyFileList = Application.GetOpenFilename("Text Files (*.txt),*.txt", , "Fichier texte des données de GPMS? :", , True)
If Not IsArray(MyFileList) Then
' l'utilisateur a choisi le bouton cancel de la boite de dialogue
'car GetOpenFilename renvoie False si on choisi Cancel
End
End If

J'ai essayé de le remplacer simplement par:

MyFileList = Workbooks.OpenText Filename:="\\blabla\Et\Oral\Wile\Wile.txt"

Cela marche si j'enlève MyFileList mais ça bloque plus tard. Avec MyFileList, on me renvoie une erreur "Expected: End of statement"

Quelqu'un peut me dire si je peux faire ça simplement sans pourrir tout le code? :)

Merci d'avance
Configuration: Windows 2003
Internet Explorer 7.0

1 réponse

gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 742
 
bonjour

Effectivement tu peux tout à fait mettre :
'Recherche du fichier log contenant les données de FMC

Workbooks.OpenText Filename:="\\blabla\Et\Oral\Wile\Wile.txt"

tout le reste est lié à l'ouverture de la fenêtre de dialogue et n'a plus lieu d'être.
0