Bonjour,
J'ai un classeur contenant une 100e de feuilles et actuellement il y a déjà une Macro qui me permets d'enregistrer automatiquement chaque feuille dans un fichier indépendant au format PDF.
J'aurais souhaité pouvoir avoir la même macro mais pour un enregistrement en XLSX.
J'ai bien tenté de modifier la macro existante mais cela ne fonctionne pas.
Je ne maitrise pas les macro et c'est pourquoi je fais appel à votre aide.
En vous remerciant par avance.
Macro PDF:
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
J'ai un classeur contenant une 100e de feuilles et actuellement il y a déjà une Macro qui me permets d'enregistrer automatiquement chaque feuille dans un fichier indépendant au format PDF.
J'aurais souhaité pouvoir avoir la même macro mais pour un enregistrement en XLSX.
J'ai bien tenté de modifier la macro existante mais cela ne fonctionne pas.
Je ne maitrise pas les macro et c'est pourquoi je fais appel à votre aide.
En vous remerciant par avance.
Macro PDF:
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
Dernière édition: