Suite du programme impossible

Amis du forum, bonjour

Dans mon code

Code:

---

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 ?

Bonjour Babybell,

Cette ligne de code me surprend

Wb.Name = ActiveWorkbook.Name

En effet,

Code:

---

ActiveWorkbook

---

désigne le classeur actif; tandis que

Code:

---

ThisWorkbook

---

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

Ton problème peut trouver ici son origine.

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

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:

---

ThisWorkbook.Close(True)

---

suffira

Si tu veux fermer seulement le classeur actif

Code:

---

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:

---

If Wb.name <> ThisWorkbook.Name

---

ou bien si tous les classeurs hors celui actif

Code:

---

If Wb.Name <> ActiveWorkbook.Name

---

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

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 ?

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:

---

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

---

puis

Code:

---

ThisWorkbook.Close(True)

---

Comme je l'ai dit plus haut,

Code:

---

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.

Ce que tu décries, c'est bien ce que je faisais. Je viens de réessayer, et cela ne fonctionne pas plus. Mon Fichier B se ferme bien, mais mon code ne continue pas. C'est plus fort que jouer au bouchon !

Montre ton code comme tu l'as modifié.

Cela ne viendrait-il pas du fait que, du fichier A, je vais chercher le fichier B; que du fichier B, je lance un code par application.run dans le Fichier A car il vient d'un Userform, et que je ferme le fichier B à partir du A si les stats ne sont pas à lancer ?

Voici les codes des classeurs:
Fichier A

Code:

---

1 2 3 4 5 6

Private Sub Workbook_Open() Application.ScreenUpdating = False '****************************** Ouverture du classeur "Liste_Envoi_stat_agence.xls" Workbooks.Open Filename:="C:\Users\Philippe\Desktop\NEW\Liste_Envoi_stat_agence.xls" Envois_des_mails End Sub

---

Fichier B

Code:

---

1 2 3 4 5

Private Sub Workbook_Open() Application.WindowState = xlMaximized variables_publiques Choix_du_Message.Show End Sub

---

USERFORM

Code:

---

1 2 3 4 5

Private Sub Envois_Statistiques_Click() Unload Choix_du_Message Windows("Envois des Fichiers aux DECs.xls").Activate Application.Run "'Envois des Fichiers aux DECs.xls'!Envois_des_mails" End Sub

---

Fichier A

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

'****************************** Dimentionnement de la variable des messages destinés au réseau Dim Texte(100), Chemin_Fichier_en_PJ As String, numéro_DEC_en_cours '****************************** 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 fichiers If Response = vbNo Then Workbooks("ClasseurB.xls").Close (True) Dim Wb As Workbook For Each Wb In Workbooks If Wb.Name = ActiveWorkbook.Name Then Wb.Close True End If Next Wb End If

---

Si ta macro est écrite dans A, tu peux exécuter une macro de B par la méthode Apllication.Run comme tu l'as dit.
Il n'empêche que ThisWorkbook désignera toujours A.

Une voie à laquelle je viens de penser.
Dans ton code, place régulièrement les 2 méthodes simultanément.

Code:

---

1 2	Debug.Print ActiveWorkbook.Name Debug.Print ThisWorkbook.Name

---

afin de voir sur quel classeur tu agis.

(Pour ouvrir le fenêtre Exécution ==> CTRL + G)

Dans un 2ème temps, procède à une exécution pas à pas (F8)

je viens de voir ton code.

Pourquoi coder

Code:

---

1 2 3 4 5 6

Dim Wb As Workbook For Each Wb In Workbooks If Wb.Name = ActiveWorkbook.Name Then Wb.Close True End If Next Wb

---

Code:

---

Activeworkbook.Close(True)

---

suffirait, non ?

Mais s'il s'agit du classeur où est écrite ta macro, il te faut coder

Code:

---

ThisWorkbook.Close(True)

---

Je dois arrêter, je m'y remet demain. Merci à toi, bonne soirée

Salut

Citation:

---

Envoyé par MarcelG

Si ta macro est écrite dans A, tu peux exécuter une macro de B par la méthode Apllication.Run comme tu l'as dit.

---

Sauf que c'est pas ce qu'il a dit et en regardant le code c'est effectivement différent de ce que tu penses.
Il exécute un code contenu dans Classeur A a partir d'un Run exécuté dans Classeur B. Et ce code ferme Classeur B... il ferme donc le classeur qui fait appelle au code via le Run.

Honnetement je ne sais pas comme ca se passe dans un tell cas, mais la logique voudrait que ton appele Run se termine avant de fermer le classeur appelant.

Pourquoi ne pas faire la demande a l'utilisateur (Voulez vous continuer) avant de déclencher le Run


Fichier A

Code:

---

1 2 3 4 5 6

Private Sub Workbook_Open() Application.ScreenUpdating = False '****************************** Ouverture du classeur "Liste_Envoi_stat_agence.xls" Workbooks.Open Filename:="C:\Users\Philippe\Desktop\NEW\Liste_Envoi_stat_agence.xls" Envois_des_mails End Sub

---

Fichier B

Code:

---

1 2 3 4 5

Private Sub Workbook_Open() Application.WindowState = xlMaximized variables_publiques Choix_du_Message.Show End Sub

---

USERFORM

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Envois_Statistiques_Click() Unload Choix_du_Message Windows("Envois des Fichiers aux DECs.xls").Activate   '****************************** 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)   If Response = vbNo Then 'Tu fermes le classeur B Else Application.Run "'Envois des Fichiers aux DECs.xls'!Envois_des_mails" End If   End Sub

---

Fichier A

Code:

---

1 2 3 4

'****************************** Dimentionnement de la variable des messages destinés au réseau Dim Texte(100), Chemin_Fichier_en_PJ As String, numéro_DEC_en_cours   'Ici suite de ton programme

---

++
Qwaz

Bonsoir Qwazerty, merci de ton aide;
le problème est toujours le même, car mon userform se trouve dans le fichier B, donc si je le ferme, il me reste toujours le fichier A qui n'est pas fermé.

Bonsoir à tous.

Mon problème étant insoluble, quoi que je fasse, il reste toujours un classeur d'ouvert, je les ai mis tous les deux ensemble, c'est plus simple.

Merci encore à vous de votre aide