Sauvegarder juste une feuille

[frederic.lin]

Bonjour, je reviens vers vous 😛

Le code suivant m'enregistre toute les feuilles soit 3 feuille au total (facture, client, produit) que j'ai sur excel alors que moi je voudrais juste ma feuille "facure".

Quelq'un pourrait m'apporter la modification du code s'il vous plait?

Sub Bouton1_Clic()
Dim chemin As String
chemin = "C:\Users\PAPA\Documents\Mes fichiers reçus\" & Range("a1").Text
ActiveWorkbook.ExportAsFixedFormat xlTypePDF, chemin
End Sub

Merci;

 

[Compte Supprimé 979]

Re : Sauvegarder juste une feuille

Bonjour Frederic

Essaye peut-être ça (pas testé)

Sub Bouton1_Clic()
Dim chemin As String
chemin = "C:\Users\PAPA\Documents\Mes fichiers reçus\" & Range("a1").Text
Sheets("Facture").Copy
Activesheet.ExportAsFixedFormat xlTypePDF, chemin
ActiveWorkbook.Close Save:=False
End Sub

A+

 

[frederic.lin]

Re : Sauvegarder juste une feuille

J'ai remarqué un petit bug, sa sauvegarde bien la page mais il ouvre un nouveau classeur =S!