XL 2013 2 onglets enPDF sur Bureau

[jeromeN95]

Hello,

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

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]

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]

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

 

[jeromeN95]

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]

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]

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]

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]

"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]

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.

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]

Super, je vous remercie.
C'est parfait.