VBA-Enregistrer Feuilles au format PDF

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

je possède un tableau avec plusieurs onglets et j'aimerai faire un bouton pour pouvoir enregistrer,séparément, en pdf ces derniers et en fonction de leur nom.

J'ai commencé par faire une liste des feuilles avec leurs noms correspondants dans la colonne suivante.

Ensuite j'ai en "C4" fait une liste déroulante des feuilles et en D4 j'utiliserai la fonction "recherchev" pour associer la feuil au nom qui lui correspond.

Pièce jointe 271729

Et ensuite j'ai fait une tentative de macro pour pouvoir enregistrer en fonction de ces deux cellules mais cela ne marche pas, voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Export_PDF() Dim fichier As String 'adaptez le nom de la feuille With Worksheets([C4].Value) fichier = "Saint etienne rouvray_" & .Range([D4].Value) & ".pdf" 'pensez a ecrire le chemin Chemin = "E:\Saint Etienne du rouvray " & "\" & fichier .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End With End Sub
je ne suis pas du tout familier avec VBA mais j'ai fait ce code à partir de recherches ^^

Si vous pouvez m'éclairer j'en serai ravi :)

J'ai oublié de préciser que je travaille sur microsoft Excel 2007 ! ;)

05/05/2017, 10h31
kiki29

Salut, t'inspirer de ceci ou de cela en élaguant. Voire de cela encore.

Bonjour
Pour moi j'utilise ce code pour enregistrer mon fichier excel en PDF sous un dossier qui s'appelle rapport mensuel
à adapter pour ton cas :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub EnrPDF()
Dim Ar(2) As String
    Ar(0) = Feuil1.Name
    Ar(1) = Feuil2.Name
    Ar(2) = Feuil3.Name
    Application.ScreenUpdating = False
    Sheets(Ar).Select
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "Rapport Mensuel  " _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub

BONNE CONTINUATION

Bonjour,
Je pense que tu t'emmêles les pattes avec les feuilles auxquelles tu fais référence.
Que veux-tu faire avec :
Code:

1 2 3 With Worksheets([C4].Value) .... .Range([D4].Value) End With
Là, tu regardes dans la feuille dont le nom est la valeur de la cellule C4 et tu veux y utiliser la cellule dont le nom est la valeur de la cellule D4. Est-ce bien cela? As-tu nommé des cellules? Est-ce que tu veux pas plutôt récupérer la valeur de la cellule D4? En plus de cela, il faudrait enlever le point devant, non? Tu veux récupérer la valeur de la cellule D4 de la feuille Active, pas de la feuille à exporter, non?
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Export_PDF() Dim fichier As String 'adaptez le nom de la feuille With Worksheets(Range("C4").Value) fichier = "Saint etienne rouvray_" & Range("D4").Value & ".pdf" 'pensez a ecrire le chemin Chemin = "E:\Saint Etienne du rouvray " & "\" & fichier .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End With End Sub

05/05/2017, 11h25
Maverik76

En fait ce que ma macro sélectionne la feuille dont l’identifiant est en C4 et qu’elle enregistre cette feuille
avec le contenu de la cellule D4 pour avoir un nom de fichier comme ceci : « nomcommune_test » dans le cas présent et que cela soit enregistrer en pdf.
Et pour le nom je sais pas ce qui est plus simple : utiliser la cellule D4 de la feuille active ou utiliser le nom de la feuille sélectionnée en C4

Je vais essayer de réaliser une autre macro en fonction de vos réponses ^^ et je reviendrais vers vous quand cela sera fini (que la macro fonctionne ou pas :D)