IMPRESSION MACRO

[Adelaide79]

Bonjour,

J'ai créer une macro sur une feuille pour un changement de date en automatique.

Lorsque l'impression se lance cela imprime une feuille par une feuille est il possible de faire lancer une impression global et en recto/verso.

Merci pour votre aide

 

[Bougla972]

Bonjour Adelaide79 et bienvenue,

Un exemple de code:

'Imprime plusieurs feuilles en m tps...
Sub Imprimer_Devis()
   ' Avec la feuille Devis
  With Sheets("Devis")
     ' Définir la zone d'impression
    .PageSetup.PrintArea = "A1:AV60"
     ' Imprimer la feuille
    .PrintOut From:=1, To:=1, Copies:=1, Collate:=False
   End With
   ' Avec la feuille Devis
  With Sheets("Funé")
     ' Définir la zone d'impression
    .PageSetup.PrintArea = "A1:A59"
     ' Imprimer la feuille
    .PrintOut From:=1, To:=1, Copies:=1, Collate:=False
   End With
End Sub

Une autre solution consiste à boucler sur tous les onglets de ton classeur...

 

[Adelaide79]

C'est que le macro que j'ai créer rempalce la date sur la feuille et pour une date une feuille est lancé à l'impression tu vois ce que je veux dire?

Je vais tenter plusieurs de tes solutions merci

 

[Adelaide79]

Ca c'est ma formule et meme quand je l'imprime en PDF il ouvre autant de fichier PDF qu'il y a de jours:

Option Explicit
Sub xx()
Dim i As Long

For i = Sheets("Feuil3").Range("B1") To Sheets("Feuil3").Range("B2")
Range("E1") = i
ActiveSheet.PrintOut

Next i

End Sub

 

[Bougla972]

Adelaide,

Oui c'est logique car tu boucles sur les valeur de B1 et B2 où doit figurer je suppose tes fameuses dates...
Envoi nous un bout de fichier anonyme car je ne comprend pas ce que tu souhaites faire.

 

[Adelaide79]

voici le fichier la fonction je l'ai trouver sur ce forum.

C'est un planning et je voudrais que la date ce mette en auto et que je puisse imprimé 2 jours par feuille donc recto verso

 

[Bougla972]

Code:

Option Explicit
Sub xx()
Dim i As Long
Dim valDte As Date
Dim Ws As Worksheet

Set Ws = ThisWorkbook.Sheets("Feuil3")

With ThisWorkbook.Sheets("MECAN 2017")
For i = 1 To Ws.Range("B65536").End(xlUp).Row
    valDte = Ws.Cells(i, 2)
    .Range("E1") = valDte
    'Range("E1") = i
    'ActiveSheet.PrintOut
    .PrintOut
Next i
End With
Set Ws = Nothing
End Sub

 

[Adelaide79]

Merci pour ton aide mais ça imprime toujours deux pages distinctes

 

[Bougla972]

As tu essayé de configurer cette option dans les options de l'imprimante ?

 

[Adelaide79]

oui oui mais comme ce macro lance des taches d'impression différentes ca ne fonctionne pas l'idée serait peut etre d'envoyer tout les différents fichiers en un

 

[Adelaide79]

oui oui mais le truc c'est que lorsque l'on lance le macro ils lancent autant de taches d'impression qu'il y a de date donc impossible de lui dire que c'est le meme fichier

 

[Bougla972]

Une autre solution:

 

[Adelaide79]

MAIS OUI CEST COMME CA QUE JE VAIS FAIRE. MERCI BEAUCOUP

 

[Adelaide79]

Merci beaucoup ca me sauve.

Nickel je te remercie vraiment