Ouvrir fichier texte probleme formule

Résolu
vanhoa -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
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

1 réponse

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour, 

    Sub ouvre()
        Dim fileToOpen
        fileToOpen = Application.GetOpenFilename("All file (*.*),*.*")
        If fileToOpen <> False Then
            Workbooks.OpenText Filename:=fileToOpen
        End If
    End Sub
    1
    1. vanhoa
       
      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
    2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      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

Discussions similaires

Ouvrir un fichier .pub sans Publisher
baissaoui -
baissaoui -

0 réponse