Discussion :

[Maverik76]

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.



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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[kiki29]

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

[BENNASR]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[riaolle]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 )