crouault67
XLDnaute Nouveau
Bonjour,
voila, je vous mets un fichier avec des donnees bidons mais qui comporte la base de ce que je dois traiter. je m'explique :
chaque semaine ce fichier est rempli de donnees exportees d'un autre fichier aux fins d'exploitation pour 2 ateliers.
mes questions :
- j'aurais besoin d'une macro en page "accueil" qui me permette d'imprimer la page "commandes" sachant que les commandes variant d'une semaine sur l'autre la zone des données est donc dynamique et que sur chaque page je dois conserver la ligne de titre.
- est il possible de mettre en place un "preview" avant de lancer l'impression proprement dite afin de savoir si c'est bon ?
j'ai deja mis en place pas mal de macros aux fins de traitement de ce fichier mais la celle ci me pose des soucis, je vous joins toutefois ma macro pour savoir si a la base elle est correcte ou pas !!
Sub impression_liste_commandes() 'toutes les 52 lignes (à régler)
Dim N As Long
Dim I As Integer, Rep As Integer
With ActiveSheet
With ActiveSheet.PageSetup
.PrintTitleRows = "$A$1:$I$5"
End With
N = .Range("b65536").End(xlUp).Row
.ResetAllPageBreaks 'efface sauts de pages existants
.PageSetup.PrintArea = "A2:h" & N
For I = 1 To N / 52
.HPageBreaks.Add Before:=Rows(I * 52 + 2)
Next I
Rep = MsgBox("On imprime ?", vbYesNo + vbCritical + vbDefaultButton2, "Impression")
If Rep = vbYes Then
.PrintOut
End If
End With
End Sub
merci de votre aide
voila, je vous mets un fichier avec des donnees bidons mais qui comporte la base de ce que je dois traiter. je m'explique :
chaque semaine ce fichier est rempli de donnees exportees d'un autre fichier aux fins d'exploitation pour 2 ateliers.
mes questions :
- j'aurais besoin d'une macro en page "accueil" qui me permette d'imprimer la page "commandes" sachant que les commandes variant d'une semaine sur l'autre la zone des données est donc dynamique et que sur chaque page je dois conserver la ligne de titre.
- est il possible de mettre en place un "preview" avant de lancer l'impression proprement dite afin de savoir si c'est bon ?
j'ai deja mis en place pas mal de macros aux fins de traitement de ce fichier mais la celle ci me pose des soucis, je vous joins toutefois ma macro pour savoir si a la base elle est correcte ou pas !!
Sub impression_liste_commandes() 'toutes les 52 lignes (à régler)
Dim N As Long
Dim I As Integer, Rep As Integer
With ActiveSheet
With ActiveSheet.PageSetup
.PrintTitleRows = "$A$1:$I$5"
End With
N = .Range("b65536").End(xlUp).Row
.ResetAllPageBreaks 'efface sauts de pages existants
.PageSetup.PrintArea = "A2:h" & N
For I = 1 To N / 52
.HPageBreaks.Add Before:=Rows(I * 52 + 2)
Next I
Rep = MsgBox("On imprime ?", vbYesNo + vbCritical + vbDefaultButton2, "Impression")
If Rep = vbYes Then
.PrintOut
End If
End With
End Sub
merci de votre aide