Ouvrir un autre classeur à l'ouverture d'un classeur

**Pierre Fauconnier** · 10/05/2018, 11h21

Salut.

Pour répondre à la question sur la différence en ThisWorkbook et ActiveWorkbook...

thisworkbook est celui qui contient la macro en train de s'exécuter, Activeworkbook pointe vers... le classeur actif. Il se peut que ce soit les mêmes.

Je ne vois personnellement aucune raison de croche-pied ou de malentendu lorsque cette différence est bien comprise.

Nom : 2018-05-10_111935.png
Affichages : 345
Taille : 229,9 Ko

Nom : 2018-05-10_111935.png
Affichages : 345
Taille : 229,9 Ko

**Pierre Fauconnier** · 10/05/2018, 11h35

Ce serait utile de faire fonctionner le code que je t'ai donné au message #3 en pas à pas, car il est parfaitement fonctionnel. Pour pouvoir l'exécuter en pas-à-pas, ajoute une ligne de débogage en début de macro puis avance avec F8...

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open()
  Debug.Assert False ' a pour effet de suspendre l'exécution du code
  Application.ScreenUpdating = False
  Workbooks.Open ThisWorkbook.Path & "\images.xlsx"
  ThisWorkbook.Activate
  Application.ScreenUpdating = True
End Sub

**retraite83** · 10/05/2018, 13h06

J'ai fait le test,

je vois bien s'ouvrir le

Code :

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

1
2
 
Workbooks.Open ThisWorkbook.Path & "\classeur2.xlsm"

par contre rien ne change sur

Code :

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

1
2
 
ThisWorkbook.Activate

et le classeur actif est "Classeur2"
Si je suis ton raisonnement :

"thisworkbook est celui qui contient la macro en train de s'exécuter"

je ne comprends pas pourquoi le classeur actif ne reste pas "Classeur1" qui contient la macro...

**Nicolas JACQUIN** · 10/05/2018, 13h26

Bonjour les amis

Code :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
Dim wb As Workbook
 
Workbooks.Open ThisWorkbook.Path & "\Classeur2.xlsm"
Set ws = Nothing
Windows("Namefile.xlsm").Activate
 
End Sub

Pour ma part je procède comme ça et ça fonctionne

**Pierre Fauconnier** · 10/05/2018, 14h35

Salut Nicolas

Dim wb... et set wb... sont inutiles, pensé-je...

Et comment fais-tu si tu as plusieurs fenêtres ouvertes sur Namefile.xlsm?

Et que fais-tu si on a utilisé un code du style thisworkbook.windows(1).caption = "Tartempion René"?

Perso, je code que j'ai proposé fonctionne toujours chez moi. S'il ne fonctionne pas chez Retraité72, c'est qu'il y a quelque chose dans un de ses classeurs qui pose problème.

**Pierre Fauconnier** · 10/05/2018, 14h41

Envoyé par retraite83

[...]
et le classeur actif est "Classeur2"
Si je suis ton raisonnement :

"thisworkbook est celui qui contient la macro en train de s'exécuter"

je ne comprends pas pourquoi le classeur actif ne reste pas "Classeur1" qui contient la macro...

C'est normal qu'à l'ouverture de classeur2, ce soit lui qui soit actif. C'est cela qui fait la différence entre ThisWorkbook et ActiveWorkbook

Si on reprend mon code et que l'on considère qu'il se trouve dans Classeur1.

A l'ouverture de Classeur1, lorsque la macro Workbook_Open de classeur1 s'exécute, Thisworkbook (TWB) = Classeur1 et ActiveWorkbook (AWB) = Classeur1

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open()
  Debug.Assert False ' a pour effet de suspendre l'exécution du code
  Application.ScreenUpdating = False
  Workbooks.Open ThisWorkbook.Path & "\images.xlsx" ' Après l'exécution de cette ligne, TWB = classeur1 et AWB = Images
  ThisWorkbook.Activate ' après cette ligne, TWB = Classeur1 et AWB = Classeur1
  Application.ScreenUpdating = True
End Sub

Par contre, tu parles dans ton dernier exemple de Classeur2.xlsm (=> qui contient donc potentiellement des macros). Dans ce classeur, y-a-t-il aussi une macro dans Workbook_Open?

**Nicolas JACQUIN** · 10/05/2018, 14h42

Effectivement j'ai repris un de mes codes sans trop réfléchir,
mais je ne doute pas que ton code fonctionne.

**Pierre Fauconnier** · 10/05/2018, 14h46

Envoyé par Nicolas JACQUIN

Effectivement j'ai repris un de mes codes sans trop réfléchir,
mais je ne doute pas que ton code fonctionne.

Je relève juste cela car on n'est jamais tout à fait certain du caption de la fenêtre

Par contre, je ne comprends pas pourquoi "mon" code (je n'ai rien inventé

) ne fonctionne pas chez Retraité72

**Nicolas JACQUIN** · 10/05/2018, 14h58

Envoyé par Pierre Fauconnier

Je relève juste cela car on n'est jamais tout à fait certain du caption de la fenêtre

Par contre, je ne comprends pas pourquoi "mon" code (je n'ai rien inventé

) ne fonctionne pas chez Retraité72

J'ai repris ton code sans

Code :

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

Application.ScreenUpdating = False

et ça devrait fonctionner je pense parce que tel quel pour moi ça ne fonctionnait pas non plus

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open()
  'Debug.Assert False ' a pour effet de suspendre l'ex?cution du code
  'Application.ScreenUpdating = False
  Workbooks.Open ThisWorkbook.Path & "\images.xlsx" ' Apr?s l'ex?cution de cette ligne, TWB = classeur1 et AWB = Images
 Windows("test.xlsm").Activate 'remettre le nom exacte du fichier principal
 ' Application.ScreenUpdating = True
End Sub

Au plaisir

Edit: qui reprend mon code en gros

**Pierre Fauconnier** · 10/05/2018, 15h02

Avec Windows("test.xlsm").Activate, ce n'est pas mon code, justement, puisqu'il utilise Windows dont je ne suis pas sûr...

Mais on pourrait en effet tenter mon code sans le application.ScreenUpdating

Code :

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

1
2
3
4
Private Sub Workbook_Open()
  Workbooks.Open ThisWorkbook.Path & "\images.xlsx" 
  ThisWorkbook.Activate 
End Sub

Mais je ne vois pas pourquoi le screenupdating poserait problème

**Nicolas JACQUIN** · 10/05/2018, 15h07

Oui comme ça ça marche

**retraite83** · 10/05/2018, 15h24

Je confirme que :

Code :

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

1
2
3
4
5
 
Private Sub Workbook_Open()
  Workbooks.Open ThisWorkbook.Path & "\images.xlsx" 
  ThisWorkbook.Activate 
End Sub

fonctionne très bien !!

sans le :

Code :

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

1
2
 
Application.ScreenUpdating = False

#26 : je n'ai aucune macro dans "Classeur2"

Pour moi le post est résolu, merci à tous

**Pierre Fauconnier** · 10/05/2018, 15h29

Tu m'en vois ravi... Je commençais à me poser des questions...

Peut-être ton fichier Images est-il trop lourd à charger et que ça pose problème pour le screenupdating...

**Nicolas JACQUIN** · 10/05/2018, 15h38

A Pierre

J pense que si screenupdating=false, ThisWorkbook est bien "images.xlsx"
vu qu'il a pour effet d'accélerer et limiter les effets graphiques lors du déroulement de la macro, non??

**Pierre Fauconnier** · 10/05/2018, 15h45

Bien sûr Nicolas, c'est pour cela que je le remettais à True en fin de macro.

Cela étant, normalement, il repasse à True automatiquement en fin de macro, dès que la pile d'appels VBA est vide et que la main est rendue à Excel. Mais j'ai déjà constaté certains blocages, et c'est pourquoi je remets systématiquement et explicitement screenupdating à true en fin de proc.

Chez moi, ces deux lignes concernant screenupdating ne posaient pas de problème, c'est pourquoi j'ai émis l'idée que le poids du classeur Images puisse entrer en ligne de compte (pour comprendre de quoi il retourne dans ce classeur, regarde l'historique des discussions ouvertes par Retraité72...

).

**retraite83** · 10/05/2018, 15h47

Je confirme que mon fichier image (un catalogue) est chargé en images puisque c'est son rôle.

Il fait 15Mo

**Nicolas JACQUIN** · 10/05/2018, 15h57

Je vais pas m'éterniser comme à chaque fois

j'ai essayé avec un classeur vide (images) pour reprendre le code à Pierre mais sans réussite, peut-être les versions excel.
A bientôt

**pijaku** · 10/05/2018, 16h08

Bonjour,
@Pierre : 73 pas 82. Tu vieillis notre pauvre retraité...

Toutefois, sur ce sujet, je rejoins Unparia (salutations l'ami), dans le sens ou j'aime avoir mes objets bien au chaud dans leurs variables respectives.
De plus, il me semble que l'on peut affecter, à une variable (là je ne peux pas vérifier), directement le classeur lors le son ouverture.
Ce qui pourrait donner quelque chose comme :

Code :

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

1
2
3
Dim Wb1 As Workbook, Wb2 As Workbook
Set Wb1 = ThisWorbook 'Classeur 1
Set Wb2 = Workbooks.Open("Pathcompletduclasseur2") 'ici j'ai un gros doute sur la syntaxe... désolé

En gros, je préfère n'utiliser ThisWorbook ou ActiveWorkbook que si je suis sûr de n'avoir qu'un seul classeur ouvert....

**Pierre Fauconnier** · 10/05/2018, 16h09

Nicolas,

Je viens de refaire le test en 2016 et ça fonctionne sans soucis. Mais je ne vois pas en quoi la version influerait.

Avec quel Excel travailles-tu?

**pijaku** · 10/05/2018, 16h10

Erratum : 83 pas 72.
En fait, Pierre , tu le rajeunit ;-)

Ouvrir un autre classeur à l'ouverture d'un classeur [XL-2016]

Macros et VBA Excel

Discussions similaires

Partager

Partager