Microsoft 365 probleme macro

[snow88140]

bonjour, j'ai un problème sur une macro pour enregistrer en pdf.
le nom du fichier sort en faux au lieu de lui donner le nom que je lui donne precedement.
auriez vous une idée?



Sub Macro2()
ActiveSheet.PageSetup.PrintArea = "$B$1:$O$110"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Sauvegarde = Application.GetSaveAsFilename(FileFilter:=" PDF Files (*.pdf), *.pdf"), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

 

[sylvanu]

Bonjour Snow,
Derrière Filename, il attend le nom du fichier;
De plus le := _ signifie que la suite de l'instruction se situe sur la ligne suivante.

 

[snow88140]

si je souhaite que le texte soit entré manuellement à chaque fois comment puis-je faire?

 

[youky(BJ)]

Bonjour
A tester comme ceci
Bruno

Sub Macro2()
ChemFich = Application.GetSaveAsFilename(FileFilter:=" PDF Files (*.pdf), *.pdf")
if ChemFich="" then exit sub
ActiveSheet.PageSetup.PrintArea = "$B$1:$O$110" 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ChemFich & ".pdf", _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
            :=False, OpenAfterPublish:=False 'affiche le fichier PDF
End Sub

Edit: j'ai rectifié un retour à la ligne
Salut Sylvanu

 

[sylvanu]

Quel nom ? Le nom du fichier ?
Dans ce cas ajouter une inputbox.

NomFichier = InputBox("Entrez le nom du fichier.", "New Filename") 'La variable reçoit la valeur entrée dans l'InputBox
If NomFichier = "" Then
    Exit Sub
End If

Bonjour Youky

 

[snow88140]

nickel merci à vous!!