sauvegarde PDF avec VBA

[FQ67]

Bonjour à tous,

j'ai commencé une commande VBA pour l'enregistrement d'un PDF créer par PDFCREATOR. j'aimerai que ce pdf soit enregistrement avec les conditions suivants:
- reference de deux celulles provenant d'un autre onglet du classeur
- + nom de l'onglet ou se trouve le pdf
voici le debut de ma commande:

Private Sub SAUVEGARDE_Click()
UserForm1.Hide
Sheets("GRAPHES").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="PDFCreator"

Ci joint le fichier
merci d'avance pour aide

Francois

 

[fhoest]

Re : sauvegarde PDF avec VBA

Bonjour,
regarde du coté de la commande Export(nom_de_fichier,extension)
F1 = aide dans excel ou autres ...
A+

 

[FQ67]

Re : sauvegarde PDF avec VBA

bonjour,
merci pour ton message mais tu vois je débute avec VBA. je vois bien que je dois utiliser la commande export mais je ne sais pas comment faire

 

[FQ67]

Re : sauvegarde PDF avec VBA

bonjour à tous,

bon voila j'ai avancé avec mon projet mais je bute toujours pour ajouter un nom correspondant à une cellule se trouvant dans l'onglet calculs cel DX6.
pouriez m'aider?
merci d'avance

Francois

 

[fhoest]

Re : sauvegarde PDF avec VBA

Bonjour,
Test ceci:

Private Sub SAUVEGARDE_Click()
'********************************************************************************************************
'********************************************************************************************************
'                                     Exemple
'********************************************************************************************************
'********************************************************************************************************
Dim nom_correspondant As String
nom_correspondant = Sheets("CALCULS").Range("DX6").Text
MsgBox nom_correspondant, vbInformation
Stop
'ici nom_correspondant est une variable qui contient l'information de la cellule que tu souhaites
'ici sauvegarde sur ton bureau chez moi : C:\Users\PAPA\Desktop
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:="C:\Users\PAPA\Desktop\" & nom_correspondant & ".PDF", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'********************************************************************************************************
'********************************************************************************************************
Stop
UserForm1.Hide
Sheets("GRAPHES").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:="C:\Graphe.PDF", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Sheets("PLAN ANNUEL").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:="C:\Plan Annuel.PDF", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
UserForm1.Show
End Sub

A+

 

[FQ67]

Re : sauvegarde PDF avec VBA

bonjour

merci c'est super!!! je suis ravi...merci de ton aide et à bientot