Bonjour à tous,
Je viens vous soumettre un cas particulier.
J'ai une macro, réalisée par l'aide du forum le mois dernier.
Cette macro fonctionnait à merveille jusqu'à la semaine dernière. Je ne sais pas d'ou vient le problème,
mais aujourd'hui, elle me renvoie une erreur 400 que je n'avais jamais eue.
voici la macro :
Sub Imprimer()
'Adaptation d'un code de BrunoM45 (Merci !)
Dim Lig As Long, DerLig As Long
Dim ShtD As Worksheet, ShtF As Worksheet
Set ShtD = Sheets("Feuil2")
Set ShtF = Sheets("Feuil1")
DerLig = ShtD.Range("A100").End(xlUp).Row
For Lig = 2 To DerLig
ShtF.Range("g2") = ShtD.Range("a" & Lig)
ShtF.Range("c4") = ShtD.Range("b" & Lig)
ShtF.Range("c5") = ShtD.Range("c" & Lig)
ShtF.Range("g4") = ShtD.Range("e" & Lig)
ShtF.Range("g6") = ShtD.Range("f" & Lig)
ShtF.Range("c7") = ShtD.Range("g" & Lig)
ShtF.Range("c8") = ShtD.Range("h" & Lig)
'ActiveWindow.SelectedSheets.PrintPreview 'pour aperçu
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'pour imprimer
Range("G2, C4, C5, C7, C8, G4, G6").ClearContents
Next
End Sub
si quelqu'un a une idée....
Merci de m'avoir accordé un peu d'attention.
Je viens vous soumettre un cas particulier.
J'ai une macro, réalisée par l'aide du forum le mois dernier.
Cette macro fonctionnait à merveille jusqu'à la semaine dernière. Je ne sais pas d'ou vient le problème,
mais aujourd'hui, elle me renvoie une erreur 400 que je n'avais jamais eue.
voici la macro :
Sub Imprimer()
'Adaptation d'un code de BrunoM45 (Merci !)
Dim Lig As Long, DerLig As Long
Dim ShtD As Worksheet, ShtF As Worksheet
Set ShtD = Sheets("Feuil2")
Set ShtF = Sheets("Feuil1")
DerLig = ShtD.Range("A100").End(xlUp).Row
For Lig = 2 To DerLig
ShtF.Range("g2") = ShtD.Range("a" & Lig)
ShtF.Range("c4") = ShtD.Range("b" & Lig)
ShtF.Range("c5") = ShtD.Range("c" & Lig)
ShtF.Range("g4") = ShtD.Range("e" & Lig)
ShtF.Range("g6") = ShtD.Range("f" & Lig)
ShtF.Range("c7") = ShtD.Range("g" & Lig)
ShtF.Range("c8") = ShtD.Range("h" & Lig)
'ActiveWindow.SelectedSheets.PrintPreview 'pour aperçu
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'pour imprimer
Range("G2, C4, C5, C7, C8, G4, G6").ClearContents
Next
End Sub
si quelqu'un a une idée....
Merci de m'avoir accordé un peu d'attention.