Bonjour le forum,
novice en vba j'ai chercher sur les différents fils de discussion du forum ce qui pouvait me servir et je suis tombé sur une discussion qui m'a donner le code vba que je cherchais, mais (parce qu'il y a un mais sinon je n'aurai pas fait ce post), voici le code vba en question
mes 2 soucis:
1er : Fichier = ThisWorkbook.Path & "\" & Ws.Name & ".pdf" est bien défini mais l'export de l'onglet créer en pdf ne s'enregistre pas dans cet espace
2eme : le nom du fichier devrait être du type "nom 13-08-2020" mais le format de la date ne correspond pas c'est la valeur numérique de la date de type 44056
Merci d'avance pour votre aide.
novice en vba j'ai chercher sur les différents fils de discussion du forum ce qui pouvait me servir et je suis tombé sur une discussion qui m'a donner le code vba que je cherchais, mais (parce qu'il y a un mais sinon je n'aurai pas fait ce post), voici le code vba en question
VB:
Sub PDF_Excel()
Dim Ws As Worksheet, Fichier As String
'Boucle sur toutes les feuille de calcul du classeur.
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "base" And Ws.Name <> "modele" And Ws.Name <> "parametrage" And Ws.Name <> "dernier_utilisateur" Then
Fichier = ThisWorkbook.Path & "\" & Ws.Name & ".pdf"
'Crée un pdf de chaque feuille
Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ws.Name & Format(Date, dd - mm - yyyy) & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=True, OpenAfterPublish:=True
End If
Next Ws
End Sub
mes 2 soucis:
1er : Fichier = ThisWorkbook.Path & "\" & Ws.Name & ".pdf" est bien défini mais l'export de l'onglet créer en pdf ne s'enregistre pas dans cet espace
2eme : le nom du fichier devrait être du type "nom 13-08-2020" mais le format de la date ne correspond pas c'est la valeur numérique de la date de type 44056
Merci d'avance pour votre aide.