Microsoft 365 ouvrir deux fichiers au même temps contient un programme Vba

halimhamdi · 25 Juin 2022

bonjour
j'ai un problème d'ouvrir deux fichiers au mem temps avec un programme vba , est ce que possible d'ouvrir deux classeurs et l'utiliser au même temps ou non !!je partage avec vous les deux fichiers pour voir le problème .
merci pour vos aide

Dudu2 · 25 Juin 2022

Bonjour,
Bien sûr que c'est possible d'ouvrir 2 ou plus classeurs à partir du VBA.
Le dernier ouvert est le classeur actif.

VB:

Set WB1 = Workbooks.Open("<chemin complet>")
Set WB2 = Workbooks.Open("<chemin complet>")

Le Workbook qui exécute le code VBA est ThisWorkbook.
Il peut par exemple être réactivé avec Windows(ThisWorkbook.Name).Activate.
Pour activer l'un des autres ce sera Windows(WB1.Name).Activate.
Dans ce genre de cas, il plus qu'essentiel de bien qualifier complètement les références aux données:
<Workbook>.<Worksheet>.Range()

Si les classeurs ouverts ont du code dans leurs fonctions Workbook_Open() ou Auto _Open() il peut être inhibé en plaçant avant leur ouverture une Application.EnableEvents = False et l'inverse après.

soan · 26 Juin 2022

Bonjour Dudu2, halimhamdi,

Dudu2 à dit:
Si les classeurs ouverts ont du code dans leurs fonctions Workbook_Open() ou Auto _Open()

pour Auto_Open() : oh la la, que c'est vieux, ça ! c'était pour Excel 2003 (et versions antérieures) ! à partir d'Excel 2007, ça ne lit même pas Auto_Open() ! car même s'il est présent : il est tout simplement ignoré, et ça cherche s'il y a ou non Workbook_Open() ; petit détail : halimhamdi est sur Microsoft 365 ! donc c'est sûr qu'il n'utilise pas Excel 2003 (ou une version antérieure) !

pour toutes les infos que tu as écrites à propos de Application.EnableEvents = False, c'est très bien de les avoir mentionnées !

soan

patricktoulon · 26 Juin 2022

soan à dit:
Bonjour Dudu2, halimhamdi,

pour Auto_Open() : oh la la, que c'est vieux, ça ! c'était pour Excel 2003 (et versions antérieures) ! à partir d'Excel 2007, ça ne lit même pas Auto_Open() ! car même s'il est présent : il est tout simplement ignoré, et ça cherche s'il y a ou non Workbook_Open() ; petit détail : le demandeur est sur Microsoft 365 ! donc c'est sûr qu'il n'utilise pas Excel 2003 (ou une version antérieure) !

pour toutes les infos que tu as écrites à propos de Application.EnableEvents = False, c'est très bien de les avoir mentionnées !

soan

Bonjour @soan
sur les versions après 2007 il est déclenché après le workbook-open alors que sur 2007 c'est lui en premier qui était déclenché

c'est là toute l'astuce en fait

la solution est simple donc pour les versions +2007
transférer le code du workbook_open dans le sub auto_open
et voilà le code du classeur 2 ne sera exécuté uniquement si le classeur 2 est ouvert par l'utilisateur

oserais-je dire que cet event non implémenté est fait justement pour çà

soan · 26 Juin 2022

Bonjour patrick,

j'croyais que Auto_Open() n'était plus lu du tout !

merci pour tes infos complémentaires !

soan

patricktoulon · 26 Juin 2022

re
une autre solution serait de faire un pseudo event workbook_open de remplacement de l'original
piloté par la sub auto_open

dans le classeur qui est sensé être ouvert par l'autre
dans le module thisworkbook

VB:

Public Sub Workbook2_Open()
MsgBox "coucou je suis ouvert par l'utilisateur"
End Sub

dans le module standard

VB:

Sub auto_open()
ThisWorkbook.Workbook2_Open
End Sub

essaie de l'ouvrir seul et par un autre

patricktoulon · 26 Juin 2022

re
@soan
sur 2007 les deux sont lus ,sur les versions + 2007 non
encore un exemple du massacre de vba a petit feu sur les versions sup 2007

soan · 26 Juin 2022

patricktoulon à dit:
encore un exemple du massacre de vba a petit feu sur les versions sup 2007

lolllllllllllll ! le pauvre vba !!!!!!

Dudu2 · 26 Juin 2022

Bonjour @soan, @patricktoulon, les visiteurs du dimanche,

En effet, je m'en suis servi une fois (Excel 2013, 2016) pour différencier une ouverture par l'utilisateur et une ouverture par macro d'un autre classeur. C'est pratique pour ça.
Parfois aussi je mets dans Auto _Open() du code que je devrais mettre dans Workbook_Open() pour avoir tout sous les yeux dans un module.
Il y a le symétrique Auto_Close().

Dudu2 · 26 Juin 2022

Je précise que:
- Auto _Open() n'est pas déclenché si le classeur est ouvert par la macro d'un autre classeur.
- Auto_Close() n'est pas déclenché si le classeur est fermé par la macro d'un autre classeur.
Donc ce sont des fonctions qui valorisent le travail manuel

patricktoulon · 26 Juin 2022

m'en fou moi j'ai les bras cassés

halimhamdi · 26 Juin 2022

Bonjour mes monsieur
Merci pour vos réactivité et aide ,est ce que tu peux faire le changement sur les deux fichiers si possible bien sûr parceque je suis pas pro avec la programation vba ..et merci bcp autre fois

Dudu2 · 26 Juin 2022

@halimhamdi,

Faire quoi dans ces fichier ? Et dans quelle fonction ?
J'y comprends absolument rien dans ces fichiers.
Qu'est-ce qu'il faut faire ?

halimhamdi · 27 Juin 2022

Quand vous ouvrez les deux fichiers sur le bureau tu ne peut pas utiliser les deux seulement un seul fichier mais pour compléter les taches il faut utiliser les deux le premier pour traçabilité et le deuxième pour avoir un check list de suivi

Dudu2 · 27 Juin 2022

Quand vous ouvrez les deux fichiers sur le bureau tu ne peut pas utiliser les deux seulement un seul fichier

Qu'est-ce que tu veux dire par là ?
Quand j'ouvre les 2 fichiers il ne se passe rien, aucun problème.
Alors si tu veux exposer un dysfonctionnement, faudrait expliquer en quoi ça ne fonctionne pas précisément.

Microsoft 365 ouvrir deux fichiers au même temps contient un programme Vba

halimhamdi

XLDnaute Junior

Pièces jointes

Dudu2

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

halimhamdi

XLDnaute Junior

Dudu2

XLDnaute Barbatruc

halimhamdi

XLDnaute Junior

Dudu2

XLDnaute Barbatruc

Discussions similaires