M
michel29
Guest
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
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
Dernière modification par un modérateur: