Discussion :

[salhix]

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

[mercatog]

Que dit ton bug?

Sinon, par précaution, je ferai comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Lien_Click()
Dim Var1 As String, LeLien As String, Num_BC As String
 
Num_BC = Me.ComboBox1
Var1 = Format(LaDate, "dd-mm-yyyy")
LeLien = "C:\Documents and Settings\Administrateur\Bureau\Gest\Commande\Commande\Depot\" & "Bon Cde" & " " & Num_BC & " " & Var1 & ".pdf"
 
If Dir(LeLien) <> "" Then
    ThisWorkbook.FollowHyperlink LeLien, NewWindow:=True
Else
    MsgBox "Fichier " & LeLien & " introuvable"
End If
End Sub

[salhix]

Bonsoir

Merci mercatog pour ton aide et pour ton code

le problème c'est lorsque je clique sur le lien il m'affiche le msgbox qui contient la variable lien dans la quelle il m'affiche la chaine de caractère "Bon Cde" le nom du fournisseur puis la date puis l'extension .pdf ci-joint la photo

et le fichier et composé par la chaine de caractère "Bon Cde" Numéro du bon de commande la date puis l'extension

c'est à dire que la variable Num_BC ne fonctionne pas correctement
et j'ai pas compris comment ca se fait car la variable Num_BC doit charger le continu du combobox

Et merci une autre fois
Haithem

[mercatog]

Donc, comme j'ai deviné, il faudra vérifier le chemin complet du fichier par rapport à comment est construit dans la variable LeLien

[patricktoulon]

Bonsoir

j'ai téléchargé ton zip
et ouvert ton fichier

j'ai regarder le code du userform il y a plein de truc a revoir
par exemple j'ai supprimé tout les noms de plage
ayant un seul combobox je n'en vois pas l'utilité
je rempli la combobox comme ca dans le initialise du userform

comme tu peut le constater je met non seulement la colonne 1 pour les N° Commandes mais je met aussi les autres colonnes
je règle les largeurs de colonnes afin que l'on voit que les N° dans la combobox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub UserForm_Initialize()
 
'Forcer la position du Userform Ajouter Un Article
   With Me
         .StartUpPosition = 0  'Annule la position centrée
         .Top = 250   'Règle la position  vers le Haut
         .Left = 160  'Règle la position vers la Gauche
 
   End With
' Déclaration Des Combobox a l'ouverture du UserForm Pour Charger les listes Déroulante
' Chargement liste déroulante Liste N° Bon Intervention
With ComboBox1
.Clear
.ColumnCount = 5
.ColumnWidths = "70;1;1;1;1"
.List = Range("A4:d" & Cells(Rows.Count, 1).End(xlUp).Row).Value
End With
End Sub

Pourquoi j'ai tout mis dans la combobox?
et bien vu que tu bataille pour convertir l'index en ligne pour le sheets autant avoir toutes les données a dispos l'ors du change de la combobox
ainsi
dans l'évènement change du combobox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ComboBox1_Change()
ligne = ComboBox1.ListIndex
LaDate = ComboBox1.List(ligne, 1)
    Fournisseur = ComboBox1.List(ligne, 2)
    Lien = ComboBox1.List(ligne, 3)
End Sub

beaucoup plus simple non?

ensuite il me vient une question qui me titille

ce classeur est il toujours au même endroit ????? c'est a dire dans le dossier que tu a zipper

si c'est le cas il te serait très facile de reconstruire le chemin complet puisque dans les colonnes 1 et 2 tu a les éléments du nom le reste avec la fonction environ te donnerait le chemin dossier
voir avec par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
"thisworkbook.path  & "dossier/sousdossier/"
 
 
tu pourrais ainsi te déplacer avec ce dossier partout et sur n'importe quel ordinateur ca fonctionnerait

répond a mes questions et on verra