Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

sebastien450

XLDnaute Occasionnel
Bonjours à tous déja!
J'ai un petit soucis, pour mon étude j'ouvre simultanément 2 classeurs Excel.
Mon problème se présente car j'aimerais également que les 2 classeurs se ferme! Ma macro est la suivante:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
UserForm1.Show

' rep = InputBox("date")
' Range(Y28) = rep


Sheets("Commande Out 9009").Select
Dim c As Range
Range("J4:J10").Name = "zone1"
Range("J12:J63").Name = "zone2"
For Each c In Union([zone1], [zone2])
If (c) = "OUI" Then
MailAvecOEouWinMail1

Exit Sub
Cells(11, 11) = "9"
End If
Next
Exit Sub

End Sub


Seulement je ne sais pas comment faire pour qu'il ferme l'autre classeur!
 
Re : Fermer 2 classeurs

Bonjour Sébastien,

Je pense avoir trouvé la raison.
En fait, dans la procédure d'envoi du mail, il y a une fin du programme avec l'instruction "End" donc la suite ne s'effectue pas.

Peux-tu modifier la procédure comme suit ?

Code:
Sub MailAvecOEouWinMail1()

Dim WshShell As Object
Dim Dest As String
Dim Sujt As String
Dim Msg As String
Dim MailProg As String
Dim Env As String, Pos As Integer

Set WshShell = CreateObject("WScript.Shell")
MailProg = "C:\Program Files\Windows Mail\WinMail.exe"
Set WshShell = Nothing
Pos = InStrRev(MailProg, "%")
If Pos > 0 Then
Env = Environ(Mid(MailProg, 2, Pos - 2))
MailProg = Mid(MailProg, Pos + 1)
End If

Dest = "sebastien_seb_5@msn.com"
Sujt = "Besoin de pièces"
Msg = "Bonjours Volo il faudrait que tu me commande des pièces pour l'Outil XXX"
Shell Env & MailProg & " /mailurl:mailto:" & Dest & "?subject=" & _
Sujt & "&Body=" & Msg
[COLOR="Red"]''''''End   à enlever car cela arrête les procédures[/COLOR]
End Sub

Tu fais un essai et tu me dis ?
Merci
 
Re : Fermer 2 classeurs

CBEA, tu peut m'aider? J'ai un probleme, aprés quelques modifs mon classeur ne se ferme pas quand je n'envoie pas le mail. Il bloque sur la derniere ligne, celle qui demande fermeture du classeur gestion ressorts dans le Workbooks
 
Notre forum d’entraide est 100 % gratuit et le restera.
Aucune formation payante, aucun fichier à acheter, rien à vendre. Mais comme tout site, nous devons couvrir nos frais pour continuer à vous accompagner.
Soutenez-nous en souscrivant à un compte membre : c’est rapide, vous choisissez simplement votre niveau de soutien et le tour est joué.

Je soutiens la communauté et j’accède à mon compte membre

Discussions similaires

Réponses
0
Affichages
364
  • Question Question
Réponses
10
Affichages
840
Réponses
1
Affichages
646
Réponses
2
Affichages
2 K
Réponses
4
Affichages
1 K
Réponses
2
Affichages
845
Réponses
7
Affichages
1 K
Retour