XL 2010 exlorateur de fichier avec vba

Staple1600

XLDnaute Barbatruc

• 1 Janvier 2021

• #2

Bonsoir

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

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Janvier 2021

• #3

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

 

Vote positif 0 Vote négatif

Solution

N

NitroX38X

XLDnaute Nouveau

• 1 Janvier 2021

• #4

SUPER !!!!

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Janvier 2021

• #5

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é?

 

Vote positif 0 Vote négatif

N

NitroX38X

XLDnaute Nouveau

• 1 Janvier 2021

• #6

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

Encore merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Janvier 2021

• #7

Re

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

 

Vote positif 0 Vote négatif

N

NitroX38X

XLDnaute Nouveau

• 1 Janvier 2021

• #8

En enlevant la partie extension?

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

 

Vote positif 0 Vote négatif

N

NitroX38X

XLDnaute Nouveau

• 1 Janvier 2021

• #9

Puis-je me permettre une dernière questions?

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

Est-ce faisable?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Janvier 2021

• #10

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

 

Vote positif 0 Vote négatif

N

NitroX38X

XLDnaute Nouveau

• 1 Janvier 2021

• #11

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

Merci beaucoup et bonne soirée.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Janvier 2021

• #12

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)
😉

 

Vote positif 0 Vote négatif