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

XL 2016 macro impression

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion KTM
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
KTM

KTM

XLDnaute Impliqué
Salut Chere famille Forum
J'ai elaboré une macro qui doit faire les actions suivantes:
1 Selectionner les plages spécifiques et les copier sur la feuille "Impr"
2 Créer un sous Dossier "Files Actives"
3 Sauvegarder au Format "pdf " dans le sous dossier
Les etapes 1 ET 2 fonctionnent normalement
Mais la 3e pose problème
Je veux comprendre ce qui n'a pas marché. Merci


Sub SFa_T1()

With Sheets("Impr")

.Range("A1:H13").Value = Range("BC1:BJ13").Value
.Range("A15:H27").Value = Range("AT1:BA13").Value
.Range("A29:H41").Value = Range("AT57:BA69").Value
.Range("A43:H55").Value = Range("BC57:BJ69").Value

chemin = ThisWorkbook.Path & "\Files Actives\"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin
fichier = "Files Actives" & "_" & "T1" & "_" & Sheets("TB").Range("B5") & "_" & Sheets("TB").Range("B8")
.PageSetup.PrintArea = .Range("A1:H69").Address
.PageSetup.CenterHeader = Sheets("TB").Range("B8")

.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & fichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With

End Sub
 
Trier par date Trier par votes
Bonsoir KTM,

Le problème vient du fait que ta feuille "Impr" est masqué lorsque tu veux l'exporter.
Or, elle doit être obligatoirement affichée, sinon bug.

A+
 
Vote positif 0 Vote négatif
Bonjour,
Vous pouvez décider de laisser la feuille Impr masquée et ajouter cette ligne au début du code pour afficher la feuille masquée :
Worksheets("Impr").Visible = True

Puis celle-ci en fin de code pour masquer de nouveau la feuille Impr :
Worksheets("Impr").Visible = False
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Résolu(e)
XL pour MAC Chemin d'accès dans VBA macro d'impression PDF
Réponses
10
Affichages
3 K
kiki29
B
  • Question Question
Problème de fichier joint dans une macro Excel d'envoi de courrier
Réponses
10
Affichages
2 K
Staple1600
B
  • Question Question
Problèmes de macro liés à l'extraction et à l'envoi d'un fichier
Réponses
0
Affichages
1 K
benadry
B
B
  • Question Question
Problème avec une macro Excel pour envoyer des fichiers par mail
Réponses
2
Affichages
1 K
benadry
B
S
  • Question Question
Faire une compilation de données à l'aide d'un macro
Réponses
8
Affichages
2 K
sknd2010
S
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…