Lien hypertexte

[alias_2003]

Bonjour à tous,
J'aurais besoin de vos lumières ! J'ouvre un fichier B via un lien hypertexte dont le chemin est entré dans le code d'un fichier A. Le fichier B s'ouvre bien et l'ancien (fichier A) se ferme, jusque là aucun problème !
Mon soucis est le suivant : la procédure "workbook_open" n'est pas réalisée dans le fichier B (celui ouvert via le lien hypertexte), savez-vous pourquoi ??
Merci beaucoup !

 

[david84]

Re : Lien hypertexte

Bonsoir,
la procédure placée dans le workbook_open est-elle bien dans le fichier B ?
Pour en savoir plus il faudrait voir le code qui ouvre le fichier B.
Y-a-t-il un EnableEvents d'utilisé ?
A+

 

[Victor21]

Re : Lien hypertexte

Bonsoir, alias_2003.

Ne pensez-vous pas qu'il pourrait être judicieux de livrer vos fichiers à la sagacité des intervenants?
(ou, pour le moins, les codes qu'ils contiennent)

Edit : Bonsoir, David84 🙂

 

[alias_2003]

Re : Lien hypertexte

Bonsoir david84, Victor21,
@Victor21 : je comprends évidemment votre demande mais je ne peux pas poster mon fichier sinon vous vous doutez bien que je l'aurais fait...

Voici les infos demandées : le code ouvrant le fichier B est ouvert via le workbook_open de mon fichier A. Il n'y a aucun EnableEvents dans mon code.
J'ai simplement la ligne suivante dans mon code :

ThisWorkbook.FollowHyperlink chemin, NewWindow:=False, AddHistory:=True

Merci beaucoup !

 

[david84]

Re : Lien hypertexte

Mon soucis est le suivant : la procédure "workbook_open" n'est pas réalisée dans le fichier B (celui ouvert via le lien hypertexte), savez-vous pourquoi ??

De quelle procédure parles-tu ?
Quel est le code placé dans le Workbokk_Open de ton fichier B ?

A+

 

[alias_2003]

Re : Lien hypertexte

Le code est placé dans le workbook_open du fichier A mais c'est la procédure workbook_open du fichier B qui ne s'exécute pas !

 

[david84]

Re : Lien hypertexte

Le code est placé dans le workbook_open du fichier A mais c'est la procédure workbook_open du fichier B qui ne s'exécute pas !

Je répète ma question :quel est le code placé dans le Workbokk_Open de ton fichier B ?
A+

 

[alias_2003]

Re : Lien hypertexte

Oups, pardon !
Dans le workbook_open du fichier B, il y a juste :

userform1.show

!

 

[david84]

Re : Lien hypertexte

Oups, pardon !
Dans le workbook_open du fichier B, il y a juste :

userform1.show

!

Et si une fois ouvert tu lances la procédure placée dans le Workbook_Open l'userform apparaît ?
Si oui Place DoEvents avant userform1.show pour voir ce que cela donne.
A+

 

[david84]

Re : Lien hypertexte

Bon, devant l'absence de fichier j'ai créé 2 fichiers dont l'un avec un UserForm.
Lorsque je lance la macro d'ouverture du fichier 2 depuis le fichier 1 le fichier 2 s'ouvre et l'UserForm qu'il contient apparaît à l'écran.
Donc chez moi cela fonctionne.
Dans le fichier 1 nommé "test1" :

Sub Ouvrir_Ficchier()
'si lien hypertext placé en A1 de feuil1
'Sheets("Feuil1").Range("A1").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
'sinon
Workbooks.Open "C:\Users\david\Desktop\test2.xls" 'adapter le chemin
End Sub

Dans le Workbook_Open du fichier 2 nommé "test2" :

Private Sub Workbook_Open()
UserForm1.Show
End Sub

A+

 

[alias_2003]

Re : Lien hypertexte

Message en doublon

 

[alias_2003]

Re : Lien hypertexte

Bonjour David84,
Merci beaucoup de ta réponse ! J'essaie et je te tiens informé !!
Bonne journée 😀 !