Rendre invisible des fichiers à l'ouverture

**etorria** · 23/01/2018, 15h21

Bonjour,

Je m'explique : à l'ouverture d'un premier fichier (A), deux autres (B et C) s'ouvrent également afin de mettre à jour le premier !
Jusque là, pour moi, pas de soucis avec VBA (voir code ci-dessous). Simplement je souhaite, une fois que le premier fichier est mis à jour et que je le ferme, fermer dans le même temps les deux autres.
J'espère que j'ai été assez clair !

Merci

Etorria

Code saisi dans ThisWorkbook du premier fichier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Open()
Set c = ThisWorkbook
Application.Workbooks.Open ("Z:\Performance industrielle\RAPPORT QUOTIDIEN USINE\cub_colismvt.xlsm"), , True
Application.Workbooks.Open ("Z:\Performance industrielle\RAPPORT QUOTIDIEN USINE\cub_interv_maint.xlsm"), , True
c.Activate
Set c = Nothing
With ActiveWorkbook:
.UpdateRemoteReferences = True:
.SaveLinkValues = True:
End With
Application.AskToUpdateLinks = True
End Sub

**BENNASR** · 23/01/2018, 15h38

bonsoir
Je crois au lieu de ca : Set c = Nothing
à remplacer par : c.Close True

**etorria** · 23/01/2018, 15h56

Merci mais dans ce cas Excel me propose de fermer le premier fichier en me demandant de l’enregistrer ou pas. Et les deux autres fichiers sont toujours ouverts.
Je continue à chercher !

**BENNASR** · 23/01/2018, 16h13

débutant en VBA donc attention de mes propositions

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 wk1 As Workbook, wk2 As Workbook
Set c = ThisWorkbook
Application.Workbooks.Open ("Z:\Performance industrielle\RAPPORT QUOTIDIEN USINE\cub_colismvt.xlsm"), , True
Set wk1= ActiveWorkbook
Application.Workbooks.Open ("Z:\Performance industrielle\RAPPORT QUOTIDIEN USINE\cub_interv_maint.xlsm"), , True
Set wk2= ActiveWorkbook
c.Activate
Set c = Nothing
With ActiveWorkbook:
.UpdateRemoteReferences = True:
.SaveLinkValues = True:
End With
wk1.Close True
wk2.Close True
Application.AskToUpdateLinks = True
End Sub

**etorria** · 23/01/2018, 16h36

Merci pour ton aide !
Tous les fichiers s’ouvrent puis se ferment aussitôt les fichiers B et C sans que je puisse avoir le temps de l’imprimer une fois les mises à jour effectuées.
En fait les fichiers B et C doivent se fermer après la fermeture du fichier A.
C’est possible ?
Encore merci pour ta démarche !
Etorria

**BENNASR** · 23/01/2018, 16h42

Tu dois normalement supprimer ma ancienne proposition celle de :

Code :

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

c.Close True

**etorria** · 23/01/2018, 16h56

Oui cela a été fait...

**BENNASR** · 23/01/2018, 17h02

re
et si tu déclare en haut c comme workbook??

Code :

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

 c As Workbook

et tu supprime

Code :

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

Set c = Nothing

qu'est ce que ça donne ??

**etorria** · 23/01/2018, 17h38

Ok
J’essaierai cela demain à mon bureau !
Bonne soirée
Etorria

**etorria** · 24/01/2018, 10h02

Bonjour,

Les fichiers s'ouvrent normalement mais seul le fichier A reste ouvert et n'a pas le temps de se mettre à jour car les deux autres se ferment aussitôt.

etorria

**Pierre Fauconnier** · 24/01/2018, 10h18

Salut

Code :

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

1
2
3
4
5
  Dim wk1 As Workbook
 
  Set wk1 = Workbooks.Open("d:\invisible1.xlsx")
  wk1.Windows(1).Visible = False
  ThisWorkbook.Activate

Cela dit, il serait bien plus intéressant et plus professionnel de travailler en important les données des fichiers "invisibles" via les outils natifs d'Excel que de travailler avec des liaisons (probablement sur formules, ce qui est de la pure aberration).

Si on souhaite malgré tout travailler avec des liaisons, il serait préférable de placer les chemins dans des cellules d'une feuille "paramètres" que de les coder en dur dans le code...

**BENNASR** · 24/01/2018, 10h25

Bonjour
Essayer avec ça :

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
18
19
20
21
22
23
24
 Private Sub Workbook_Open()
 Dim wk1 As Workbook, wk2 As Workbook, wk3 As Workbook
 Dim chemin1 As String, fichier1 As String, fichier2 As String
 Application.ScreenUpdating = False
 Set wk3 = ThisWorkbook
 
chemin1 = "Z:\Performance industrielle\RAPPORT QUOTIDIEN USINE\"
fichier1 = "cub_colismvt.xlsm"
Workbooks.Open chemin1 & fichier1
Set wkB1 = ActiveWorkbook
 
fichier2 = "cub_interv_maint.xlsm"
Workbooks.Open chemin1 & fichier2
Set wkB2 = ActiveWorkbook
wk3.Activate
With ActiveWorkbook:
.UpdateRemoteReferences = True:
.SaveLinkValues = True:
End With
wk1.Close True
wk2.Close True
Application.AskToUpdateLinks = True
Application.ScreenUpdating = True
End Sub

**Pierre Fauconnier** · 24/01/2018, 10h36

Il n'est pas nécessaire de passer par toutes ces contorsions

Code :

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

1
2
3
4
5
6
7
8
9
10
11
dim wk1 as workbook, wk2 as workbook
set wk1 = workbooks.open("...")
wk1.windows(1).visible=false
set wk2=workbooks.open("...")
wk2.windows(1).visible = false
with Thisworkbook
  .updateremotereferences = true
  .savelinkvalues = true
end with
wk1.close false
wk2.close false

**Phil Free** · 24/01/2018, 10h40

Bonjour,

Cela dit, il serait bien plus intéressant et plus professionnel de travailler en important les données des fichiers "invisibles" via les outils natifs d'Excel que de travailler avec des liaisons (probablement sur formules, ce qui est de la pure aberration).

Si on souhaite malgré tout travailler avec des liaisons, il serait préférable de placer les chemins dans des cellules d'une feuille "paramètres" que de les coder en dur dans le code...

Tout a fait d'accord avec ce que t'a dit Pierre Fauconnier

Mais si effectivement malgré tout tu veux continuer tu peux essayer ceci:

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
 
'avant d'ouvrir les fichiers tu ajoutes cette ligne
Application.Calculation = xlCalculationManual 'désactive le calcul automatique afin de le gérer
 
'puis ton code ici
 
 
Application.Calculate
Do
    If Application.CalculationState = xlDone Then Exit Do
    DoEvents
Loop
wk1.Close True
wk2.Close True
 
Application.Calculation =xlCalculationAutomatic

j'ai pas testé à toi de voir

**eriiic** · 24/01/2018, 11h00

Bonjour,

Tous les fichiers s’ouvrent puis se ferment aussitôt les fichiers B et C sans que je puisse avoir le temps de l’imprimer une fois les mises à jour effectuées.
En fait les fichiers B et C doivent se fermer après la fermeture du fichier A.

et bien mettre la fermeture de B et C dans le Private Sub Workbook_BeforeClose(Cancel As Boolean) de A
eric

**Pierre Fauconnier** · 24/01/2018, 11h08

Eh oui, Eric... La logique quand même...

En fait les fichiers B et C doivent se fermer après la fermeture du fichier A.

Car je vois mal comment A pourrait fermer B et C après avoir été fermé lui-même...

Je le redis encore une fois tellement ça me chagrine qu'on lie des fichiers Excel par formules: C'est à ne jamais faire!! Ca éviterait bien des soucis. Evidemment, ça demande une bonne conception des classeurs...

**eriiic** · 24/01/2018, 11h13

Oui, ils se fermeront juste avant la fermeture de A, pour lui c'est pareil.

**etorria** · 24/01/2018, 12h45

Envoyé par Pierre Fauconnier

Eh oui, Eric... La logique quand même...

Car je vois mal comment A pourrait fermer B et C après avoir été fermé lui-même...

Je le redis encore une fois tellement ça me chagrine qu'on lie des fichiers Excel par formules: C'est à ne jamais faire!! Ca éviterait bien des soucis. Evidemment, ça demande une bonne conception des classeurs...

Bonjour,

Je n'ai pas encore effectué de test mais je souhaite en savoir plus sur ces propos !
Mes connaissances en VBA sont certes limitées, mais je suis ouvert à toutes critiques...raisonnées !
Donc Mr Fauconnier, quelle(s) solution(s) me proposez-vous si ce n'est des liaisons ?
Merci
Etorria

**etorria** · 24/01/2018, 12h46

Envoyé par Phil Free

Bonjour,

Tout a fait d'accord avec ce que t'a dit Pierre Fauconnier

Mais si effectivement malgré tout tu veux continuer tu peux essayer ceci:

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
 
'avant d'ouvrir les fichiers tu ajoutes cette ligne
Application.Calculation = xlCalculationManual 'désactive le calcul automatique afin de le gérer
 
'puis ton code ici
 
 
Application.Calculate
Do
    If Application.CalculationState = xlDone Then Exit Do
    DoEvents
Loop
wk1.Close True
wk2.Close True
 
Application.Calculation =xlCalculationAutomatic

j'ai pas testé à toi de voir

Bonjour,

Je vais effectuer le test, je vous tiens au courant dans l'après-midi !
Etorria

Rendre invisible des fichiers à l'ouverture

Macros et VBA Excel

Discussions similaires

Partager

Partager