OVH Cloud OVH Cloud

nom fichier avec filetoopen

2 réponses
Avatar
vincent
bonjour,

je cherche le moyen d'extraire le nom du fichier =E0 partir=20
de la variable : filetoopen.

Ma macro ouvre un notre fichier mais elle doit se=20
pourduivre dans celui-ci. Il me faut donc le nom pour=20
pouvoir faire un Workbooks(Nom_fichier).activate

merci pour votre aide.

Vincent

2 réponses

Avatar
Laurent M
Salut Vincent,

Quelque chose comme ça peut-être?

...
Workbooks.open "C:temptoto.xls")
X=Currentworkbook.name
...
...
...
Workbooks(X).activate
...


A+

Laurent
Avatar
modeste
bonjour,
voir dans l'aide : getopenfilename

essaie plutot:

fichierOuvrir = Application.GetOpenFilename("Fichiers
texte (*.txt), _
*.txt")
If fichierOuvrir <> False Then
MsgBox "Ouvrir " & fichierOuvrir
End If
Cet exemple affiche la boîte de dialogue Ouvrir en
désignant les fichiers texte comme filtre de fichier. Si
l'utilisateur sélectionne un nom de fichier, le code
affiche celui-ci dans un message.

@+

-----Message d'origine-----
bonjour,

je cherche le moyen d'extraire le nom du fichier à partir
de la variable : filetoopen.

Ma macro ouvre un notre fichier mais elle doit se
pourduivre dans celui-ci. Il me faut donc le nom pour
pouvoir faire un Workbooks(Nom_fichier).activate

merci pour votre aide.

Vincent
.