Bonjour à Toutes et à Tous,
Je bloque sur une ligne de code pour enregistrer le contenu d'une feuille Excel en format pdf.
J'ai lu beaucoup d'articles sur le forum qui m'ont bien aidé, malgré tout je ne comprends pas mon erreur.
Avec le code ci-dessous, pas de problème, le pdf est bien créé et enregistré à l'endroit souhaité sur mon serveur.
Mais le nom du fichier n'est pas variable ("Toto").
Sub Sauvegarde_PDF()
Dim Chemin As String
Dim NomFich As String
Chemin = "\\adresse-de-mon-dossier-sur-mon-serveur\"
NomFich = "Toto" & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NomFich, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
End Sub
Dès lors que j'introduis une variable dans le nom du fichier - par exemple en ajoutant la date qui se situe en cellule B2 - l'enregistrement en pdf ne fontionne plus, et les lignes de codes suivantes se surlignent en jaune, sans indiquer de message d'erreur particulier. Je ne comprends pas mon erreur et sollicite votre aide.
Sub Sauvegarde_PDF()
Dim Chemin As String
Dim NomFich As String
Chemin = "\\adresse-de-mon-dossier-sur-mon-serveur\"
NomFich = "Toto" & Format ([B2], "dd_mm_yyyy") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NomFich, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
End Sub
D'avance merci pour votre aide
JRemi