Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 VBA - Insérer le nom d'un fichier dans une cellule spécifique

T

tchi456

XLDnaute Occasionnel
Bonjour,

Je souhaiterais par simple clic (ou éventuellement par double clics mais sans devoir créer un bouton) dans certaines cellules pouvoir ouvrir un explorateur de fichier et insérer dans ces cellules le nom des fichiers sélectionnés (nom du fichier sans l'extension).

Exemple:
Si je clique ou double clics dans la cellule B5, j'aimerais que ça ouvre un explorateur de fichiers et lorsque je sélectionne un fichier quelconque, le nom de ce fichier apparaisse dans ma cellule B5.

Pouvez-vous m'aider?

Mes meilleures salutations,

Thierry
 

Pièces jointes

  • Test.xlsx
    9.8 KB · Affichages: 4
Dernière édition:
Solution
Bonjour tchi456, Robert,

Avec un seul clic et GetOpenFilename :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, [B5:B19]) Is Nothing Then Exit Sub
Dim x$, p%, pp%
x = Application.GetOpenFilename
p = InStrRev(x, ".")
pp = InStrRev(x, Application.PathSeparator)
Union(ActiveCell, ActiveCell(1, 6)) = ""
If p Then ActiveCell = Mid(x, pp + 1, p - pp - 1): ActiveCell(1, 6) = x
[A1].Select
End Sub
A+
Trier par date Trier par votes

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Tchi, bonjour le forum,

En pièce jointe ton fichier modifié avec la macro événementielle BeforeRightClick qui réagit non pas au clic comme tu l'as demandé mais au clic du bouton droit.
J'ai codé deux options :
1. le nom complet avec chemin d'accès
2. seulement le nom du fichier.
Supprime la ligne inutile...
Le code :
VB: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim EF As FileDialog 'déclare la variable EF (Explorateur de Fichiers)

If Application.Intersect(Target, Range("B5:B19")) Is Nothing Then Exit Sub 'si la selection a lieu ailleurs que dans la plage B5:B19, sort de la procedure
If Target.Cells.Count > 1 Then Exit Sub 'si plus d'une seule cellule selectionnée dans la plage, sort de la procédure
Cancel = True 'annule le menu contextuel lié au double-clic
Set EF = Application.FileDialog(msoFileDialogOpen) 'définit l'exporateur de fichier EF
EF.AllowMultiSelect = False 'n'autorise la sélection que d'un seul fichier
EF.Show 'affiche EF
If EF.SelectedItems.Count > 0 Then 'condition : si au moins un fichuier a été sélectionné
    'supprime un des deux ligne en dessous en fonction de tes besoins
    Target.Value = EF.SelectedItems(1) 'affiche le nom complet avec chemin d'accès dans la cellule
    Target.Value = Split(EF.SelectedItems(1), "\")(UBound(Split(EF.SelectedItems(1), "\"))) 'n'affiche que le nom du fichier dans la cellule
    '****************************************************************
End If 'fin de la condition
End Sub
Le fichier :
 

Pièces jointes

  • Tchi_ED_v01.xlsm
    17 KB · Affichages: 2
Vote positif 0 Vote négatif
T

tchi456

XLDnaute Occasionnel
Bonjour Robert,

Merci pour votre proposition qui fonctionne parfaitement bien. Je souhaite cependant le faire par double clics.
C'est intéressant de pouvoir garder le chemin d'accès mais est-il possible qu'il s'affiche dans une autre colonne ?

Exemple:
Si je clic en B5 le nom s'affiche (sans l'extension du fichier) en B5 et le chemin en G5.

Mes meilleures salutations,

Thierry
 

Pièces jointes

  • Tchi_ED_v02.xlsm
    17 KB · Affichages: 1
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour tchi456, Robert,

Avec un seul clic et GetOpenFilename :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, [B5:B19]) Is Nothing Then Exit Sub
Dim x$, p%, pp%
x = Application.GetOpenFilename
p = InStrRev(x, ".")
pp = InStrRev(x, Application.PathSeparator)
Union(ActiveCell, ActiveCell(1, 6)) = ""
If p Then ActiveCell = Mid(x, pp + 1, p - pp - 1): ActiveCell(1, 6) = x
[A1].Select
End Sub
A+
 

Pièces jointes

  • Test(1).xlsm
    17.1 KB · Affichages: 3
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

T
  • Résolu(e)
XL 2010 VBA - Bouton lister fichiers et bouton renommer ces fichiers
Réponses
4
Affichages
557
Titi456
T
T
  • Résolu(e)
XL 2010 VAB - Lister et renommer fichiers en bloc
Réponses
6
Affichages
343
tchi456
T
T
  • Résolu(e)
XL 2010 VBA - Bouton extraction structure dossier sélectionné
Réponses
5
Affichages
835
Titi456
T
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
629
firecarl
F
T
  • Résolu(e)
XL 2010 VBA - Lister fichiers et décortiquer le nom des fichiers dans colonne A et B
Réponses
5
Affichages
409
sylvanu
Q
  • Question
XL 2019 vba pour effacer résultat cellules de plusieurs fichiers a partir d'un fichier distant
Réponses
6
Affichages
162
Phil69970
F
  • Question
XL 2021 VBA bouton pour copier le contenu d'une cellule
Réponses
3
Affichages
137
fuioplde
F
D
  • Question
Microsoft 365 Cellule multiligne dans fichier texte.
Réponses
2
Affichages
306
sylvanu
P
  • Question
XL 2016 Automatiser une formule RECHERCHEV avec un nom de fichier différent en fonction du résultat d'une cellule
Réponses
10
Affichages
591
Phil69970
T
  • Résolu(e)
Microsoft 365 Insérer une image DANS une cellule
Réponses
12
Affichages
579
Thomi
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…