Ouvrir fichier texte probleme formule

Résolu/Fermé
vanhoa - 24 déc. 2013 à 02:05
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 - 24 déc. 2013 à 11:07
Bonjour,

Je souhaite ouvrir un fichier texte (un fichier PRN plus exactement).
Apres quelques recherches sur les forums et avec l'aide Excel, j'en arrive a la formule suivante:

Sub ouvre()

Dim fileToOpen As String
fileToOpen = Application.GetOpenFilename("All file (*.*),*.*")
If fileToOpen <> False Then
    Workbooks.OpenText filemame:=fileToOpen
End If

End Sub


et j'ai le message suivant qui apparait:

Compile error:
Named argument not found

J'ai egalement essaye:

Sub ouvre()

Dim fileToOpen As String
fileToOpen = Application.GetOpenFilename("All file (*.*),*.*")
If fileToOpen <> False Then
    Workbooks.OpenText (fileToOpen)
End If

End Sub


Je n'arrive vraiment pas a trouver le code pour pouvoir ouvir ce fichier :-(
C'est pourquoi je vous demande votre aide :-)

Merci beaucoup!

vanhoa


A voir également:

1 réponse

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
24 déc. 2013 à 08:15
Bonjour,

Sub ouvre()
Dim fileToOpen
fileToOpen = Application.GetOpenFilename("All file (*.*),*.*")
If fileToOpen <> False Then
Workbooks.OpenText Filename:=fileToOpen
End If
End Sub
1
super merci beaucoup!

mais par contre je n'ai pas compris mon erreur. Est-ce que c'est juste parce que j'ai declare ma variable en String? Pourtant le nom du fichier doit bien etre considere comme du texte non?

Merci encore,

vanhoa
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
24 déc. 2013 à 11:07
Re,

Si vous declarez votre variable en string, le test fileToOpen <> False ne peut pas marcher. A la limite: fileToOpen <> "Faux" marche. Mais en declarant en variant tout est ok
0