Discussion :

[vanhoa]

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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
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

[SfJ5Rpw8]

Bonjour ,

A premiėre vue , dans le premier cas il y as une erreur sur le nom du parametre fileName , et dans le deuxiėme cas pour lequel tu as oubliė de nous reporter le message d'erreur il y as des parenthėse inutiles..

[vanhoa]

Exact, desole.

l'erreur pour mon 2eme code est le suivant:
Run-time error '13':
Type mismatch

Merci pour votre aide :-)

vanhoa

[SfJ5Rpw8]

re,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim fileToOpen As Variant

[vanhoa]

Ca marche tres bien, merci beaucoup!

Mais pourquoi je ne peux pas le declarer en tant que String, car normalement le nom du fichier doit etre considere comme etant du texte non?

Merci encore!

vanhoa

[AlainTech]

Bonjour,

Car False n'est pas une String...