Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour A-A,
Essaie ceci : Tu places dans un module standard, tu testes et tu modifies le format de la chaîne de caractères indiquant le numéro de la page sur le nombre total de feuille à imprimer. Lorsque le résultat est satisfaisant, remplace ".printpreview" par ".PrintOut"
'-------------------------------------------------- Sub Imprimer_Feuille_1000_fois() Dim Nb As Integer, A as integer Nb = 1000 ' Nombre de feuille à adapter With Worksheets("Feuil1") ' Nom Feuille à adapter For a = 1 To Nb With .PageSetup .CenterFooter = "Page " & a & "/" & Nb & " Pages" End With .PrintPreview ' .PrintOut Next End With End Sub '----------------------------------------------------
"A-A" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai une feuille que j'aimerais imprimer plusieurs fois et j'aimerais que les numéro de page soit de 1 à 1000.
merci !
Bonjour A-A,
Essaie ceci :
Tu places dans un module standard, tu testes et
tu modifies le format de la chaîne de caractères
indiquant le numéro de la page sur le nombre total
de feuille à imprimer.
Lorsque le résultat est satisfaisant,
remplace ".printpreview" par ".PrintOut"
'--------------------------------------------------
Sub Imprimer_Feuille_1000_fois()
Dim Nb As Integer, A as integer
Nb = 1000 ' Nombre de feuille à adapter
With Worksheets("Feuil1") ' Nom Feuille à adapter
For a = 1 To Nb
With .PageSetup
.CenterFooter = "Page " & a & "/" & Nb & " Pages"
End With
.PrintPreview ' .PrintOut
Next
End With
End Sub
'----------------------------------------------------
"A-A" <AA@discussions.microsoft.com> a écrit dans le message de groupe de discussion :
4B89EE9A-6E98-418C-96F1-FE989E7A2BCE@microsoft.com...
Bonjour,
J'ai une feuille que j'aimerais imprimer plusieurs fois et j'aimerais que
les numéro de page soit de 1 à 1000.
Essaie ceci : Tu places dans un module standard, tu testes et tu modifies le format de la chaîne de caractères indiquant le numéro de la page sur le nombre total de feuille à imprimer. Lorsque le résultat est satisfaisant, remplace ".printpreview" par ".PrintOut"
'-------------------------------------------------- Sub Imprimer_Feuille_1000_fois() Dim Nb As Integer, A as integer Nb = 1000 ' Nombre de feuille à adapter With Worksheets("Feuil1") ' Nom Feuille à adapter For a = 1 To Nb With .PageSetup .CenterFooter = "Page " & a & "/" & Nb & " Pages" End With .PrintPreview ' .PrintOut Next End With End Sub '----------------------------------------------------
"A-A" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai une feuille que j'aimerais imprimer plusieurs fois et j'aimerais que les numéro de page soit de 1 à 1000.
merci !
A-A
C'est ce que je recherchais.
Merci MichDenis!
"MichDenis" a écrit :
Bonjour A-A,
Essaie ceci : Tu places dans un module standard, tu testes et tu modifies le format de la chaîne de caractères indiquant le numéro de la page sur le nombre total de feuille à imprimer. Lorsque le résultat est satisfaisant, remplace ".printpreview" par ".PrintOut"
'-------------------------------------------------- Sub Imprimer_Feuille_1000_fois() Dim Nb As Integer, A as integer Nb = 1000 ' Nombre de feuille à adapter With Worksheets("Feuil1") ' Nom Feuille à adapter For a = 1 To Nb With .PageSetup .CenterFooter = "Page " & a & "/" & Nb & " Pages" End With .PrintPreview ' .PrintOut Next End With End Sub '----------------------------------------------------
"A-A" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai une feuille que j'aimerais imprimer plusieurs fois et j'aimerais que les numéro de page soit de 1 à 1000.
merci !
C'est ce que je recherchais.
Merci MichDenis!
"MichDenis" a écrit :
Bonjour A-A,
Essaie ceci :
Tu places dans un module standard, tu testes et
tu modifies le format de la chaîne de caractères
indiquant le numéro de la page sur le nombre total
de feuille à imprimer.
Lorsque le résultat est satisfaisant,
remplace ".printpreview" par ".PrintOut"
'--------------------------------------------------
Sub Imprimer_Feuille_1000_fois()
Dim Nb As Integer, A as integer
Nb = 1000 ' Nombre de feuille à adapter
With Worksheets("Feuil1") ' Nom Feuille à adapter
For a = 1 To Nb
With .PageSetup
.CenterFooter = "Page " & a & "/" & Nb & " Pages"
End With
.PrintPreview ' .PrintOut
Next
End With
End Sub
'----------------------------------------------------
"A-A" <AA@discussions.microsoft.com> a écrit dans le message de groupe de discussion :
4B89EE9A-6E98-418C-96F1-FE989E7A2BCE@microsoft.com...
Bonjour,
J'ai une feuille que j'aimerais imprimer plusieurs fois et j'aimerais que
les numéro de page soit de 1 à 1000.
Essaie ceci : Tu places dans un module standard, tu testes et tu modifies le format de la chaîne de caractères indiquant le numéro de la page sur le nombre total de feuille à imprimer. Lorsque le résultat est satisfaisant, remplace ".printpreview" par ".PrintOut"
'-------------------------------------------------- Sub Imprimer_Feuille_1000_fois() Dim Nb As Integer, A as integer Nb = 1000 ' Nombre de feuille à adapter With Worksheets("Feuil1") ' Nom Feuille à adapter For a = 1 To Nb With .PageSetup .CenterFooter = "Page " & a & "/" & Nb & " Pages" End With .PrintPreview ' .PrintOut Next End With End Sub '----------------------------------------------------
"A-A" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai une feuille que j'aimerais imprimer plusieurs fois et j'aimerais que les numéro de page soit de 1 à 1000.