[VBA] Equivalent du .GetOpenFilename dans Word

Equivalent du .GetOpenFilename dans Word [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 14-01-2011 à 16:14:41    

Bonjour,
 
J'aurais besoin de l'equivalent de la fonction .GetOpenFilename, utilisable dans Excel, afin de pouvoir trouver le chemin d'un fichier, dans une macro Word cette fois, et je me casse la tete la dessus...
Ce serait pour l'utiliser comme ceci :
 
Chemin = Application.GetOpenFilename
 
Et reutiliser Chemin.
 
Des idées ?
 
Merci d'avance

Reply

Marsh Posté le 14-01-2011 à 16:14:41   

Reply

Marsh Posté le 14-01-2011 à 16:36:20    

J'ai finalement trouvé ...
Pour ceux que ca interesse :
 
 
Private Sub File_Click()
 
Dim finput As FileDialog
Dim Chemin As String
 
Set finput = Application.FileDialog(msoFileDialogOpen)
finput.Show
 
    Chemin = finput.SelectedItems(1)
 
MsgBox "Le chemin est " & Chemin, vbInformation, "Test"
 
 
 
 
End Sub
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed