Application.Dialogs(wdDialogFileFind).Show sous word

[bigfootspi]

Bonjour à tous,

autant dire tout de suite, je debute en VBA

alors, sous word, via une macro, je voudrais recuperer le chemin et nom d'un fichier xls.

pour se faire, je lance la commande suivante :

Code :

Application.Dialogs(wdDialogFileFind).Show

jusque là, tout va bien, la boite de dialog s'affiche.

par contre, quand je clique sur un fichier, rien ne s'affiche dans le champ "Nom de fichier" de ma boite de dialog.

et pour finir, comment recuperer le nom et le chemin du fichier selectionné ???

Merci d'avance pour votre aide.

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

Perso, j'utilise les FileFialog.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test001()
Dim oDlg As FileDialog
 
Set oDlg = Application.FileDialog(msoFileDialogFilePicker)
With oDlg
    .InitialFileName = "c:\temp\"
    .Show
End With
 
Debug.Print oDlg.SelectedItems(1)
 
 
End Sub

Essaie ce code.

[bigfootspi]

Merci, ca fonctionne impec !
par contre, est-il normal que, quand je clique sur un fichier, son nom n'apparait pas dans le champ nom de fichier ?

sinon, tout va bien.

[Heureux-oli]

Oui, c'est normal, du moins, je l'ai aussi

[bigfootspi]

argf !
cela fonctionne sur Word 2003 mais a voir, cela ne fonctionne pas sous le 2000
il me retourne une erreur m'indiquant que "As FileDialog" est un type inconnu.

une idée ?
un bibliotheque à ajouter ?

Edit :
en utilisant mon chere ami google, je vois que le filedialog n'est accessible qu'a partir de la version 2002 d'office...

y a t'il un autre moyen ?

[ruzakruzak]

Juste un grand 'Merci', après avoir gaspillé 2 heures à essayer de trouver comment récupérer cette info sous Word.

Pour Excel j'avais l'excellent GetOpenFileName en mémoire, et je n'arrivais pas à trouver d'équivalent...

[TiJean2910]

Bonjour,
Cela marche bien pour moi (Word 2003), merci!