Discussion :

[yoyo67000]

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

[patricktoulon]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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


tu peus aussi ensuite fermer le classeur par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
activeworkbook.save
activeworkbook.close

bye a plus!!!