case a cocher

[xpxpplus]

Bonsoir a vous tous,
J'aimerai réaliser une macro avec une case a cocher dès que la case est validée, elle crée un lien hypertexte, en ouvrant l'explorateur et ainsi rechercher le fichier adéquat sur le disque c: et dès que le fichier choisi est trouver et que je le valide par enter, qu'il place ce lien hypertexte dans ma cellule b3 avec la mention " Lien "

Merci en avance pour l'aide

Marcmarc

 

[lapix]

Re : case a cocher

Bonjour,

Ci joint le code pour faire ce que tu veux :

Sub CreerLien()
A = Application.GetOpenFilename("Fichiers XL, *.xls")
Range("B3").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=A, TextToDisplay:="Lien : "
End Sub


Je te laisse le soin de la case a cocher, il te suffira de lui associer ce code

 

[xpxpplus]

Re : case a cocher

En te remerciant, je vais essayé et adapté.
Merci a toi
Et bon week end


Marcmarc