Discussion :

[ALAIN JAGUAR]

Bonjour a la communauté ,j'ai une préoccupation .j'ai 7 fichiers excel parmi les quels un des sept fichier représente le fichier principal .le fichier principal récupère des données sur les six autres fichiers .j'aimerais que quand j'ouvre le fichier principal les autres six fichiers s'ouvrent mais seul le fichier principal doit-être actif a l'écran et lorsque je ferme le fichier principal tout les fichiers se ferment .votre aide sera la bienvenue

[mfoxy]

Bonsoir,

S'il s'agit d'importer les données de différents fichiers dans un fichier synthèse, l'outils le mieux approprié serait Power Query.
À voir la finalité de votre projet je ne comprend pas trop le fait de vouloir garder simultanément ouvert les différents fichiers.

Bav,
MFoxy

[ALAIN JAGUAR]

Bonsoir,

S'il s'agit d'importer les données de différents fichiers dans un fichier synthèse, l'outils le mieux approprié serait Power Query.
À voir la finalité de votre projet je ne comprend pas trop le fait de vouloir garder simultanément ouvert les différents fichiers.

Bav,
MFoxy

Il s'agit d'une application excel permettant la gestion des notes d'un établissement.moi ici j'ai 7 fichiers (6ieme.xlsm;5ieme.xlsm;4ieme.xlsm;3ieme.xlsm;2nde.xlsm;première. Xlsm; menu.xlsm) j'aimerais accédé a chaque classe depuis le menu et j'aimerais que quand j'ouvre le fichier menu.xlsm les autres fichiers s'ouvrent automatiquement sans que je n'ai a les ouvrirent encore manuellement surtout Que la feuille de menu.xlsm permet de lier toute les autres feuilles .

[78chris]

Bonjour

Sur 2013 je pense que la notion d’environnement existe encore : https://www.excel-plus.fr/bases/tech...nt-de-travail/

[BENNASR]

bonjour
vous pouvez tester :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Workbook_Open()
Dim wkA As Workbook
Dim D1 As Workbook
Dim chemin As String, fichier As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wkA = ThisWorkbook
sixieme = "C:\Users\DELL\Desktop\ALAIN JAGUAR\6ieme"
cinquième = "C:\Users\DELL\Desktop\ALAIN JAGUAR\5ieme"
        On Error Resume Next
        Workbooks.Open sixieme
        Workbooks.Open cinquième
wkA.Sheets("feuil1").Activate
Set wkA = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

et pour fermer les dossier :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
        Workbooks("6ieme.xlsx").Save
         Workbooks("6ieme.xlsx").Close True
         Workbooks("5ieme.xlsx").Save
         Workbooks("5ieme.xlsx").Close True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

[ALAIN JAGUAR]

bonjour[...]

Merci pour ton intervention mais le code d'ouverture et de fermeture restent au même endroit ?

Ou soit créé un bouton et inserer le code pour fermer

[BENNASR]

Dans workbook open et non pas un module
Clic dans thisworkbook et mettre le code la bas pour que le code s'excute automatiquement à l'ouverture du classeur et à la fermeture du classeur sans besoin d'un bouton de commande

[Pierre Fauconnier]

Salut.

Je serais curieux de connaître la configuration de ton environnement Excel, mais je mets ma main à couper que c'est un défaut de conception qui amène à devoir travailler avec 7 fichiers ouverts en même temps.

Ca ne peut que mener à l'usine à gaz


My two cents