Discussion :

[retraite83]

Bonjour,

il y a quelque chose que je n'arrive pas à saisir malgré mes multiples essais et recherche dans ma macro de fermeture du fichier "fichAv" :

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
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
Dim fichInt As String, integ As Worksheet, EsInt As String
 
EsInt = fich26 & ".xlsm"
fichInt = ThisWorkbook.Path & "\" & EsInt
 
Application.ScreenUpdating = False
MsgBox "ok"
Workbooks.Open fichInt
Set integ = Workbooks(EsInt).Sheets("Ctrl")
integ.Range("B2") = 0
Workbooks(EsInt).Close True
 
End Sub

Si je ferme le fichier "fichAv" en cliquant sur la croix en haut à droite de l'écran, tout est ok, Msgbox affichée et top en B2 = 0 dans le fichier fich26

Si je ferme par macro :

Code :

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

Workbooks(fichAv).Close False

j'ai bien "ok" mais fich26 n'est pas ouvert et j'ai erreur sur la ligne

Set integ = Workbooks(EsInt).Sheets("Ctrl")

(normal le fichier n'est pas ouvert)

je cherche aussi du côté de

Cancel As Boolean)

mais sans trouver...
Avez-vous une explication et une solution ?

Je sèche...

[Lou Pitchoun]

Bonjour,

Je ne voudrais pas faire d'erreur dans mon interprétation, mais il me semble que l'instance d'Excel se ferme avant que tu puisses ouvrir le fichier.

Par contre, si tu places le code à exécuter avant la fermeture dans le code de fermeture, cela va fonctionner.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim fichInt As String, integ As Worksheet, EsInt As String
 
EsInt = fich26 & ".xlsm"
fichInt = ThisWorkbook.Path & "\" & EsInt
 
Application.ScreenUpdating = False
MsgBox "ok"
Workbooks.Open fichInt
Set integ = Workbooks(EsInt).Sheets("Ctrl")
integ.Range("B2") = 0
Workbooks(EsInt).Close True
 
Workbooks(fichAv).Close False

[BENNASR]

Bonjour
ce n'est qu'une recommandation d'un autodidacte ,méfiez vous
Si tu précède la fermeture de ton fichier par on error resume next (entre ligne 12 et 13 :

Code :

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

1
2
3
4
5
6
 
 
Set integ = Workbooks(EsInt).Sheets("Ctrl")
integ.Range("B2") = 0
on error resume next
Workbooks(EsInt).Close True

[Menhir]

Si je ferme par macro :

A ta place, je commencerais par mettre un Debug.Print en début de la macro Before_Close pour savoir à quoi font référence ThisWorkbook et la variable fich26 (qui ne semble pas renseignée dans ce code).

Cela dit, à ma connaissance, VBA n'est pas multi-tâches.
Donc, avec ce type de montage, tu joues un peu à la roulette russe.

Si tu précède la fermeture de ton fichier par on error resume next (entre ligne 12 et 13 :

Ca, ça s'appelle cacher la poussière sous le tapis...

[retraite83]

Bonjour,

#4
ThisWorkbook est correct et la variable fich26 est définie en "cste public" dans un autre module

#3

on error resume next

ne sert à rien puisque le fichier "EsInt" n'est pas ouvert

#2
Cela ne marche pas
Du coup je ne sais plus quoi faire,

Je rappelle le problème qui m'intrigue toujours c'est la différence de fonctionnement entre le close par la croix en haut de l'écran (qui fonctionne) et le close par macro (qui plante) avec le même code dans la fermeture
LE FICHIER "EsInt" NE S'OUVRE PAS DANS LE CLOSE PAR MACRO ALORS QU'IL S'OUVRE LORS DE LA FERMETURE PAR LA CROIX DE L'ECRAN

[Menhir]

la variable fich26 est définie en "cste public" dans un autre module

Si je te conseille de faire quelque chose et que tu ne prends pas la peine de le faire, il ne sert à rien que je réponde.
Avant d'énoncer ce que tu crois être une certitude, vérifie-le avec les méthode qu'on t'indique.

[retraite83]

Voilà le résultat avec debug.print (je n'ai jamais utilisé, j'utilise souvent le pas à pas)

Je n'arrive vraiment pas à comprendre pourquoi la macro fonctionne bien en fermant le fichier par la croix en haut de l'écran et qu'elle plante en fermeture du fichier par macro.

Pourquoi passe-t-on sur

Code :

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

Workbooks.Open fichInt

sans ouvrir le fichier, sans message d'erreur et plantage seulement après sur l'affectation

Set integ = Workbooks(EsInt).Sheets("Ctrl")

[Lou Pitchoun]

J'ai réfléchi au problème... Cela fait tellement longtemps que je n'ai plus fait régulièrement du VBA que j'ai oublié certaines choses...

En fait le problème vient du fait qu'il faut créer une nouvelle instance Excel et travailler sur cette instance... j'ai testé ça fonctionne sur l'évènement BeforeClose.

J'ai un peu adapté ton code, mais tu t'y retrouveras.

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
Dim fichInt As String, oApp As Application, oClasseur As Workbook, EsInt As String
 
EsInt = "classeur2.xlsm"
fichInt = ThisWorkbook.Path & "\" & EsInt
 
Application.ScreenUpdating = False
Set oApp = New Excel.Application
Set oClasseur = oApp.Workbooks.Open(fichInt)
With oClasseur.Sheets("Ctrl")
    .Range("B2") = 0
End With
 
' Fermeture des objets
oClasseur.Close True
oApp.Quit
 
' Libération des objets
Set XlsApp = Nothing
Set oClasseur = Nothing