Microsoft 365 ajouter un lien dans une colonne

[C'est Génial]

Bonjour à tous,

Je travaille sur un fichier Excel avec un UserForm et un bouton Commande qui est déjà programmé.
L’objectif est de lier une commande scannée en pdf à une affaire et d’enregistrer le chemin d’accès afin de pouvoir la visualiser ensuite.
Si une personne peut m'aider,
Je joins mon tableau
Merci beaucoup

 

[sylvanu]

Bonjour,
Si je comprends bien, vous disposez déjà d'un pdf pour l'affaire concernée ?
A quoi sert le bouton "Exporter en PDF" ?
Ou voulez vous simplement rajouter en colonne L le chemin d'accès au pdf correspondant sous format de lien hypertexte ?

 

[sylvanu]

Re,
Je pense avoir compris. 🙂
En PJ un essai avec la création du lien demandé, avec :

' Création du lien hypertexte
Dim cibleCellule
Set cibleCellule = [T_Livraison[Lien PDF]].item(position)
ActiveSheet.Hyperlinks.Add Anchor:=cibleCellule, _
     Address:=cheminPDF, TextToDisplay:="Ouvrir le PDF"
MsgBox "Commande PDF liée à l'affaire " & numeroAffaire & Chr(10) & "Chemin PDF : " & Chr(10) & cheminPDF, vbInformation

 

[C'est Génial]

Re,
Je pense avoir compris. 🙂
En PJ un essai avec la création du lien demandé, avec :

' Création du lien hypertexte
Dim cibleCellule
Set cibleCellule = [T_Livraison[Lien PDF]].item(position)
ActiveSheet.Hyperlinks.Add Anchor:=cibleCellule, _
     Address:=cheminPDF, TextToDisplay:="Ouvrir le PDF"
MsgBox "Commande PDF liée à l'affaire " & numeroAffaire & Chr(10) & "Chemin PDF : " & Chr(10) & cheminPDF, vbInformation

Merci beaucoup c'est ce qu'il me faut
Bonne soirée

 

[sylvanu]

Impec.
Attention, cependant. J'ai détecté un souci :
Votre variable "position" calcule la ligne où se trouve le N° affaire.
Or si vous cliquez sur 6101A la variable "position" ciblera le premier 6101A et non le second, et donc le lien sera mis sur le premier et non sur le second.
Il vous faut reprendre la position exacte de la ligne désirée, soit avec fournisseur ou N° commande. Cependant on pourrait avoir les mêmes valeurs pour ces trois variables, donc à vous d'y réfléchir comment résoudre le problème .

 

[sylvanu]

Re,
J'ai trouvé. Si on utilise "ListView1.SelectedItem.index" on a le N° de la ligne cliquée dans ListView1, et c'est aussi le N° de ligne du tableau. Avec :

' Création du lien hypertexte
Dim cibleCellule, LigneClic%
LigneClic = Me.ListView1.SelectedItem.index
Set cibleCellule = [T_Livraison[Lien PDF]].item(LigneClic)
ActiveSheet.Hyperlinks.Add Anchor:=cibleCellule, _
Address:=cheminPDF, TextToDisplay:="Ouvrir le PDF"

Mais cela suppose que la Listview soit la copie exacte et dans le même ordre que le tableau de la feuille.
Voir PJ.