Impression

[fileofish]

Re-Bonjour Le forum 🙂


Je souhaitais avoir des renseignements au sujet de cette fonction

ExecuteExcel4Macro "PRINT(2,1,3,1,,,,,,,,2,,,TRUE,,FALSE)"

Quelqu'un peut-il me dire à quoi correspond certains de ces chiffres
Le 1er : ?
Le 2ème : correspond à priori : à la feuille 1
Le 3ème : correspond à priori : à la feuille 3
Le 4ème : ?
Le 5ème : ?

Ce qui signifie que j'imprime les 3 premières feuilles donc de la feuille 1 à la feuille 3

Est ce qu'il es possible de définir la dernière feuille à imprimer
Ex : J'ai en cellule A1 : 5
Je souhaite imprimer de la feuille 1 à 5:
Est ce que quelquechose comme ca fonctionnerait ?
ExecuteExcel4Macro "PRINT(2,1,"A1",1,,,,,,,,2,,,TRUE,,FALSE)"


Encore merci
Philippe

 

[fileofish]

Re : Impression

J'ai omis de préciser un point peut être que cela pourra débloquer le sujet.
Sur un onglet "Toto". J'ai 40 zones d'impression soit 40 feuilles à l'impression.
Comment puis je faire pour imprimer les 3 premières par exemple.
Sachant que le nombre de feuilles en l’occurrence 3 dans mon exemple est défini en cellule A1
Merci à tous
Philippe

 

[fileofish]

Re : Impression

Bonsoir le forum,
Je suis toujours sur mon problème d'impression et je n'arrive à rien 🙁

Mes zones d'impression sont déjà définies, mais je ne trouve pas comment imprimer d'une feuille X à une feuille Y
J'ai regardé des topics sur des zones impression variables mais comme j'ai 60 onglets ca ne m'aide pas

Svp !! I need Help !!! Au secours je me noie !!

Philippe

 

[fileofish]

Re : Impression

Toujours sur mon sujet j 'essaie de contourner le problème
mais j'ai une erreur dans le code suivant : objet requis

Dim cel As Range, c As Range


If Range("A11").Value = "fevrier" Then
Set cel = Range("C100:C159")
For Each c In cel
If c = "" Then
c.EntireRow.Hidden = True
End If
Next

ActiveSheet.Select
ActiveSheet.Columns("H:AP").EntireColumn.Hidden = True
ActiveSheet.Columns("O:U").EntireColumn.Hidden = False
ActiveSheet.PageSetup.Orientation = xlPortrait
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
ActiveSheet.Columns("H:AP").EntireColumn.Hidden = False
End Sub


Je ne sais pas si il y a un rapport mais la cellule A1 est une formule pour récupérer le mois : A1=Menu!C5 ou Menu!C5= février