Modification Macro PDF

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:

---

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

---

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 …

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 ?