Liens direct

[mavean]

Bonjour

Ma question
Dans une feuille excel une cellule va recevoir un nombre
Exemple A1= 800
Je voudrais que des que le chiffre 800 est validé par la touche entrée un lien s'ouvre vers un serveur.

Exemple dans un serveur à l'adresse ci dessous //serveur/fiches/800.pdf j'ai mis la fiche d'un produit 800. Je souhaite donc que le fait d'ecrire 800 dans une cellule ouvre ce lien.
Comment faire, je vous remercie.

 

[MichelXld]

bonjour

je te propose une solution par macro en utilisant l'evenement Change de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$A$1' And Target.Value = 800 Then _
ThisWorkbook.FollowHyperlink '//serveur/fiches/800.pdf'
End Sub

si tu saisies 800 dans la cellule A1 , le fichier '800.pdf' est ouvert


bonne journée
MichelXld

 

[mavean]

Je te remercie
Mais dans cette cellule je vais taper un nombre de 1 à 4000 et je vais mettre ces 4000 fiches au format pdf sur le reseau.
Si je tape 3500 je veux ouvrir la 3500.pdf ??

 

[MichelXld]

bonjour

dans ce cas tu peux utiliser cette adaptation

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$A$1' And Target.Value = 800 Then _
ThisWorkbook.FollowHyperlink '//serveur/fiches/' & Target.Value & '.pdf'
End Sub

cet exemple ne verifies pas si le fichier existe ( ...si l'utilisateur fais une erreur de saise dans la cellule)


bonne journée
MichelXld