Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel FollowHyperlink et macro Auto_Open

FollowHyperlink et macro Auto_Open

19 réponses
Avatar
Patrick EVEN
Bonjour,

Sous Excel 2003, j'ai un dictionnaire de documentation.
Il contient les éléments d'information qui me permettent
de reconstituer le chemin d'accès du FicherCible que je cherche
à ouvrir avec la commande VBA suivante :

ActiveWorkbook.FollowHyperlink Address:=FichierCible, NewWindow:=False

Pourquoi cette méthode ne déclenche t'elle pas la macro Auto_Open
du FichierCible ?
Je précise que la macro Auto_Open est correctement exécutée lorsque
le FichierCible est ouvert par une autre méthode (Fichier / Ouvrir ou
double click dans l'Explorer Windows).

Cordialement,
Patrick EVEN
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Daniel
Bonjour.
Lorsqu'un classeur est ouvert par macro, la macro Auto_Open n'est pas
exécutée. Mets le code dans "thisworkbook" dans la macro Workbook_Open.
Cordialement.
Daniel
"Patrick EVEN" a écrit dans le message de news:
%234jsxDo$
Bonjour,

Sous Excel 2003, j'ai un dictionnaire de documentation.
Il contient les éléments d'information qui me permettent
de reconstituer le chemin d'accès du FicherCible que je cherche
à ouvrir avec la commande VBA suivante :

ActiveWorkbook.FollowHyperlink Address:=FichierCible, NewWindow:úlse

Pourquoi cette méthode ne déclenche t'elle pas la macro Auto_Open
du FichierCible ?
Je précise que la macro Auto_Open est correctement exécutée lorsque
le FichierCible est ouvert par une autre méthode (Fichier / Ouvrir ou
double click dans l'Explorer Windows).

Cordialement,
Patrick EVEN



Avatar
Patrick EVEN
Bonjour,

J'ai essayé sans succès la proposition de Daniel.

J'ai placé un breakpoint à l'entrée du code de Workbook_Open
dans "thisworkbook", et je constate qu'on n'y passe pas lors
de l'ouverture avec la méthode FollowHyperlink

Le problème est identique avec Excel 2000.

Une autre idée ?

Cordialement,
Patrick EVEN


"Daniel" a écrit dans le message de news:
e8xZ7Uo$
Bonjour.
Lorsqu'un classeur est ouvert par macro, la macro Auto_Open n'est pas
exécutée. Mets le code dans "thisworkbook" dans la macro Workbook_Open.
Cordialement.
Daniel
"Patrick EVEN" a écrit dans le message de news:
%234jsxDo$
Bonjour,

Sous Excel 2003, j'ai un dictionnaire de documentation.
Il contient les éléments d'information qui me permettent
de reconstituer le chemin d'accès du FicherCible que je cherche
à ouvrir avec la commande VBA suivante :

ActiveWorkbook.FollowHyperlink Address:=FichierCible, NewWindow:úlse

Pourquoi cette méthode ne déclenche t'elle pas la macro Auto_Open
du FichierCible ?
Je précise que la macro Auto_Open est correctement exécutée lorsque
le FichierCible est ouvert par une autre méthode (Fichier / Ouvrir ou
double click dans l'Explorer Windows).

Cordialement,
Patrick EVEN







Avatar
Daniel
Avec XL2003, dans un module :

Sub test()
ActiveWorkbook.FollowHyperlink
Address:="e:donneesdanielmpfe61102.xls", NewWindow:úlse
End Sub

Dans le fichier 061102.xls :

- dans un module :
Sub Auto_Open()
MsgBox "auto_open"
End Sub

- dans "thisworkbook" :
Private Sub Workbook_Open()
MsgBox "workbook_open"
End Sub

A l'exécution de la première macro (test) :
le classeur 061102.xls s'ouvre en affichant dans une msgbox :
workbook_open

Daniel
"Patrick EVEN" a écrit dans le message de news:
edfl9Br$
Bonjour,

J'ai essayé sans succès la proposition de Daniel.

J'ai placé un breakpoint à l'entrée du code de Workbook_Open
dans "thisworkbook", et je constate qu'on n'y passe pas lors
de l'ouverture avec la méthode FollowHyperlink

Le problème est identique avec Excel 2000.

Une autre idée ?

Cordialement,
Patrick EVEN


"Daniel" a écrit dans le message de news:
e8xZ7Uo$
Bonjour.
Lorsqu'un classeur est ouvert par macro, la macro Auto_Open n'est pas
exécutée. Mets le code dans "thisworkbook" dans la macro Workbook_Open.
Cordialement.
Daniel
"Patrick EVEN" a écrit dans le message de news:
%234jsxDo$
Bonjour,

Sous Excel 2003, j'ai un dictionnaire de documentation.
Il contient les éléments d'information qui me permettent
de reconstituer le chemin d'accès du FicherCible que je cherche
à ouvrir avec la commande VBA suivante :

ActiveWorkbook.FollowHyperlink Address:=FichierCible, NewWindow:úlse

Pourquoi cette méthode ne déclenche t'elle pas la macro Auto_Open
du FichierCible ?
Je précise que la macro Auto_Open est correctement exécutée lorsque
le FichierCible est ouvert par une autre méthode (Fichier / Ouvrir ou
double click dans l'Explorer Windows).

Cordialement,
Patrick EVEN











Avatar
Patrick EVEN
Daniel,

Merci pour cette précision.
J'avais bien interprété la suggestion qui fonctionne très bien d'ailleurs.
Mais je viens de comprendre qu'un autre élément intervient dans la
problématique.
Le lancement de la macro qui fait appel à la méthode FollowHyperlink
se fait avec un raccourci clavier (Maj+Ctrl+O).
Et dans ce cas on ne passe ni dans l'Auto_Open, ni dans le Workbook_Open !
Comment peut-on surmonter cette difficulté ?

Cordialement,
Patrick EVEN

"Daniel" a écrit dans le message de news:
eZPFBQr$
Avec XL2003, dans un module :

Sub test()
ActiveWorkbook.FollowHyperlink
Address:="e:donneesdanielmpfe61102.xls", NewWindow:úlse
End Sub

Dans le fichier 061102.xls :

- dans un module :
Sub Auto_Open()
MsgBox "auto_open"
End Sub

- dans "thisworkbook" :
Private Sub Workbook_Open()
MsgBox "workbook_open"
End Sub

A l'exécution de la première macro (test) :
le classeur 061102.xls s'ouvre en affichant dans une msgbox :
workbook_open

Daniel
"Patrick EVEN" a écrit dans le message de news:
edfl9Br$
Bonjour,

J'ai essayé sans succès la proposition de Daniel.

J'ai placé un breakpoint à l'entrée du code de Workbook_Open
dans "thisworkbook", et je constate qu'on n'y passe pas lors
de l'ouverture avec la méthode FollowHyperlink

Le problème est identique avec Excel 2000.

Une autre idée ?

Cordialement,
Patrick EVEN


"Daniel" a écrit dans le message de news:
e8xZ7Uo$
Bonjour.
Lorsqu'un classeur est ouvert par macro, la macro Auto_Open n'est pas
exécutée. Mets le code dans "thisworkbook" dans la macro Workbook_Open.
Cordialement.
Daniel
"Patrick EVEN" a écrit dans le message de news:
%234jsxDo$
Bonjour,

Sous Excel 2003, j'ai un dictionnaire de documentation.
Il contient les éléments d'information qui me permettent
de reconstituer le chemin d'accès du FicherCible que je cherche
à ouvrir avec la commande VBA suivante :

ActiveWorkbook.FollowHyperlink Address:=FichierCible, NewWindow:úlse

Pourquoi cette méthode ne déclenche t'elle pas la macro Auto_Open
du FichierCible ?
Je précise que la macro Auto_Open est correctement exécutée lorsque
le FichierCible est ouvert par une autre méthode (Fichier / Ouvrir ou
double click dans l'Explorer Windows).

Cordialement,
Patrick EVEN















Avatar
Daniel
Bonjour.
Tu veux dire que, lorsque tu lances la macro sans utiliser le raccourci, la
macro Workbook_Open se déclenche ?
Peux-tu poster ton classeur sur www.cjoint.com en effaçant si besoin toutes
les données.
Cordialement.
Daniel
"Patrick EVEN" a écrit dans le message de news:
upxRpPy$
Daniel,

Merci pour cette précision.
J'avais bien interprété la suggestion qui fonctionne très bien d'ailleurs.
Mais je viens de comprendre qu'un autre élément intervient dans la
problématique.
Le lancement de la macro qui fait appel à la méthode FollowHyperlink
se fait avec un raccourci clavier (Maj+Ctrl+O).
Et dans ce cas on ne passe ni dans l'Auto_Open, ni dans le Workbook_Open !
Comment peut-on surmonter cette difficulté ?

Cordialement,
Patrick EVEN

"Daniel" a écrit dans le message de news:
eZPFBQr$
Avec XL2003, dans un module :

Sub test()
ActiveWorkbook.FollowHyperlink
Address:="e:donneesdanielmpfe61102.xls", NewWindow:úlse
End Sub

Dans le fichier 061102.xls :

- dans un module :
Sub Auto_Open()
MsgBox "auto_open"
End Sub

- dans "thisworkbook" :
Private Sub Workbook_Open()
MsgBox "workbook_open"
End Sub

A l'exécution de la première macro (test) :
le classeur 061102.xls s'ouvre en affichant dans une msgbox :
workbook_open

Daniel
"Patrick EVEN" a écrit dans le message de news:
edfl9Br$
Bonjour,

J'ai essayé sans succès la proposition de Daniel.

J'ai placé un breakpoint à l'entrée du code de Workbook_Open
dans "thisworkbook", et je constate qu'on n'y passe pas lors
de l'ouverture avec la méthode FollowHyperlink

Le problème est identique avec Excel 2000.

Une autre idée ?

Cordialement,
Patrick EVEN


"Daniel" a écrit dans le message de news:
e8xZ7Uo$
Bonjour.
Lorsqu'un classeur est ouvert par macro, la macro Auto_Open n'est pas
exécutée. Mets le code dans "thisworkbook" dans la macro Workbook_Open.
Cordialement.
Daniel
"Patrick EVEN" a écrit dans le message de news:
%234jsxDo$
Bonjour,

Sous Excel 2003, j'ai un dictionnaire de documentation.
Il contient les éléments d'information qui me permettent
de reconstituer le chemin d'accès du FicherCible que je cherche
à ouvrir avec la commande VBA suivante :

ActiveWorkbook.FollowHyperlink Address:=FichierCible, NewWindow:úlse

Pourquoi cette méthode ne déclenche t'elle pas la macro Auto_Open
du FichierCible ?
Je précise que la macro Auto_Open est correctement exécutée lorsque
le FichierCible est ouvert par une autre méthode (Fichier / Ouvrir ou
double click dans l'Explorer Windows).

Cordialement,
Patrick EVEN



















Avatar
Daniel
Vérifie quand même que tu n'as pas une instruction :
Application.EnableEvents = False
avant l'ouverture du classeur.
Daniel
"Patrick EVEN" a écrit dans le message de news:
upxRpPy$
Daniel,

Merci pour cette précision.
J'avais bien interprété la suggestion qui fonctionne très bien d'ailleurs.
Mais je viens de comprendre qu'un autre élément intervient dans la
problématique.
Le lancement de la macro qui fait appel à la méthode FollowHyperlink
se fait avec un raccourci clavier (Maj+Ctrl+O).
Et dans ce cas on ne passe ni dans l'Auto_Open, ni dans le Workbook_Open !
Comment peut-on surmonter cette difficulté ?

Cordialement,
Patrick EVEN

"Daniel" a écrit dans le message de news:
eZPFBQr$
Avec XL2003, dans un module :

Sub test()
ActiveWorkbook.FollowHyperlink
Address:="e:donneesdanielmpfe61102.xls", NewWindow:úlse
End Sub

Dans le fichier 061102.xls :

- dans un module :
Sub Auto_Open()
MsgBox "auto_open"
End Sub

- dans "thisworkbook" :
Private Sub Workbook_Open()
MsgBox "workbook_open"
End Sub

A l'exécution de la première macro (test) :
le classeur 061102.xls s'ouvre en affichant dans une msgbox :
workbook_open

Daniel
"Patrick EVEN" a écrit dans le message de news:
edfl9Br$
Bonjour,

J'ai essayé sans succès la proposition de Daniel.

J'ai placé un breakpoint à l'entrée du code de Workbook_Open
dans "thisworkbook", et je constate qu'on n'y passe pas lors
de l'ouverture avec la méthode FollowHyperlink

Le problème est identique avec Excel 2000.

Une autre idée ?

Cordialement,
Patrick EVEN


"Daniel" a écrit dans le message de news:
e8xZ7Uo$
Bonjour.
Lorsqu'un classeur est ouvert par macro, la macro Auto_Open n'est pas
exécutée. Mets le code dans "thisworkbook" dans la macro Workbook_Open.
Cordialement.
Daniel
"Patrick EVEN" a écrit dans le message de news:
%234jsxDo$
Bonjour,

Sous Excel 2003, j'ai un dictionnaire de documentation.
Il contient les éléments d'information qui me permettent
de reconstituer le chemin d'accès du FicherCible que je cherche
à ouvrir avec la commande VBA suivante :

ActiveWorkbook.FollowHyperlink Address:=FichierCible, NewWindow:úlse

Pourquoi cette méthode ne déclenche t'elle pas la macro Auto_Open
du FichierCible ?
Je précise que la macro Auto_Open est correctement exécutée lorsque
le FichierCible est ouvert par une autre méthode (Fichier / Ouvrir ou
double click dans l'Explorer Windows).

Cordialement,
Patrick EVEN



















Avatar
Patrick EVEN
Daniel,

J'ai mis en pièce jointe http://cjoint.com/?ldlioNITTw
un .zip qui contient une simulation du problème.
Un Dictionnaire.xls et un Classeur à ouvrir.xls avec
les macros que tu m'as communiqué.
Il n'y a pas de commande Application.EnableEvents = False
Les deux cas de lancement de la macro Test donnent
bien des résultats différents.

Cordialement,
Patrick EVEN

"Daniel" a écrit dans le message de news:
uX5Vefy$
Bonjour.
Tu veux dire que, lorsque tu lances la macro sans utiliser le raccourci,
la macro Workbook_Open se déclenche ?
Peux-tu poster ton classeur sur www.cjoint.com en effaçant si besoin
toutes les données.
Cordialement.
Daniel
"Patrick EVEN" a écrit dans le message de news:
upxRpPy$
Daniel,

Merci pour cette précision.
J'avais bien interprété la suggestion qui fonctionne très bien
d'ailleurs.
Mais je viens de comprendre qu'un autre élément intervient dans la
problématique.
Le lancement de la macro qui fait appel à la méthode FollowHyperlink
se fait avec un raccourci clavier (Maj+Ctrl+O).
Et dans ce cas on ne passe ni dans l'Auto_Open, ni dans le Workbook_Open
!
Comment peut-on surmonter cette difficulté ?

Cordialement,
Patrick EVEN

"Daniel" a écrit dans le message de news:
eZPFBQr$
Avec XL2003, dans un module :

Sub test()
ActiveWorkbook.FollowHyperlink
Address:="e:donneesdanielmpfe61102.xls", NewWindow:úlse
End Sub

Dans le fichier 061102.xls :

- dans un module :
Sub Auto_Open()
MsgBox "auto_open"
End Sub

- dans "thisworkbook" :
Private Sub Workbook_Open()
MsgBox "workbook_open"
End Sub

A l'exécution de la première macro (test) :
le classeur 061102.xls s'ouvre en affichant dans une msgbox :
workbook_open

Daniel
"Patrick EVEN" a écrit dans le message de news:
edfl9Br$
Bonjour,

J'ai essayé sans succès la proposition de Daniel.

J'ai placé un breakpoint à l'entrée du code de Workbook_Open
dans "thisworkbook", et je constate qu'on n'y passe pas lors
de l'ouverture avec la méthode FollowHyperlink

Le problème est identique avec Excel 2000.

Une autre idée ?

Cordialement,
Patrick EVEN


"Daniel" a écrit dans le message de news:
e8xZ7Uo$
Bonjour.
Lorsqu'un classeur est ouvert par macro, la macro Auto_Open n'est pas
exécutée. Mets le code dans "thisworkbook" dans la macro
Workbook_Open.
Cordialement.
Daniel
"Patrick EVEN" a écrit dans le message de news:
%234jsxDo$
Bonjour,

Sous Excel 2003, j'ai un dictionnaire de documentation.
Il contient les éléments d'information qui me permettent
de reconstituer le chemin d'accès du FicherCible que je cherche
à ouvrir avec la commande VBA suivante :

ActiveWorkbook.FollowHyperlink Address:=FichierCible,
NewWindow:úlse

Pourquoi cette méthode ne déclenche t'elle pas la macro Auto_Open
du FichierCible ?
Je précise que la macro Auto_Open est correctement exécutée lorsque
le FichierCible est ouvert par une autre méthode (Fichier / Ouvrir ou
double click dans l'Explorer Windows).

Cordialement,
Patrick EVEN























Avatar
Daniel
Incroyable. Appel aux Gourous
"Daniel" a écrit dans le message de news:
e1eDugy$
Vérifie quand même que tu n'as pas une instruction :
Application.EnableEvents = False
avant l'ouverture du classeur.
Daniel
"Patrick EVEN" a écrit dans le message de news:
upxRpPy$
Daniel,

Merci pour cette précision.
J'avais bien interprété la suggestion qui fonctionne très bien
d'ailleurs.
Mais je viens de comprendre qu'un autre élément intervient dans la
problématique.
Le lancement de la macro qui fait appel à la méthode FollowHyperlink
se fait avec un raccourci clavier (Maj+Ctrl+O).
Et dans ce cas on ne passe ni dans l'Auto_Open, ni dans le Workbook_Open
!
Comment peut-on surmonter cette difficulté ?

Cordialement,
Patrick EVEN

"Daniel" a écrit dans le message de news:
eZPFBQr$
Avec XL2003, dans un module :

Sub test()
ActiveWorkbook.FollowHyperlink
Address:="e:donneesdanielmpfe61102.xls", NewWindow:úlse
End Sub

Dans le fichier 061102.xls :

- dans un module :
Sub Auto_Open()
MsgBox "auto_open"
End Sub

- dans "thisworkbook" :
Private Sub Workbook_Open()
MsgBox "workbook_open"
End Sub

A l'exécution de la première macro (test) :
le classeur 061102.xls s'ouvre en affichant dans une msgbox :
workbook_open

Daniel
"Patrick EVEN" a écrit dans le message de news:
edfl9Br$
Bonjour,

J'ai essayé sans succès la proposition de Daniel.

J'ai placé un breakpoint à l'entrée du code de Workbook_Open
dans "thisworkbook", et je constate qu'on n'y passe pas lors
de l'ouverture avec la méthode FollowHyperlink

Le problème est identique avec Excel 2000.

Une autre idée ?

Cordialement,
Patrick EVEN


"Daniel" a écrit dans le message de news:
e8xZ7Uo$
Bonjour.
Lorsqu'un classeur est ouvert par macro, la macro Auto_Open n'est pas
exécutée. Mets le code dans "thisworkbook" dans la macro
Workbook_Open.
Cordialement.
Daniel
"Patrick EVEN" a écrit dans le message de news:
%234jsxDo$
Bonjour,

Sous Excel 2003, j'ai un dictionnaire de documentation.
Il contient les éléments d'information qui me permettent
de reconstituer le chemin d'accès du FicherCible que je cherche
à ouvrir avec la commande VBA suivante :

ActiveWorkbook.FollowHyperlink Address:=FichierCible,
NewWindow:úlse

Pourquoi cette méthode ne déclenche t'elle pas la macro Auto_Open
du FichierCible ?
Je précise que la macro Auto_Open est correctement exécutée lorsque
le FichierCible est ouvert par une autre méthode (Fichier / Ouvrir ou
double click dans l'Explorer Windows).

Cordialement,
Patrick EVEN























Avatar
MichDenis
A ) ce que tu énonçais à savoir que l'événement Open du workbook du Thisworkbook
s'exécute à l'ouverture est vrai ....!

B ) Je retourne seulement le fichier à ouvrir -> j'ai fait une petitie modification...
et que même si l'événement Open ne s'exécutait pas... il y a toujours moyen
de "moyenner" et de faire exécuter une macro à l'ouverture du classeur.

http://cjoint.com/?ldpyqw1txV



"Daniel" a écrit dans le message de news:
eLxk120$
Incroyable. Appel aux Gourous
"Daniel" a écrit dans le message de news:
e1eDugy$
Vérifie quand même que tu n'as pas une instruction :
Application.EnableEvents = False
avant l'ouverture du classeur.
Daniel
"Patrick EVEN" a écrit dans le message de news:
upxRpPy$
Daniel,

Merci pour cette précision.
J'avais bien interprété la suggestion qui fonctionne très bien
d'ailleurs.
Mais je viens de comprendre qu'un autre élément intervient dans la
problématique.
Le lancement de la macro qui fait appel à la méthode FollowHyperlink
se fait avec un raccourci clavier (Maj+Ctrl+O).
Et dans ce cas on ne passe ni dans l'Auto_Open, ni dans le Workbook_Open
!
Comment peut-on surmonter cette difficulté ?

Cordialement,
Patrick EVEN

"Daniel" a écrit dans le message de news:
eZPFBQr$
Avec XL2003, dans un module :

Sub test()
ActiveWorkbook.FollowHyperlink
Address:="e:donneesdanielmpfe61102.xls", NewWindow:úlse
End Sub

Dans le fichier 061102.xls :

- dans un module :
Sub Auto_Open()
MsgBox "auto_open"
End Sub

- dans "thisworkbook" :
Private Sub Workbook_Open()
MsgBox "workbook_open"
End Sub

A l'exécution de la première macro (test) :
le classeur 061102.xls s'ouvre en affichant dans une msgbox :
workbook_open

Daniel
"Patrick EVEN" a écrit dans le message de news:
edfl9Br$
Bonjour,

J'ai essayé sans succès la proposition de Daniel.

J'ai placé un breakpoint à l'entrée du code de Workbook_Open
dans "thisworkbook", et je constate qu'on n'y passe pas lors
de l'ouverture avec la méthode FollowHyperlink

Le problème est identique avec Excel 2000.

Une autre idée ?

Cordialement,
Patrick EVEN


"Daniel" a écrit dans le message de news:
e8xZ7Uo$
Bonjour.
Lorsqu'un classeur est ouvert par macro, la macro Auto_Open n'est pas
exécutée. Mets le code dans "thisworkbook" dans la macro
Workbook_Open.
Cordialement.
Daniel
"Patrick EVEN" a écrit dans le message de news:
%234jsxDo$
Bonjour,

Sous Excel 2003, j'ai un dictionnaire de documentation.
Il contient les éléments d'information qui me permettent
de reconstituer le chemin d'accès du FicherCible que je cherche
à ouvrir avec la commande VBA suivante :

ActiveWorkbook.FollowHyperlink Address:=FichierCible,
NewWindow:úlse

Pourquoi cette méthode ne déclenche t'elle pas la macro Auto_Open
du FichierCible ?
Je précise que la macro Auto_Open est correctement exécutée lorsque
le FichierCible est ouvert par une autre méthode (Fichier / Ouvrir ou
double click dans l'Explorer Windows).

Cordialement,
Patrick EVEN























Avatar
Patrick EVEN
Bonjour,

J'aimerais bien pouvoir moyenner,
mais la pièce jointe résiste à mes tentatives de téléchargement !
Est-il possible de la zipper pour me donner une meilleure chance
d'arriver à la télécharger ?

Cordialement,
Patrick EVEN

"MichDenis" a écrit dans le message de news:
ehYwrQ1$
A ) ce que tu énonçais à savoir que l'événement Open du workbook du
Thisworkbook
s'exécute à l'ouverture est vrai ....!

B ) Je retourne seulement le fichier à ouvrir -> j'ai fait une petitie
modification...
et que même si l'événement Open ne s'exécutait pas... il y a toujours
moyen
de "moyenner" et de faire exécuter une macro à l'ouverture du classeur.

http://cjoint.com/?ldpyqw1txV



"Daniel" a écrit dans le message de news:
eLxk120$
Incroyable. Appel aux Gourous
"Daniel" a écrit dans le message de news:
e1eDugy$
Vérifie quand même que tu n'as pas une instruction :
Application.EnableEvents = False
avant l'ouverture du classeur.
Daniel
"Patrick EVEN" a écrit dans le message de news:
upxRpPy$
Daniel,

Merci pour cette précision.
J'avais bien interprété la suggestion qui fonctionne très bien
d'ailleurs.
Mais je viens de comprendre qu'un autre élément intervient dans la
problématique.
Le lancement de la macro qui fait appel à la méthode FollowHyperlink
se fait avec un raccourci clavier (Maj+Ctrl+O).
Et dans ce cas on ne passe ni dans l'Auto_Open, ni dans le Workbook_Open
!
Comment peut-on surmonter cette difficulté ?

Cordialement,
Patrick EVEN

"Daniel" a écrit dans le message de news:
eZPFBQr$
Avec XL2003, dans un module :

Sub test()
ActiveWorkbook.FollowHyperlink
Address:="e:donneesdanielmpfe61102.xls", NewWindow:úlse
End Sub

Dans le fichier 061102.xls :

- dans un module :
Sub Auto_Open()
MsgBox "auto_open"
End Sub

- dans "thisworkbook" :
Private Sub Workbook_Open()
MsgBox "workbook_open"
End Sub

A l'exécution de la première macro (test) :
le classeur 061102.xls s'ouvre en affichant dans une msgbox :
workbook_open

Daniel
"Patrick EVEN" a écrit dans le message de news:
edfl9Br$
Bonjour,

J'ai essayé sans succès la proposition de Daniel.

J'ai placé un breakpoint à l'entrée du code de Workbook_Open
dans "thisworkbook", et je constate qu'on n'y passe pas lors
de l'ouverture avec la méthode FollowHyperlink

Le problème est identique avec Excel 2000.

Une autre idée ?

Cordialement,
Patrick EVEN


"Daniel" a écrit dans le message de news:
e8xZ7Uo$
Bonjour.
Lorsqu'un classeur est ouvert par macro, la macro Auto_Open n'est pas
exécutée. Mets le code dans "thisworkbook" dans la macro
Workbook_Open.
Cordialement.
Daniel
"Patrick EVEN" a écrit dans le message de news:
%234jsxDo$
Bonjour,

Sous Excel 2003, j'ai un dictionnaire de documentation.
Il contient les éléments d'information qui me permettent
de reconstituer le chemin d'accès du FicherCible que je cherche
à ouvrir avec la commande VBA suivante :

ActiveWorkbook.FollowHyperlink Address:=FichierCible,
NewWindow:úlse

Pourquoi cette méthode ne déclenche t'elle pas la macro Auto_Open
du FichierCible ?
Je précise que la macro Auto_Open est correctement exécutée lorsque
le FichierCible est ouvert par une autre méthode (Fichier / Ouvrir
ou
double click dans l'Explorer Windows).

Cordialement,
Patrick EVEN




























1 2