enregistrer feuille en pdf

[marcmarc]

Bonjour a tout le monde,
je tente d'enregistrer 4 feuilles excel de 1 à 4, en PDF.
cela j'ai réussi avec les recherches, macros 🙂

  Sheets(Array("Pdg Vente projet client Premium", "Vente projet client Premium", "Vente projet client Premium 1", _
        "Vente projet client Premium 2")).Select
    Sheets("Vente projet client Premium").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False

Mais, je souhaiterai bien enregistrer ce PDF dans un dossier spécifique de C:
avec la valeur de la cellule AK1 de la feuille : Vente projet client Premium

au besoin, peut-être même amélioré le code, car je l'ai fait via un enregistrement macro 🙂 🙂

pouvez-vous m'aider dans cette petite démarche

Bonne journée a tt le monde 🙂 🙂

Marc marc

 

[Bougla972]

Re : enregistrer feuille en pdf

Bonjour Marc,

Ce code devrait faire l'affaire...

Sub ExportFormatPdfSheets() 'Exporte plusieurs feuilles dans un seul PDF
 
Dim i As Long, Cpt As Long
Dim Ar() As String
 
    Cpt = 0
    For i = 1 To ThisWorkbook.Sheets.Count 
        If ThisWorkbook.Sheets(i).Name = "Pdg Vente projet client Premium" Or _
        ThisWorkbook.Sheets(i).Name = "Vente projet client Premium" Or _
        ThisWorkbook.Sheets(i).Name = "Vente projet client Premium 1" Then
            ReDim Preserve Ar(Cpt)
            Ar(Cpt) = ThisWorkbook.Sheets(i).Name
            Cpt = Cpt + 1
        'End If
    Next i
    If Cpt = 0 Then Exit Sub
 
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets(Ar).Select
    'adapter le filename !!! ==> "Nom du dossier"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\" & "Nom du dossier" &"\" & ThisWorkbook.Sheets("Vente projet client Premium").Range("AK1") & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
        
    ThisWorkbook.Sheets("Feuil1").Select
    Application.ScreenUpdating = True
End Sub

A te lire...

A+ Bougla

 

[marcmarc]

Re : enregistrer feuille en pdf

bonsoir,
merci Bougla,
Super, beau travail, c'est vraiment ce que je cherchais, merci 🙂

comment faire avec outlook 2010 pour envoyé le PDF créer par mail avec la valeur de la feuille "Vente projet client Premium", cellule: AH12 et avec la mention dans l'objet : voici notre PDF avec "son nom" dans l'objet.

mais ne pas l'envoyé direct, mais que je dois juste valider l'envoi.
ou alors avec 2 macros différentes soit envoi ou non.

en te remerciant d'avance 🙂
Bonne soirée


Marc

 

[kiki29]

Re : enregistrer feuille en pdf

Salut, voir ici en bas du post 1 : Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant

Pour l'envoi via mail voir ici

 

[marcmarc]

Re : enregistrer feuille en pdf

bonjour kiki29,

Merci pour ce site que je ne connaissais pas 🙂

super cool
bonne journée

Marc