Ouvrir un Lien HyperTexte depuis Un userform

Forum pour toutes vos questions à propos d'Excel (avec ou sans macros) ...
salhi_haithem
Jeune membre
Jeune membre
Messages : 25
Inscrit le : 29 mars 2015
Version d'Excel : 2007 FR

Message par salhi_haithem » 29 mars 2015, 21:53

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
Fichiers joints
Gest.rar
dossier Gest qui cotient un Fichier Bon De Commande Excel et Un dossier Dépôt qui contient les fichier .pdf
(163.13 Kio) Téléchargé 80 fois
frangy
Passionné d'Excel
Passionné d'Excel
Messages : 4342
Inscrit le : 19 novembre 2012
Version d'Excel : 2007 FR

Message par frangy » 30 mars 2015, 09:24

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

Code : Tout sélectionner

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+
salhi_haithem
Jeune membre
Jeune membre
Messages : 25
Inscrit le : 29 mars 2015
Version d'Excel : 2007 FR

Message par salhi_haithem » 30 mars 2015, 20:53

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
Fichiers joints
Code du fichier.JPG
frangy
Passionné d'Excel
Passionné d'Excel
Messages : 4342
Inscrit le : 19 novembre 2012
Version d'Excel : 2007 FR

Message par frangy » 31 mars 2015, 09:33

Bonjour,

Avec une image, je ne pourrais pas faire grand chose, je ne pratique pas la cartomancie :D.
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+
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message