Microsoft 365 probleme macro

snow88140 · 3 Juin 2020

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 · 3 Juin 2020

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

sylvanu · 3 Juin 2020

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 · 3 Juin 2020

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

youky(BJ) · 3 Juin 2020

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

sylvanu · 3 Juin 2020

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

snow88140 · 4 Juin 2020

nickel merci à vous!!

Microsoft 365 probleme macro

snow88140

XLDnaute Nouveau

sylvanu

sylvanu

XLDnaute Barbatruc

snow88140

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

snow88140

XLDnaute Nouveau

Discussions similaires