un p'tit problème de mail

[michel29]

Voila mon problème j'ai implanté ce code pour envoyer une feuille de mon classeur ...Cela fonctionne tres bien mais quand je veux en reexpedier une autre il me genere une erreur ..Ayant chercher quand même un peu (voir beaucoup) il se trouve que le programme copie la feuil1 non pas dans le "classeur1" mais dans "classeur2" pourtant le classeur1 est belle et bien fermé.
Pour pouvoir reenvoyer un mail il faut fermer totalement mon programme et le reouvrir..

ThisWorkbook.Sheets("feuil1").Copy
Workbooks("classeur1").HasRoutingSlip = True
With Workbooks("classeur1").RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("michel29")
.Subject = "Demande de destockage ..."
.Message = "Merci de faire le nécessaire"
End With
Workbooks("classeur1").Route
Workbooks("classeur1").Close savechanges:=False


y a t'il une autre solution

Amicalement
Michel

 

[michel29]

Re : un p'tit problème de mail

En general je n'ai que 5 mails à envoyer
du coup il copie la feuille dans "classeur1" mais ensuite malgre que le classeur1 soit
fermé il recopie la feuille mais cette fois ci dans "classeur2" et ainsi de suite .Je pense que c'est genere automatiquement ..

j'ai essayé cette methode mais elle provoque une erreur
du coup je suis obligé de mettre "On Error Resume Next" et ca fonctionne
mais c'est pas tres bon tout ca ...

Private Sub CommandButton1_Click()
On Error Resume Next
ThisWorkbook.Sheets("feuil1").Copy
For n = 1 To 5
Workbooks("classeur" & n).HasRoutingSlip = True
With Workbooks("classeur" & n).RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("michel29")
.Subject = "Demande de destockage ..."
.Message = "Merci de faire le nécessaire"
End With
Workbooks("classeur" & n).Route
Workbooks("classeur" & n).Close savechanges:=False
Next n
End Sub

Ya t'il une autre solution ??