Discussion :

[Luno27]

Bonjour,

Je suis débutante dans la création de formulaire VBA sous Excel 2010.
Mon formulaire est crée, je bloque sur les relations entre lui et ma feuille Excel pour qu'il soit interactif...

J'aimerais qu'en cliquant sur mon CommandButton1, je puisse ouvrir l'explorateur de fichier, en sélectionner un et que son lien hypertexte s'affiche dans la TextBox associée ainsi que ma feuille.

Merci d'avance !

[jerome.vaussenat]

Salut,

Pour faire ce que tu souhaites, tu peux utiliser une instruction de ce type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fichier = Application.GetOpenFilename()

Elle fait afficher la boite de dialogue Fichier / Ouvrir. Cela te permet de naviguer dans ton arborescence et sélectionner un fichier. Le chemin d'accès à ce fichier est ensuite mémorisé dans la variable "Fichier". Tu n'as plus qu'à créer ton lien hypertexte avec.

Pour plus d'info que le getopenfilename, vas voir là :

https://msdn.microsoft.com/fr-fr/vba...e-method-excel

[Luno27]

Merci jerome.vaussenat pour ton aide,

En suivant le code que tu m'as donné, mon explorateur de fichier s'ouvre (jusque là niquel). Par contre, quand je sélectionne un fichier, rien ne s'affiche dans ma TextBox... j'aimerais afficher le chemin jusqu'au fichier (dans le genre : C:\Users\Luno\Bibliothèques\Documents\), pour que ce lien s'affiche également dans ma feuille excel quand je valide mon formulaire...

Ça fait plusieurs jours que je me tracasse pour trouver ce fichu code qui résoudrait mon problème

[jerome.vaussenat]

Salut,

C'est vrai que la ligne en elle même ne fait rien d'autre que de récupérer le chemin d'accès au fichier sélectionné.

Pour récupérer çà dans une textbox, tu fais un truc de ce style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

textBox1.value = fichier

et pour transférer çà dans la feuille en tant que lien hypertext :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), _
        Address:=fichier, _
        TextToDisplay:=fichier

En espérant que cela te fasse avancer dans ton projet

[Luno27]

Oh génial !!!

TU viens de me faire avancer d'un pas de géaaaant dans mon projet!!!

Je te remercie énormément !!