Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Enregistrer en PDF dans une macro

homernell

XLDnaute Occasionnel
Bonjour à tous,

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

J'ai cette macro :

VB:
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
 

homernell

XLDnaute Occasionnel
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.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…