Discussion :

[babybell]

Amis du forum, bonjour

Dans mon code

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
'****************************** Demande de lancement du programme
msg = "ATTENTION, ENVOIS DES STATISTIQUES AU RESEAU : LANCEMENT PROGRAMME ( OUI / NON ) ?"
Style = vbYesNo + vbDefaultButton2
Response = MsgBox(msg, Style, Title, Help, Ctxt)
'****************************** Si réponse négative, clôture des fichiers
If Response = vbNo Then
Set oWbk = GetObject("V:\DPDI\GFL\SCG-CHQ\PEXTRAIT\BASES EXCEL\STATS SCAN MENSUEL\Liste_Envoi_stat_agence.xls")
oWbk.Close
 
Dim Wb As Workbook
For Each Wb In Workbooks
If Wb.Name = ActiveWorkbook.Name Then
Wb.Close True
End If
Next Wb
End If

lorsque je clos le fichier "Liste_Envoi_stat_agence.xls", ma macro, au lieu de continuer par la fermeture du fichier actif se termine.

Quelqu'un saurait-il d'où peut venir le problème ?

[MarcelG]

Bonjour Babybell,

Cette ligne de code me surprend

Wb.Name = ActiveWorkbook.Name

En effet,

Code :

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

ActiveWorkbook

désigne le classeur actif; tandis que

Code :

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

ThisWorkbook

désigne le classeur dans lequel ta macro est écrite.

Ton problème peut trouver ici son origine.

[babybell]

Cela ne changera rien, la macro s'arrête après "oWbk.Close"

[MarcelG]

Babybell,

Je ne vois pas où tu veux en venir.
Dans quel classeur se trouve ta macro ? Quel classeur veux-tu fermer ?

Si tu veux fermer le classeur dans lequel la macro est écrite

Code :

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

ThisWorkbook.Close(True)

suffira

Si tu veux fermer seulement le classeur actif

Code :

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

ActiveWorkBook.Close(True)

Si tu veux fermer tous les classeurs hors celui comportant la macro

Là tu peux balayer les noms de tes classeurs

Code :

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

If Wb.name <> ThisWorkbook.Name

ou bien si tous les classeurs hors celui actif

Code :

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

If Wb.Name <> ActiveWorkbook.Name

En espérant, par ces cas de figure, avoir répondu à ton problème

[babybell]

Merci de ta réponse. Ce que je veux faire, et que j'ai déjà fait dans des programmes, mais qui là en l'ocurence ne fonctionne pas c'est :
Quand je suis dans un classeur A, j'appelle un classeur B.

Après avoir fait plein de manips, je veux fermer le classeur B puis le classeur A, sans pour autant fermer d'autres classeurs, X, Y ou Z qui eux n'ont pas besoin d'être fermés.

Et c'est là que le problème intervient. Je ferme bien le classeur B, mais ma macro s'arrête, même si mon code continue, et c'est là que je ne comprends pas.


Ais-je été assez clair ?

[MarcelG]

On est donc bien d'accord..

Si
- ta macro est écrite dans le classeur A.
- tu veux fermer le classeur B
- tu veux fermer le classeur A

Il ne faut pas fermer le classeur A, donc là où est écrite ta macro, avant d'avoir fermé le classeur B.

Dans l'ordre

Code :

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

Workbooks("ClasseurB.xls").Close(True)

puis

Code :

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

ThisWorkbook.Close(True)

Comme je l'ai dit plus haut,

Code :

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

ThisWorkbook

désigne le classeur où figure ta macro.

Tu remarqueras qu'il n'est pas besoin de balayer les classeurs de ta session Excel.

Je peux paraître obtus, mais je ne vois pas d'autre explication.