Macro pour enregistrer le classeur en xls et les feuille en pdf. Fermé

Question

Bonjour, 

J'ai un classeur qui contient plusieurs feuilles...jusqu'ici tout roule;-)

Je souhaite créer une macro qui enregistre au format .pdf uniquement les feuilles qui ont la cellule A1=1, et le classeur entier au format excel classique.

Les fichiers générés (càd les .pdf et le .xls) devraient être enregistrés dans le même dossier que le dossier où se trouve le fichier original qui a été modifié.

Les noms des fichiers .pdf devraient avoir en commun: "Feuil4!A2" et "Feuil4!F2" et "Feuil4!F5". Et se différencier à la fin par le nom de la feuille.

Le nom de l'unique fichier xls ne contiendrait que: "Feuil4!A2" et "Feuil4!F2" et "Feuil4!F5".

J'ai l'impression que c'est ultra chaud à faire...et j'y comprend rien en macro..mais je sais qu'il y a pas mal de personnes extrêmement compétentes par ici alors j'espère!

Merci beaucoup de m'avoir lu;-)

Axel

P.s: pour les chemin des fichier je ne sais pas si ça à un impact mais je suis sur mac histoire de compliquer encore un peu les choses...

Merci++++

Configuration: Mac OS X (10.10.1) / Safari 8.0.2

cs_Le Pivert · Answer

Bonjour,

Pour que ce classeur fonctionne, il faut avoir Office 2007 ou plus récente:

http://www.cjoint.com/data3/3Azlvr4DstT.htm

cs_Le Pivert · Answer

Les noms des fichiers .pdf devraient avoir en commun: "Feuil4!A2" et "Feuil4!F2" et "Feuil4!F5". Et se différencier à la fin par le nom de la feuille. 


a aucun moment il est question de la Cellule C1

comme explication dernier post:

Il faudrait que les feuilles contenant la valeur 1 en cellule A1 soit enregistrée en pdf, dans le meme classeur que celui d'origine avec un nom de fichier qui soit: la valeur de la cellule C1 de la feuille 1 et le nom de la feuille qui est enregistrée en pdf (dans laquelle se trouve le bouton de la macro). 


Voici donc la nouvelle mouture:

http://www.cjoint.com/data3/3Azn3xi2hWe.htm

Ams · Answer

Pardon je me suis mal exprimé la première fois.

Votre première mouture marche à la perfection pour enregistrer les feuilles présentant 1 en cellule A1 au format pdf.

En fait je voudrais juste ajouter l'enregistrement du classeur au format xls.
J'ai créé cette macro mais je n'arrive pas à combiner celle ci et la votre sur le même boutton.

Sub Rec()
ActiveWorkbook.SaveAs Filename:=[C1].Value & "." & [I1].Value & Format([I4], "_dd_mm_yy") & ".xls"
End Sub

cs_Le Pivert · Answer

Faire Alt F11 et cliquer dans ThisWorkbook en haut a gauche.
Mettre ce code:

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & [C1].Value & "." & [I1].Value & Format([I4], "_dd_mm_yy") & ".xls"
End Sub

Ams · Answer

je suis désolé ça ne fonctionne pas...
Votre dernière version enregistre simplement en pdf la feuille active.
Les autres feuille présentant 1 en A1 ne sont plus enregistrée.

Je suis paumé

cs_Le Pivert · Answer

Dans le classeur envoyé, il n'y a que la Feuil4 qui contient un 1 en A1, il n'a rien en C1!
dans la feuil1 en A1: Nom
dans la feuil5 en A1: 0 
dans la feuil6 en A2: 1 

Voici le code modifié qui n'enregistre que la feuille4 sans nom car absent!

Option Explicit
Dim nom, chemin As String
Sub pdf()
Dim Ws As Worksheet
    For Each Ws In Worksheets
        If Ws.Range("A1").Value = "1" Then
          nom = Ws.Range("C1").Value
          save_pdf
          MsgBox "La feuille: " & nom & " est enregistrée en pdf dans le dossier de ce classeur."
          End If
    Next Ws
End Sub
Sub save_pdf()
chemin = ThisWorkbook.Path & "\Feuil4_A2_Feuil4_F2_Feuil4_F5_" & nom & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

cs_Le Pivert · Answer

J'ai bien tout relu et pour résumer:

Il faut enregistrer en pdf au nom de la feuille les feuilles ayant A1=1 

enregistrer le classeur en xls au nom se trouvant sur la feuille1 en C1

donc voici le code:

Option Explicit
Dim nom, chemin As String
Sub pdf()
Dim Ws As Worksheet
    For Each Ws In Worksheets
    'enregistrement en pdf au nom de la feuille
        If Ws.Range("A1").Value = "1" Then
          nom = Ws.Name
          save_pdf
          MsgBox "La feuille: " & nom & " est enregistrée en pdf dans le dossier de ce classeur."
          End If
    Next Ws
    'enregistrement du classeur xls au nom se trouvant sur la feuille1 en C1
    Sheets("Feuil1").Select
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & [C1].Value & "." & [I1].Value & Format([I4], "_dd_mm_yy") & ".xls"
End Sub
Sub save_pdf()
chemin = ThisWorkbook.Path & "\Feuil4_A2_Feuil4_F2_Feuil4_F5_" & nom & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

J'espère avoir tout compris!

Macro pour enregistrer le classeur en xls et les feuille en pdf.

7 réponses

Discussions similaires