Impression PDF

Question

Bonjour,

Avec un bouton, j'aimerai imprimer une feuille Excel avec le code ci-dessous. Le souci est qu'il ne fonctionne pas. Le fichier s'appelle "Petanque_Re"

Merci pour votre aide.

Cordialement

Sub SauvePDF()
Application.ScreenUpdating = False
ChDir "C:\Users\abspa\OneDrive\Desktop"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= \_  
    "C:\Users\abspa\OneDrive\Desktop\Petanque.pdf", Quality:=xlQualityStandard, \_  
    IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=5, \_  
    OpenAfterPublish:=False  
      
    ActiveSheet.DisplayAutomaticPageBreaks = False  
      
Application.ScreenUpdating = True  

End Sub

Answer 1

Bonsoir,

C'est bon, j'ai trouvé. Le fichier était caché. Vous pouvez clore la demande.

Merci et bonne soirée.

Cordialement

Answer 2

Bonjour,

Le bouton est une image "Imprimante" qui se trouve sur la feuille "Impression".

Voir : https://www.cjoint.com/c/NHimVOsjH3O

Answer 3

Cette réponse a été automatiquement traduite. Par conséquent, il peut y avoir des erreurs grammaticales ou des formulations étranges.

Salut PatrickROZIER,

Merci d’avoir posté dans la communauté Microsoft !

Il semble qu’il n’y ait pas de problème majeur avec le code. Je l’ai testé et il fonctionne bien. Pourriez-vous s’il vous plaît partager une capture d’écran de l’erreur ou des informations de débogage avec moi ?

Voici deux raisons pour lesquelles cela pourrait ne pas fonctionner comme prévu :

1. Veuillez vérifier si le chemin C:\Users\abspa\OneDrive\Desktop existe réellement sur votre ordinateur. S’il n’existe pas, le code ne fonctionnera pas correctement.
2. Avez-vous lié la macro à un bouton ? Assurez-vous que la macro est correctement affectée à un bouton de votre feuille Excel.

J’espère que vous avez trouvé ce qui précède utile et j’ai hâte d’avoir de vos nouvelles !

Sinceres salutations 
Thomas C - MSFT | Spécialiste du support communautaire Microsoft