Bonjour
Sur un fichier comptant de 5 à 70 onglets
chaque onglet comporte 1 ou plusieurs pages (variable)
je souhaite numéroter tous les onglets à suivre, c'est à dire:
exemple:
onglet 1: 1 page
onglet 2: 4 pages
onglet 3: 3 pages
onglet 4: 1 page
ça me donnerait:
onglet 1: page 1 sur 9
onglet 2: page 2 sur 9 à 5 sur 9
onglet 3: page 6 sur 9 à 8 sur 9
onglet 4: page 9 sur 9
J'utilise ce code qui me porte sur AA2 de chaque onglet, le nombre de pages.
nbpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
Range("AA2").Value = nbpages
Ensuite une fonction cumule toutes les cellules AA2 pour calculer le nobre total de pages.
Le pb c'est que ça bug, car le nombre de pages défini par la macro excel4 n'est pas fiable:
une fois il indique 3 pages, (sur un onglet de 4 pages) la fois d'après il indique 2 ou 4.
J'aimerais savoir si on ne peut pas s'appuyer sur la zone d'impression de chaque feuille, pour définir le nombre de pages. Exemple:
.PageSetup.PrintArea = "$A$1:$O$" & Range("c65365").End(xlUp).Row
me définit 4 pages
Comment utiliser cette info pour en extraire le nbre de pages.
Merci à vous
Sur un fichier comptant de 5 à 70 onglets
chaque onglet comporte 1 ou plusieurs pages (variable)
je souhaite numéroter tous les onglets à suivre, c'est à dire:
exemple:
onglet 1: 1 page
onglet 2: 4 pages
onglet 3: 3 pages
onglet 4: 1 page
ça me donnerait:
onglet 1: page 1 sur 9
onglet 2: page 2 sur 9 à 5 sur 9
onglet 3: page 6 sur 9 à 8 sur 9
onglet 4: page 9 sur 9
J'utilise ce code qui me porte sur AA2 de chaque onglet, le nombre de pages.
nbpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
Range("AA2").Value = nbpages
Ensuite une fonction cumule toutes les cellules AA2 pour calculer le nobre total de pages.
Le pb c'est que ça bug, car le nombre de pages défini par la macro excel4 n'est pas fiable:
une fois il indique 3 pages, (sur un onglet de 4 pages) la fois d'après il indique 2 ou 4.
J'aimerais savoir si on ne peut pas s'appuyer sur la zone d'impression de chaque feuille, pour définir le nombre de pages. Exemple:
.PageSetup.PrintArea = "$A$1:$O$" & Range("c65365").End(xlUp).Row
me définit 4 pages
Comment utiliser cette info pour en extraire le nbre de pages.
Merci à vous