XL 2013 2 onglets enPDF sur Bureau

jeromeN95 · 27 Septembre 2020

Hello,

besoin d'aide svp. J'essaye de faire une simple macro pour mettre 2 onglets en PDF sur le bureau :

VB:

Sub PDF_SAVE()
Dim Fic As String
Dim LeDate As String

LaDate = Format(Date, "dd" & "." & "mm" & "." & "yyyy")

' Création fichier PDF
  Fic = Sheets(Array("Contrat", "ContratPret")).Select & "\Contrat" & " " & Sheets("Choix").Range("C4").Value & " " & Sheets("Choix").Range("C5").Value & " " & Sheets("Choix").Range("C7").Value ' donner le nom voulu pour le correspondant

  If Dir(Fic) <> "" Then Kill Fic 'création du PDF dans le même dossier que le fichier 
    
    Sheets(Array("Contrat", "ContratPret")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Fic & " " & LaDate & " " & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False

    Sheets("Choix").Select

' Message de confirmation
MsgBox ("Création du fichier PDF effectué sur le bureau" & vbCrLf & vbCrLf & "Merci de le retourner signée ")

End Sub

Hellas, c'est le drame depuis 2h.
L'idée est donc d'enregistrer les onglets "Contrat" et "ContratPret" en formet PDF avec en nom de fichier le nom d'un client, la ville, … contenu en ChoixC4, C5, C7.

D'avance merci, je sais que c'est une syntaxe dans Sheets (Array("...

kiki29 · 28 Septembre 2020

Salut, @jeromeN95
une version light donne ceci.
Mais il y a un tout petit peu mieux avec les CodeNames
Cela permet de renommer les onglets sans avoir à retoucher au code VBA.

VB:

Option Explicit

Sub Tst_2007()
Dim sNomFichierPDF As String
Dim Ar(1) As String

    sNomFichierPDF = ThisWorkbook.Path & "\" & "Contrat.pdf"

    Ar(0) = Feuil1.Name
    Ar(1) = Feuil2.Name

    Application.ScreenUpdating = False
    Sheets(Ar).Select

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=sNomFichierPDF, _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _...

kiki29 · 28 Septembre 2020

Salut, voir ici le dernier msg du post 1 : Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant et l'adapter à ton contexte.

Pounet95 · 28 Septembre 2020

Bonjour Kiki29
Un seul mot : Impressionnant !!!!!!!!!!!!!!!

jeromeN95 · 28 Septembre 2020

Bonjour merxi en effet c’est très bien détailler.
si je comprend bien la syntaxe :

Dim i As Long, Cpt As Long
Dim Ar() As String

sNomFichierPDF = ThisWorkbook.Path & "\" & "Contrat.pdf"

Cpt = 0
For i = 1 To ThisWorkbook.Sheets.Count
If Left(Sheets(i).Name, 2) = "conntratpret" Or Left(Sheets(i).Name, 2) = "Contratpret" Then
ReDim Preserve Ar(Cpt)
Ar(Cpt) = Sheets(i).Name
Cpt = Cpt + 1
End If
Next i
If Cpt = 0 Then Exit Sub

kiki29 · 28 Septembre 2020

Pounet95 à dit:
Bonjour Kiki29
Un seul mot : Impressionnant !!!!!!!!!!!!!!!

Salut et merci, il y a une liste des contributions avec les liens attenants pour naviguer dans le bazar. Si cela peut t'aider.

Pounet95 · 28 Septembre 2020

Re Kiki29
Même avec des liens brisés, c'est intéressant quand même.
J'ai enregistré pour le " au cas où"
Claude

kiki29 · 28 Septembre 2020

Pounet95 à dit:
Re Kiki29
Même avec des liens brisés, c'est intéressant quand même.
J'ai enregistré pour le " au cas où"
Claude

Salut, Liens brisés ? si tu cliques dans la colonne Post # tout fonctionne et conduit à l'intitulé de la colonne attenante

Pounet95 · 28 Septembre 2020

"d'où les liens internes de téléchargement caduques. "

Re, c'est cette phrase qui m'a fait écrire cela. Je ne suis pas allé plus loin.
Sinon, effectivement, j'ai testé un lien et ça a fonctionné.
Au plaisir
Claude

kiki29 · 28 Septembre 2020

Salut, @jeromeN95
une version light donne ceci.
Mais il y a un tout petit peu mieux avec les CodeNames
Cela permet de renommer les onglets sans avoir à retoucher au code VBA.

VB:

Option Explicit

Sub Tst_2007()
Dim sNomFichierPDF As String
Dim Ar(1) As String

    sNomFichierPDF = ThisWorkbook.Path & "\" & "Contrat.pdf"

    Ar(0) = Feuil1.Name
    Ar(1) = Feuil2.Name

    Application.ScreenUpdating = False
    Sheets(Ar).Select

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=sNomFichierPDF, _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=False

    Sheets(Feuil3.Name).Select
    Application.ScreenUpdating = True
End Sub

jeromeN95 · 28 Septembre 2020

Super, je vous remercie.
C'est parfait.

XL 2013 2 onglets enPDF sur Bureau

jeromeN95

XLDnaute Impliqué

kiki29

kiki29

XLDnaute Barbatruc

Pounet95

XLDnaute Occasionnel

jeromeN95

XLDnaute Impliqué

kiki29

XLDnaute Barbatruc

Pounet95

XLDnaute Occasionnel

kiki29

XLDnaute Barbatruc

Pounet95

XLDnaute Occasionnel

kiki29

XLDnaute Barbatruc

Pièces jointes

jeromeN95

XLDnaute Impliqué

Discussions similaires