Bouton Parcourir

Bonjour, je souhaiterai inserer un bouton parcourir pour aller chercher un dossier et inserer le chemin d'acces sur une cellule (cellule qui sera alors utilisé au sein d'une macro tierse).

Premierement, dois-je choisir Form control ou ActiveX controls (quelle est la difference ?)

Deuxiement, pourquoi la macro ci dessous ne fonctionne pas ??

Sub parcourir()
Function joindre()
   Dim chemin As String         'nom de variable récupérant le chemin du fichier

   chemin = Application.GetOpenFilename
   'Ici Range("D17" ) est la case dans laquelle tu veux afficher le chemin du fichier
   Range("O3").Value = chemin

End Function
End Sub

Merci beaucoup

Bonjour,

Tu ne peu pas mettre une fonction DANS une sub

Exemple :

Sub parcourir()
Dim chemin As String         'nom de variable récupérant le chemin du fichier
    Chemin = Joindre
    If Chemin <>"" then Range("O3").Value = chemin
End Sub

Function joindre()
   joindre= Application.GetOpenFilename
End Function

Les boutons "Formulaire" doivent êtres assignés à une macro tandis que les boutons "ActiveX" ont leurs code propre dans le module de la feuille.

Mon avis : les boutons ActiveX sont plus pratique.

Avantage des boutons "Formulaire" : permet de faire appel à une même macro depuis différente feuilles.

A+

Merci beaucoup d'avoir repondu rapidement

Cela fonctionne désormais, cependant je cherche plutôt a insérer le chemin d’accès d'un répertoire, et non le chemin d’accès a un fichier.

Est ce que cela est possible et si oui quelle sont les modifications que je dois apporter ?

Merci

Il y a un moyen direct avec cette démo

A+