macro "propser de parcourir les repertoires"

[Alain83]

Bonjour,

je souhaiterais faire une macro qui propose de rechercher un fichier excel en parcourant le(s) disque(s) du micro pour utiliser ensuite ce fichier comme argument dans une autre macro.

Pour commencer et comprendre, si cela est possible, je souhaiterai que cette macro me permette de fouiller le DD puis d'afficher l'adresse et le nom du fichier selectionné.

Merci de votre aide, Alain.

[Theze]

Bonsoir,

Avec "FileDialog". Lance la proc "QuelFichierChoisi" pour voir le résultat :

Code: Tout sélectionner


Function Fichier() As Variant
   
    With Application.FileDialog(3)
   
        'affiche la boite de dialogue
       .Show
       
        'si annuler
       On Error Resume Next
       
        'récupère le chemin du fichier choisi (le 1er)
       Fichier = .SelectedItems(1)
       
        'si une erreur (pas de fichier choisi) retourne False
       If Err.Number <> 0 Then Fichier = False
       
    End With
       
End Function

Sub QuelFichierChoisi()
   
    MsgBox Fichier

End Sub
 

Hervé.

[Alain83]

Super.

Merci beaucoup, je ré-ouvrirai peut être le fil quand j'aurai fini ma macro d'essai si j'ai des problèmes.

Bonne soirée.