Vba: changer la manière d'ouvrir un fichier
Johny
-
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Vba: changer la manière d'ouvrir un fichier
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Vba range avec variable ✓ - Forum VB / VBA
- Vba inputbox - Astuces et Solutions
- Vba find - Astuces et Solutions