Microsoft 365 probleme macro

snow88140

XLDnaute Nouveau
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
 
Solution
Quel nom ? Le nom du fichier ?
Dans ce cas ajouter une inputbox.
VB:
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

youky(BJ)

XLDnaute Barbatruc
Bonjour
A tester comme ceci
Bruno
VB:
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
 
Dernière édition:

Discussions similaires

Réponses
2
Affichages
1 K

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo