XL 2010 exlorateur de fichier avec vba

[NitroX38X]

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

 

[Staple1600]

Bonsoir

Essaie avec ceci
(en l'adaptant à tes besoins)

Sub Test()
Dim fichier As Variant
fichier = Application.GetOpenFilename("Fichiers Excel,*.xl??")
If fichier = False Then Exit Sub
MsgBox fichier
End Sub

 

[Staple1600]

Re

Ressortie de la poussière de mes archives
(ici paramétrée pour PDF, JPG ou tous fichiers)

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

 

[NitroX38X]

SUPER !!!!

Merci STAPLE1600. Vive les archives, et la poussière

 

[Staple1600]

Re

Avec le seconde version, si tu cliques sur la fléche Type de fichiers
(tu peux alors choisir le type de fichiers prédéfini dans le code VBA)
Tu avais remarqué?

 

[NitroX38X]

Oui, en effet et tout compte fait, j'utilise uniquement tous les fichiers.

Encore merci

 

[Staple1600]

Re

Dans ce cas, tu peux réduire le code précédent
Tu vois comment?

 

[NitroX38X]

En enlevant la partie extension?

Extensions = _
"Tous Fichiers(*.*) ,*.*"

 

[NitroX38X]

Puis-je me permettre une dernière questions?

J'aimerais avoir également le nom du fichier que a été sélectionné.

Est-ce faisable?

 

[Staple1600]

Re

Tu veux dire un truc du genre?

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

 

[NitroX38X]

C'est super. Je l'ai adapté à mon besoin.

Merci beaucoup et bonne soirée.

 

[Staple1600]

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)