Merci Michdenis, çà marche pour une feuille.
Mais quand j'imprime un classeur en sélectionnant toutes les feuilles de ce
classeur, la numérotation des pages se fait en continu. C'est cette
numérotation que je souhaite récupérer dans un sommaire.
Existe-t-il une fonction qui le permet?
Merci d'avance.
Archimède
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 Archimède,
Pour connaître le nombre total de pages à imprimer des feuilles sélectionnées d'un classeur :
'-------------------------- Sub NbPagesAImprimer()
Dim Sh As Variant Dim Nb As Integer Dim Cmd As String Nb = 0 For Each Sh In ActiveWindow.SelectedSheets Cmd = "get.document(50,""" & Sh.Name & """)" Nb = Nb + ExecuteExcel4Macro(Cmd) Next MsgBox "Les feuilles sélectionnées représentent " & _ Nb & " pages à imprimer." End Sub '--------------------------
Salutations!
"Archimède" a écrit dans le message de news:
Merci Michdenis, çà marche pour une feuille. Mais quand j'imprime un classeur en sélectionnant toutes les feuilles de ce classeur, la numérotation des pages se fait en continu. C'est cette numérotation que je souhaite récupérer dans un sommaire. Existe-t-il une fonction qui le permet? Merci d'avance. Archimède
Bonjour Archimède,
Pour connaître le nombre total de pages à imprimer
des feuilles sélectionnées d'un classeur :
'--------------------------
Sub NbPagesAImprimer()
Dim Sh As Variant
Dim Nb As Integer
Dim Cmd As String
Nb = 0
For Each Sh In ActiveWindow.SelectedSheets
Cmd = "get.document(50,""" & Sh.Name & """)"
Nb = Nb + ExecuteExcel4Macro(Cmd)
Next
MsgBox "Les feuilles sélectionnées représentent " & _
Nb & " pages à imprimer."
End Sub
'--------------------------
Salutations!
"Archimède" <Archimde@discussions.microsoft.com> a écrit dans le message de news:
E5B855BC-1CF0-4A78-B65E-B77FF12792BB@microsoft.com...
Merci Michdenis, çà marche pour une feuille.
Mais quand j'imprime un classeur en sélectionnant toutes les feuilles de ce
classeur, la numérotation des pages se fait en continu. C'est cette
numérotation que je souhaite récupérer dans un sommaire.
Existe-t-il une fonction qui le permet?
Merci d'avance.
Archimède
Pour connaître le nombre total de pages à imprimer des feuilles sélectionnées d'un classeur :
'-------------------------- Sub NbPagesAImprimer()
Dim Sh As Variant Dim Nb As Integer Dim Cmd As String Nb = 0 For Each Sh In ActiveWindow.SelectedSheets Cmd = "get.document(50,""" & Sh.Name & """)" Nb = Nb + ExecuteExcel4Macro(Cmd) Next MsgBox "Les feuilles sélectionnées représentent " & _ Nb & " pages à imprimer." End Sub '--------------------------
Salutations!
"Archimède" a écrit dans le message de news:
Merci Michdenis, çà marche pour une feuille. Mais quand j'imprime un classeur en sélectionnant toutes les feuilles de ce classeur, la numérotation des pages se fait en continu. C'est cette numérotation que je souhaite récupérer dans un sommaire. Existe-t-il une fonction qui le permet? Merci d'avance. Archimède
Archimède
Merci Michdenis pour ta réponse, mais je crois que j'ai dû mal poser ma question, ...ou chercher l'impossible. J'ai un classeur avec un grand nombre d'onglets, que j'imprime en continu avec pagination (il peut y avoir plusieurs pages pour un onglet). Pour aider le lecteur, je crée un sommaire qui reprend les "titres" répartis dans les onglets, avec les numéros des PAGES où se trouvent ces "titres". Principe: quand je mets à jour mon classeur en décalant, ajoutant ou supprimant des onglets ou des titres, je voudrais que les numéros de pages du sommaire se mettent à jour automatiquement. .....mais je demande peut-être la lune! En tous cas merci de checher à m'aider. Cordialement Archimède
Bonjour Archimède,
Pour connaître le nombre total de pages à imprimer des feuilles sélectionnées d'un classeur :
'-------------------------- Sub NbPagesAImprimer()
Dim Sh As Variant Dim Nb As Integer Dim Cmd As String Nb = 0 For Each Sh In ActiveWindow.SelectedSheets Cmd = "get.document(50,""" & Sh.Name & """)" Nb = Nb + ExecuteExcel4Macro(Cmd) Next MsgBox "Les feuilles sélectionnées représentent " & _ Nb & " pages à imprimer." End Sub '--------------------------
Salutations!
"Archimède" a écrit dans le message de news:
Merci Michdenis, çà marche pour une feuille. Mais quand j'imprime un classeur en sélectionnant toutes les feuilles de ce classeur, la numérotation des pages se fait en continu. C'est cette numérotation que je souhaite récupérer dans un sommaire. Existe-t-il une fonction qui le permet? Merci d'avance. Archimède
Merci Michdenis pour ta réponse, mais je crois que j'ai dû mal poser ma
question, ...ou chercher l'impossible.
J'ai un classeur avec un grand nombre d'onglets, que j'imprime en continu
avec pagination (il peut y avoir plusieurs pages pour un onglet).
Pour aider le lecteur, je crée un sommaire qui reprend les "titres" répartis
dans les onglets, avec les numéros des PAGES où se trouvent ces "titres".
Principe: quand je mets à jour mon classeur en décalant, ajoutant ou
supprimant des onglets ou des titres, je voudrais que les numéros de pages du
sommaire se mettent à jour automatiquement.
.....mais je demande peut-être la lune!
En tous cas merci de checher à m'aider.
Cordialement
Archimède
Bonjour Archimède,
Pour connaître le nombre total de pages à imprimer
des feuilles sélectionnées d'un classeur :
'--------------------------
Sub NbPagesAImprimer()
Dim Sh As Variant
Dim Nb As Integer
Dim Cmd As String
Nb = 0
For Each Sh In ActiveWindow.SelectedSheets
Cmd = "get.document(50,""" & Sh.Name & """)"
Nb = Nb + ExecuteExcel4Macro(Cmd)
Next
MsgBox "Les feuilles sélectionnées représentent " & _
Nb & " pages à imprimer."
End Sub
'--------------------------
Salutations!
"Archimède" <Archimde@discussions.microsoft.com> a écrit dans le message de news:
E5B855BC-1CF0-4A78-B65E-B77FF12792BB@microsoft.com...
Merci Michdenis, çà marche pour une feuille.
Mais quand j'imprime un classeur en sélectionnant toutes les feuilles de ce
classeur, la numérotation des pages se fait en continu. C'est cette
numérotation que je souhaite récupérer dans un sommaire.
Existe-t-il une fonction qui le permet?
Merci d'avance.
Archimède
Merci Michdenis pour ta réponse, mais je crois que j'ai dû mal poser ma question, ...ou chercher l'impossible. J'ai un classeur avec un grand nombre d'onglets, que j'imprime en continu avec pagination (il peut y avoir plusieurs pages pour un onglet). Pour aider le lecteur, je crée un sommaire qui reprend les "titres" répartis dans les onglets, avec les numéros des PAGES où se trouvent ces "titres". Principe: quand je mets à jour mon classeur en décalant, ajoutant ou supprimant des onglets ou des titres, je voudrais que les numéros de pages du sommaire se mettent à jour automatiquement. .....mais je demande peut-être la lune! En tous cas merci de checher à m'aider. Cordialement Archimède
Bonjour Archimède,
Pour connaître le nombre total de pages à imprimer des feuilles sélectionnées d'un classeur :
'-------------------------- Sub NbPagesAImprimer()
Dim Sh As Variant Dim Nb As Integer Dim Cmd As String Nb = 0 For Each Sh In ActiveWindow.SelectedSheets Cmd = "get.document(50,""" & Sh.Name & """)" Nb = Nb + ExecuteExcel4Macro(Cmd) Next MsgBox "Les feuilles sélectionnées représentent " & _ Nb & " pages à imprimer." End Sub '--------------------------
Salutations!
"Archimède" a écrit dans le message de news:
Merci Michdenis, çà marche pour une feuille. Mais quand j'imprime un classeur en sélectionnant toutes les feuilles de ce classeur, la numérotation des pages se fait en continu. C'est cette numérotation que je souhaite récupérer dans un sommaire. Existe-t-il une fonction qui le permet? Merci d'avance. Archimède
