IMPRESSION MACRO

Bougla972

XLDnaute Occasionnel

• 3 Mars 2017

• #2

Bonjour Adelaide79 et bienvenue,

Un exemple de code:

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...

 

Vote positif 0 Vote négatif

A

Adelaide79

XLDnaute Nouveau

• 3 Mars 2017

• #3

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

 

Vote positif 0 Vote négatif

A

Adelaide79

XLDnaute Nouveau

• 3 Mars 2017

• #4

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

 

Vote positif 0 Vote négatif

Bougla972

XLDnaute Occasionnel

• 3 Mars 2017

• #5

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.

 

Vote positif 0 Vote négatif

A

Adelaide79

XLDnaute Nouveau

• 3 Mars 2017

• #6

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

 

Pièces jointes

• Copie de Copie de planning rendez vous.xls

  40 KB · Affichages: 26

Vote positif 0 Vote négatif

Bougla972

XLDnaute Occasionnel

• 3 Mars 2017

• #7

Code:

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

 

Dernière édition: 3 Mars 2017

Vote positif 0 Vote négatif

A

Adelaide79

XLDnaute Nouveau

• 3 Mars 2017

• #8

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

 

Vote positif 0 Vote négatif

Bougla972

XLDnaute Occasionnel

• 3 Mars 2017

• #9

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

 

Vote positif 0 Vote négatif

A

Adelaide79

XLDnaute Nouveau

• 3 Mars 2017

• #10

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

 

Vote positif 0 Vote négatif

A

Adelaide79

XLDnaute Nouveau

• 3 Mars 2017

• #11

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

 

Vote positif 0 Vote négatif

Bougla972

XLDnaute Occasionnel

• 3 Mars 2017

• #12

Une autre solution:

 

Pièces jointes

• planning rendez vous2.xls

  47 KB · Affichages: 29

Vote positif 0 Vote négatif

A

Adelaide79

XLDnaute Nouveau

• 3 Mars 2017

• #13

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

 

Vote positif 0 Vote négatif

A

Adelaide79

XLDnaute Nouveau

• 3 Mars 2017

• #14

Merci beaucoup ca me sauve.

Nickel je te remercie vraiment

 

Vote positif 0 Vote négatif