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