Impression automatique de deux feuilles quasi identique

[Safety85]

RE-Bonjour à tous,

Mon problème est (toujours le même) le suivant, j'ai un fichier excel qui à 50 feuilles. Les noms de ces feuilles sont de ce type '01', '01G', '02', '02G' ....'25', '25G'.

1°/ Je veux créer un bouton sur chaque feuille du type '01', '02', ...'25' qui me lancerait l'impression des pages '01 et 01G', '02 et 02G', ... '25 et 25G

2°/ Le problème qui peut se poser c'est que tous les renseignements que j'ai sur une feuille excel ne tiennent pas entièrement sur une feuille papier alors il faudrait en même temps m'assurer que sur chaque feuille imprimer j'ai les titres des colonnes qui se répètent. (Facultatif).

Merci.

Safety85

NB: Vous pouvez encore noter que je ne suis pas très bon dans visual basic.

 

[Safety85]

Salut à tous,

J'inclus le programme que j'ai trouvé sur un autre fichier excel mais comme je le mets dans mon message précédent, il faudrait simplement imprimer les pages '01' et '01G' ou ... ou '25' et '25G'.

Merci

Safety85

Premier exemple qui imprime toutes les pages de mon fichier excel

Sub imprimerledocument()

Application.ScreenUpdating = False
Sheets("plan d'actions").Select
PrintPreview = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("synthese").Select
PrintPreview = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("ENTEXT").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("BIOLOGIQUES").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("deplacement").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("ecran").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("TMS").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("manutention").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("circulation").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("eclairage").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("hauteur").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("LEVAGE").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("machines").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("ELECTRICITE").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("incendie").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("poussières").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("cmr").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("nocif").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("corrosifs").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("toxiques").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("physiques").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("ionisants").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("laser").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("thermique").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("vibrations machines").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("vibrations outils").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("vibrations vehicules").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("bruit").Select
PrintPreview = False
If Range("C4").Value <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("introduction").Select
PrintPreview = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("evalrisk").Select
PrintPreview = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("intro").Select
PrintPreview = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.ScreenUpdating = True
Sheets("plan d'actions").Select
Range("A1").Select
End Sub


Deuxième exemple qui n'imprime que la page que l'on consulte

Sub imprimepageencours()

Application.ScreenUpdating = False
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
ActiveSheet.PrintOut Copies:=1
Application.ScreenUpdating = True
End Sub