Discussion :

[jlm94]

Bonjour,
pour mon classeur qui possède environs 80 feuilles,
j'ai une Macro qui me permets de créer un fichier PDF par feuille pour toutes les feuilles du classeur.

J'aimerais conserver cette macro mais modifier le format d'enregistrement/
Je voudrais remplacer le format PDF par XLSX.
j'ai essayé de nombreuses manip, mais maîtrisant que très peu les macro,
je n'y arrive Pas.

Quelqu'un pourrait'il me donner un coup de main pour me modifer ce code SVP.

en vous remerciant par avance.

jlm94

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub PDF()
    On Error Resume Next
    Dim objShell As Object, objFolder As Object, oFolderItem As Object
    Dim Chemin As String, w As Worksheet
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
    Set oFolderItem = objFolder.Items.Item
    Chemin = oFolderItem.Path
    For Each w In Worksheets
        If w.Name <> "Accueil" Then
            Chemin = oFolderItem.Path & "\" & w.Name & "- Planning Individuel - " & Format(w.[c3], "mmmm yyyy") & ".pdf"
            w.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        End If
    Next w
End Sub

[Marc-L]

Bonjour,

cela n'a plus rien à voir …

Via l'Enregistreur de macros, copier une feuille vers un nouveau classeur (via le clic droit sur l'onglet par exemple)
puis le sauvegarder via Enregistrer sous, donnant ainsi une nouvelle base de code afin de remplacer les lignes 12 à 13 …

[jlm94]

Merci pour ta réponse, mais comme je l'ai indiqué je ne maîtrise vraiment pas les macro, et encore moins l'enregistreur dont tu me parles.
J'ai malgré tout regardé dans l'onglet développeur et je vois une fonction
"Enregistrer une Macro", est-ce de cela que tu parles ?

Quand tu me dis que cela n'a plus rien a voir, que veux tu dires
il ne suffit pas de remplacer les lignes correspondants au format PDF par les infos
pour un format XLSX ?