macro enregistrer en pdf ds excel 2007

bonjour,
j'ai un fichier excel de gestion de commandes qui comprend deux feuilles, 1 avec les produits et la 2ème qui est le bon de commande
je voudrais enregistrer la feuille bon de commande en pdf avec pour nom la valeur de la cellule D1 tout en enregistrant la feuille produits en xls pour garder en mémoire la nouvelle incrémentation.
Actuellement, qd je clique sur un bouton de ctl de formulaire, il m'eenregistre le fichier avec le nom de la cellule D1 et je veux donc améliorer tt ça mais je ne sais pas faire

merci pour votre aide

bonjour

Code:

---

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

sub enregistrer() ' dim nom , destination as variant   nom= sheets("feuil1").range ("a1").value destination ="C:\Users\patrick\Desktop\"&   ' Sheets("Feuil1").Select Sheets("Feuil1").Copy ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ destination & nom &".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True ActiveWindow.Close End Sub

---

voila mon idée tu peus modifié la destination en debut de sub


au plaisir
:ccool:

tu peus aussi ensuite fermer le classeur par

Code:

---

1 2 3

activeworkbook.save activeworkbook.close

---

bye a plus!!!