browser>selection de chemin fichier>copie dans une cellule

[olivemotard]

Bonjour,

Voila, j'ai une macro qui m'ouvre un explorateur de fichier, je selectionne le fichier que je souhaite, et j'ai une message box qui apparait et me donne le chemin complet jusqu'a ce fichier.
Probleme, comment copier ce chemin dans une cellule excel ?

Merci d'avance

Private Sub CommandButton2_Click()
Application.CutCopyMode = False
Dim fd As FileDialog
'Crée une boite de dialogue de sélection de fichiers :
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Show
If fd.SelectedItems.Count > 0 Then
MsgBox fd.SelectedItems(1)
End If
Set fd = Nothing
End Sub

 

[Hulk]

Re : browser>selection de chemin fichier>copie dans une cellule

Hello Forum, Olivemotard,

Voici une solution avec un bouton formulaire sur la feuille...

Cdt, Hulk.

 

[Hulk]

Re : browser>selection de chemin fichier>copie dans une cellule

Re,

La même chose avec un CommandButton et depuis un UserForm.

Cdt, Hulk.

 

[olivemotard]

Re : browser>selection de chemin fichier>copie dans une cellule

Merci Hulk

C'est éxactement ce que je voulais.
Merci encore.