Enrgistrement simultané en xls et pdf

[Citaro]

Bonjour au forum,

J'ai un code qui me permet d'enregistrer mes feuilles dans des dossiers distincts en fonction d'une cellule et je voudrais en faire aussi une version PDF

Private Sub CommandButton1_Click()
Dim Fichier As Variant
Fichier = Range("H19").Value
ActiveWorkbook.SaveAs Filename:= _
Fichier
End Sub


Citaro

 

[MJ13]

Re : Enrgistrement simultané en xls et pdf

Bonjour Citaro, Papou (ah cette fois çi, je t'ai eu 🙂)

Sur XL2007 ou XL2010, tu peux enregistrer ton fichier directement au format PDF.

Pour XL2003 ou antérieur, il faudra passer sans doute par un logiciel de type PDF Creator.

Il y a plein d'exemples sur XLD en faisant une petite recherche.

 

[Paritec]

Re : Enrgistrement simultané en xls et pdf

bonsoir Citaro,
comme on ne connait pas ta version d'excel puisque tu n'as pas trouvé utile de le mettre je ne peux pas te répondre, et je te rassure tous te le demanderont!!!
a+
papou 😱

EDIT bonsoir Michel tu es gentil d'avoir répondu !!!!
oui la dernière fois c'était juste aussi !! bonne soirée Papou

 

[Citaro]

Re : Enrgistrement simultané en xls et pdf

Désolé j'ai édité mon message , la version est 2007, le code est lancé par un bouton, peux t'on en lançant ce code crééer le fichier xls et pdf sans passer par créer un doc pdf

Merci
Citaro

 

[Paritec]

Re : Enrgistrement simultané en xls et pdf

Bonsoir Citaro Michel
moi je testerais ceci si ta cellule H19 n'a pas l'extension.xls autrement il faudra modifier
a+
papou 😱

Private Sub CommandButton1_Click()
Dim Fichier As Variant
Fichier = Range("H19").Value
ActiveWorkbook.SaveAs Filename:=Fichier
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub

 

[Citaro]

Re : Enrgistrement simultané en xls et pdf

Merci Paritec,
Ce code fonctionne mais je souhaiterais simplement les 3 premiers onglets en PDF

Merci
Citaro

 

[Paritec]

Re : Enrgistrement simultané en xls et pdf

Bonsoir Citaro,
excuses moi j'avais pas bien lu la demande en post 1 car tu l'avais bien précisé !!!!!!
pour les trois onglets je suppose que je vais deviner les noms? aussi ?
a+
papou 😱

 

[Citaro]

Re : Enrgistrement simultané en xls et pdf

Encore désolé Paritec

le nom des onglets
1 ADULTES
2 ENFANTS
3 ENFANTS2

a+ Citaro

 

[Paritec]

Re : Enrgistrement simultané en xls et pdf

re bonsoir Citaro,
teste voir mais je suis pas sur
a+
papou 😱

Private Sub CommandButton1_Click()
Dim Fichier As Variant
Fichier = Range("H19").Value
ActiveWorkbook.SaveAs Filename:=Fichier
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, From:=1, To:=3,OpenAfterPublish:=False
End Sub

 

[Citaro]

Re : Enrgistrement simultané en xls et pdf

Merci de ton aide Paritec,
Ce code marche parfaitement

Bonnes fêtes de fin d'année

Citaro