XL 2010 exlorateur de fichier avec vba

NitroX38X

XLDnaute Nouveau
Bonsoir à tous.

Dans le cadre d'un projet personnel, je souhaiterais ouvrir l'explorateur de fichier à partir de VBA Excel

et ainsi récupérer le chemin complet et le nom du fichier qui sera sélectionné ( Fichier qui peut être un PDF, JPG, ... )

j'ai essayé avec la foncion

Application.Dialogs(xlDialogOpen).Show

Mais je ne pense pas que je puisse obtenir ce que je recherche avec.

Merci pour vos retour
 
Solution
Re

Ressortie de la poussière de mes archives
(ici paramétrée pour PDF, JPG ou tous fichiers)
VB:
Sub Version_Améliorée()
Dim Extensions$, fichier As Variant
Extensions = _
        "Fichier PDF,*.pdf, Fichier JPG ,*.jpg, Tous Fichiers(*.*) ,*.*"
fichier = _
        Application.GetOpenFilename(Extensions, 1, "Choisir un fichier", False)
If fichier <> False Then
MsgBox "Fichier sélectionné: " & fichier
End If
End Sub

Staple1600

XLDnaute Barbatruc
Re

Ressortie de la poussière de mes archives
(ici paramétrée pour PDF, JPG ou tous fichiers)
VB:
Sub Version_Améliorée()
Dim Extensions$, fichier As Variant
Extensions = _
        "Fichier PDF,*.pdf, Fichier JPG ,*.jpg, Tous Fichiers(*.*) ,*.*"
fichier = _
        Application.GetOpenFilename(Extensions, 1, "Choisir un fichier", False)
If fichier <> False Then
MsgBox "Fichier sélectionné: " & fichier
End If
End Sub
 

Staple1600

XLDnaute Barbatruc
Re

Tu veux dire un truc du genre?
VB:
Sub Version_Nomfichier()
Dim fichier As Variant
fichier = _
        Application.GetOpenFilename("Tous Fichiers(*.*) ,*.*", , "Choisir un fichier", False)
If fichier <> False Then
MsgBox "Fichier sélectionné: " & Mid(fichier, InStrRev(fichier, "\") + 1)
End If
End Sub
 

Staple1600

XLDnaute Barbatruc
Re

Pour infos
L'usage quand un "demandeur" (donc ici toi) modifie un code donné par un "répondeur" (donc ici moi), c'est que le "demandeur" revienne dans son fil pour publier ses modifications/adaptations pour le bénéfice de la communauté du forum.
(En effet, ta question et sa ou ses solutions pourra interesser d'autres lecteurs du forum avec une problématique similaire)
;)
 

Discussions similaires

Réponses
3
Affichages
306
Réponses
1
Affichages
269
Compte Supprimé 979
C

Statistiques des forums

Discussions
311 740
Messages
2 082 049
Membres
101 882
dernier inscrit
XaK_