Microsoft 365 Enregistrer en PDF dans une macro

[homernell]

Bonjour à tous,

Petit souci pour moi, mais certainement solutionné en 5 sec pour vous :

J'ai cette macro :

Sub animateur()
Dim w As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets(Array("Entrées du soir", "Box Office")).Copy
With ActiveWorkbook
    For Each w In .Worksheets
        w.UsedRange = w.UsedRange.Value
    Next
    .SaveAs ThisWorkbook.Path & "\Résultats du jour.xlsm", 52
    .Close
End With
End Sub

Mais j'aimerai que l'enregistrement se fasse PDF, cela est-il possible ?
Si oui pouvez vous m'indiquer le code modifié, svp ?

Alors j'ai essayé en mettant juste .pdf à la place de .xlsm mais le lecteur de pdf ne fonctionne pas, pourtant le fichier s'enregistre.

Merci d'avance

 

[Staple1600]

Bonsoir le fil,

@homernell
Utilise l'enregisteur de macros, et tu obtiendras la syntaxe idoine pour enregister en PDF.

Tu auras juste à changer cette ligne
.SaveAs ThisWorkbook.Path & "\Résultats du jour.xlsm", 52

 

[homernell]

Bonsoir le fil,

@homernell
Utilise l'enregisteur de macros, et tu obtiendras la syntaxe idoine pour enregister en PDF.

Tu auras juste à changer cette ligne
.SaveAs ThisWorkbook.Path & "\Résultats du jour.xlsm", 52

Merci du retour rapide...
Mais le problème c'est que la lettre réseau change, et dans l'enregistreur il me défini un localisation avec ma lettre réseau.

 

[Staple1600]

Re

@homernell
Pour le moment, on se fiche de l'emplacement
Tu as déjà besoin de la syntaxe pour enregistrer en PDF.

Si tu as suivi mon précédent conseil, tu dois l'avoir, non ?

 

[kiki29]

Salut, si curieux, voir via Liste Contributions PDF