Ouvrir un Lien HyperTexte depuis Un userform

Bonsoir,

Je me permets de solliciter l’aide du forum.

J’ai un fichier, ci-joint, qui contient un tableau de suivie de bon de commande (N° bon commande - Date - Fournisseur - lien vers le fichier.pdf)

et j'ai un userForm qui me permet de chercher dans ce tableau

Le UserForm fonctionne le problème c'est que lorsque il m'affiche le lien vers le fichier il lorsque j'appuie dessus il me renvoie un bug

Si quelqu'un peut m'aider et laissé le max commentaire sur le code pour que je puisse comprendre et apprendre le VBA

Merci d'avance

Haithem

204gest.rar (163.13 Ko)

Bonjour,

Il faut tout d’abord que tu modifies le nom du fichier afin de supprimer les tirets.

Exemple :

"Bon Cde 3261 28-03-2015.pdf" devient "Bon Cde 3261 28032015.pdf"

Et ensuite adapter le code

Private Sub Lien_Click()
Dim Var1 As String
Dim Num_BC As String
Dim NomFich As String
    Num_BC = ComboBox1
    Var1 = Format(LaDate, "ddmmyyyy")
    NomFich = "C:\Documents and Settings\Administrateur\Bureau\Gest\Commande\Commande\Depot\" & "Bon Cde" & " " & Num_BC & " " & Var1 & ".pdf"
    ThisWorkbook.FollowHyperlink Address:=NomFich, NewWindow:=True
End Sub

A+

Bonsoir

Merci du fond de cœur pour avoir m'aider

j'ai fait tous que tu m'a dit j'ai changé les noms des fichiers .pdf comme tu as dis

j'ai testé et j'ai un petit bug si joint dans la photo

et un autre merci

code du fichier

Bonjour,

Avec une image, je ne pourrais pas faire grand chose, je ne pratique pas la cartomancie .

Lorsque l'erreur apparait, place la souris sur NomFich pour voir le nom complet (chemin + nom du fichier).

Tu pourras ainsi vérifier l'exactitude de ce nom.

A+

Rechercher des sujets similaires à "ouvrir lien hypertexte userform"