Bonjour à tous
J’utilise un outil excel dans mon environnemùent professionnel – ensemble de fichiers excel pilotés par de très nombreuses macro VBA.
Il s’agit d’une base de données pour des produits ou chaque colonne est associée à une caractéristique du produit (désignation, référence etc…)
Celui qui a développé cette véritable "application" est maintenant à la retraite.
L’interface utilisateur se fait à travers un ensemble de « userform » avec des « textbox ».
On commence par entrer dans un premier « userform » une des références connues pour un article puis on valide la recherche.
Lorsque l’article est trouvé, on arrive sur le « userform » principal qui comprend un ensemble de « textbox » chacun ayant remonté du fichier base de données toutes les caractéristiques du produit.
Dans un premier temps j’ai ajouté 6 colonnes supplémentaires dans la BD et j’ai associé des champs « textbox » (6) sur le « userform » principal pour pouvoir indiquer des caractéristiques supplémentaires du produit.
Du point de vu macro VBA, j’ai tous simplement étendu la procédure de recherche et d’affichage existant aux 6 colonnes supplémentaires.
Par tâtonnement, cela fonctionne maintenant sans erreur.
Dans les 6 colonnes supplémentaires sont indiquées 6 références de documentation associées au produit.
Ma demande d’aide
Je suis débutant VBA
Je souhaite ajouter :
6 colonnes de plus à la BD pour y ajouter manuellement pour chaque produit le lien d’emplacement (lien hypertexte) de chaque documentation (fichiers pdf)
Sur le « userform » principal 6 « Commandbutton » qui appelle le fichier pdf dont l’emplacement est indiqué dans les 6 cases des colonnes supplémentaires.
Doc1.Text = art(i, 25)
Doc2.Text = art(i, 26)
Doc3.Text = art(i, 27)
Doc4.Text = art(i, 28)
Doc5.Text = art(i, 29)
Doc6.Text = art(i, 30)
I est la ligne de l’article.
J’ai créé un nouveau “commandbutton” et associé le code suivant :
Private Sub Doc1_CommandButton_Click()
Dim Lien1 As String
Lien1 = Doc1.Hyperlinks(1).Address
If Lien1 <> "" Then ThisWorkbook.FollowHyperlink Lien1.Caption
End Sub
Bien sur, cela ne fonctionne pas car je ne connais pas la syntaxe VBA et je procède uniquement par tâtonnements.
Quelqu’un peut-il me proposer un code susceptible de fonctionner ou tout au moins un tutorial suffisamment proche de mon besoin.
J’utilise un outil excel dans mon environnemùent professionnel – ensemble de fichiers excel pilotés par de très nombreuses macro VBA.
Il s’agit d’une base de données pour des produits ou chaque colonne est associée à une caractéristique du produit (désignation, référence etc…)
Celui qui a développé cette véritable "application" est maintenant à la retraite.
L’interface utilisateur se fait à travers un ensemble de « userform » avec des « textbox ».
On commence par entrer dans un premier « userform » une des références connues pour un article puis on valide la recherche.
Lorsque l’article est trouvé, on arrive sur le « userform » principal qui comprend un ensemble de « textbox » chacun ayant remonté du fichier base de données toutes les caractéristiques du produit.
Dans un premier temps j’ai ajouté 6 colonnes supplémentaires dans la BD et j’ai associé des champs « textbox » (6) sur le « userform » principal pour pouvoir indiquer des caractéristiques supplémentaires du produit.
Du point de vu macro VBA, j’ai tous simplement étendu la procédure de recherche et d’affichage existant aux 6 colonnes supplémentaires.
Par tâtonnement, cela fonctionne maintenant sans erreur.
Dans les 6 colonnes supplémentaires sont indiquées 6 références de documentation associées au produit.
Ma demande d’aide
Je suis débutant VBA
Je souhaite ajouter :
6 colonnes de plus à la BD pour y ajouter manuellement pour chaque produit le lien d’emplacement (lien hypertexte) de chaque documentation (fichiers pdf)
Sur le « userform » principal 6 « Commandbutton » qui appelle le fichier pdf dont l’emplacement est indiqué dans les 6 cases des colonnes supplémentaires.
Doc1.Text = art(i, 25)
Doc2.Text = art(i, 26)
Doc3.Text = art(i, 27)
Doc4.Text = art(i, 28)
Doc5.Text = art(i, 29)
Doc6.Text = art(i, 30)
I est la ligne de l’article.
J’ai créé un nouveau “commandbutton” et associé le code suivant :
Private Sub Doc1_CommandButton_Click()
Dim Lien1 As String
Lien1 = Doc1.Hyperlinks(1).Address
If Lien1 <> "" Then ThisWorkbook.FollowHyperlink Lien1.Caption
End Sub
Bien sur, cela ne fonctionne pas car je ne connais pas la syntaxe VBA et je procède uniquement par tâtonnements.
Quelqu’un peut-il me proposer un code susceptible de fonctionner ou tout au moins un tutorial suffisamment proche de mon besoin.
