XL 2016 macro impression

KTM · 30 Juin 2019

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

Compte Supprimé 979 · 1 Juillet 2019

Bonjour KTM

Peut-être à cause de l'extension manquante !?

Fichier = "Files Actives" & "_" & "T1" & "_" & Sheets("TB").Range("B5") & "_" & Sheets("TB").Range("B8") & ".pdf"

KTM · 2 Juillet 2019

BrunoM45 à dit:
Bonjour KTM

Peut-être à cause de l'extension manquante !?

Merci
JE viens d'essayer mais le probleme persiste

Compte Supprimé 979 · 2 Juillet 2019

Re,

Et quel est le message d'erreur exacte !?

Quel est ton chemin d'accès (debug.print chemin)

A+

KTM · 2 Juillet 2019

BrunoM45 à dit:
Re,

Et quel est le message d'erreur exacte !?

Quel est ton chemin d'accès (debug.print chemin)

A+

Merci
voici le message d'erreur
Erreur d'execution 5
Argument ou appel de procedure incorrect

Compte Supprimé 979 · 2 Juillet 2019

Re,

Etrange comme erreur

Tu peux nous mettre ton fichier anonymisé STP ?

A+

KTM · 3 Juillet 2019

BrunoM45 à dit:
Re,

Etrange comme erreur

Tu peux nous mettre ton fichier anonymisé STP ?

A+

En tout cas tres étrange!
Par contre jai deplacé les deux feuilles sur lesquelles ma macro doit agir dans un nouveau classeur et ma macro fonctionne correctement
Bon DIEU Je comprends pas ce qui se passe .

Compte Supprimé 979 · 3 Juillet 2019

Bonjour,

Regarde si ta feuille "Impr" n'a pas une espace (invisible) devant ou après le nom

Sinon, effectivement, ton code fonctionne...

KTM · 3 Juillet 2019

BrunoM45 à dit:
Bonjour,

Regarde si ta feuille "Impr" n'a pas une espace (invisible) devant ou après le nom

Sinon, effectivement, ton code fonctionne...

Merci BrunoM45 ; Ce ci restera un mystère j'ai tout essayé

KTM · 3 Juillet 2019

BrunoM45 à dit:
Bonjour,

Regarde si ta feuille "Impr" n'a pas une espace (invisible) devant ou après le nom

Sinon, effectivement, ton code fonctionne...

Sur le Fichier original je remarque que quand je supprime la feuille "Impr" et que je la recréé la macro fonctionne bien mais une seule fois et l'erreur revient. Comment peut on comprendre cela ?

Compte Supprimé 979 · 3 Juillet 2019

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+

KTM · 4 Juillet 2019

BrunoM45 à dit:
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+

BrunoM45 vous êtes super!!!!
Grand Merci. Je commençais a être gagné par le découragement mais je reprends gout au VBA. Merci

ml121 · 4 Juillet 2019

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

XL 2016 macro impression

KTM

XLDnaute Impliqué

Compte Supprimé 979

Guest

KTM

XLDnaute Impliqué

Compte Supprimé 979

Guest

KTM

XLDnaute Impliqué

Compte Supprimé 979

Guest

KTM

XLDnaute Impliqué

Pièces jointes

Compte Supprimé 979

Guest

KTM

XLDnaute Impliqué

KTM

XLDnaute Impliqué

Compte Supprimé 979

Guest

KTM

XLDnaute Impliqué

ml121

XLDnaute Nouveau

Discussions similaires