Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Fonctions

Fonctions

12 réponses
Avatar
aife1
Bonjour à tous !!

Je recherche deux fonctions qui pourraient m'indiquer :

- le numéro de page et le nombre de pages totales de la feuille (pas en pied
de page mais dans une cellule)
- le chemin et le nom du classeur (il y a bien la fonction
"=informations(repertoire)" mais celui-ci ne m'indique que le chemin et le
nom du dossier dans lequel se trouve le classeur, et pas le nom du classeur.
Je pourrais combiner cette fonction avec une autre qui ne me donnerait que
le nom du classeur, mais je ne trouve pas.

Merci d'avance à ceux qui pourront m'aider ...
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
papou
Bonjour
Voici trois fonctions personnalisées qui permettent de faire ce que tu
demandes (à insérer dans un module standard) :
'Numéro de page de la cellule
Function NumeroPageCellule()
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim NumPage As Integer
If ActiveSheet.PageSetup.Order = xlDownThenOver Then
HPC = ActiveSheet.HPageBreaks.Count + 1
VPC = 1
Else
VPC = ActiveSheet.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In ActiveSheet.VPageBreaks
If VPB.Location.Column > ActiveCell.Column Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In ActiveSheet.HPageBreaks
If HPB.Location.Row > ActiveCell.Row Then Exit For
NumPage = NumPage + VPC
Next HPB
NumeroPageCellule = NumPage
End Function
'Nombre total de pages
Function NombreDePages()
Dim VPC As Integer, HPC As Integer
If ActiveSheet.PageSetup.Order = xlDownThenOver Then
HPC = ActiveSheet.HPageBreaks.Count + 1
VPC = 1
Else
VPC = ActiveSheet.VPageBreaks.Count + 1
HPC = 1
End If
NombreDePages = VPC + HPC
End Function
'Chemin complet du classeur
Function NomComplet()
NomComplet = ActiveWorkbook.FullName
End Function

Cordialement
Pascal

"aife1" a écrit dans le message de
news:%
Bonjour à tous !!

Je recherche deux fonctions qui pourraient m'indiquer :

- le numéro de page et le nombre de pages totales de la feuille (pas en
pied

de page mais dans une cellule)
- le chemin et le nom du classeur (il y a bien la fonction
"=informations(repertoire)" mais celui-ci ne m'indique que le chemin et le
nom du dossier dans lequel se trouve le classeur, et pas le nom du
classeur.

Je pourrais combiner cette fonction avec une autre qui ne me donnerait que
le nom du classeur, mais je ne trouve pas.

Merci d'avance à ceux qui pourront m'aider ...




Avatar
Hervé
Salut,
- Pour avoir le chemin et nom de classeur, tu as la fonction CELLULE de
cette façon : ÎLLULE("NomFichier"), il faut que le classeur est été
enregistré.
- Pour le nombre de pages à imprimer, tu peux utiliser cette macro liée à un
bouton ou en faire une fonction perso :
Sub NbPages()
[A1] = ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

Hervé.

"aife1" a écrit dans le message news:
#
Bonjour à tous !!

Je recherche deux fonctions qui pourraient m'indiquer :

- le numéro de page et le nombre de pages totales de la feuille (pas en
pied

de page mais dans une cellule)
- le chemin et le nom du classeur (il y a bien la fonction
"=informations(repertoire)" mais celui-ci ne m'indique que le chemin et le
nom du dossier dans lequel se trouve le classeur, et pas le nom du
classeur.

Je pourrais combiner cette fonction avec une autre qui ne me donnerait que
le nom du classeur, mais je ne trouve pas.

Merci d'avance à ceux qui pourront m'aider ...




Avatar
papou
Bonjour Hervé
J'avais effectivement pensé à la macro xl4 et à en faire une fonction mais
"bernique" ! impossible de retourner le résultat dans la cellule (par contre
si je récupère le résultat par vba pas de problème ?)
Donc si tu y parviens je serais curieux de connaître la méthode.
Cordialement
Pascal

"Hervé" a écrit dans le message de
news:%
Salut,
- Pour avoir le chemin et nom de classeur, tu as la fonction CELLULE de
cette façon : ÎLLULE("NomFichier"), il faut que le classeur est été
enregistré.
- Pour le nombre de pages à imprimer, tu peux utiliser cette macro liée à
un

bouton ou en faire une fonction perso :
Sub NbPages()
[A1] = ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

Hervé.

"aife1" a écrit dans le message news:
#
Bonjour à tous !!

Je recherche deux fonctions qui pourraient m'indiquer :

- le numéro de page et le nombre de pages totales de la feuille (pas en
pied

de page mais dans une cellule)
- le chemin et le nom du classeur (il y a bien la fonction
"=informations(repertoire)" mais celui-ci ne m'indique que le chemin et
le


nom du dossier dans lequel se trouve le classeur, et pas le nom du
classeur.

Je pourrais combiner cette fonction avec une autre qui ne me donnerait
que


le nom du classeur, mais je ne trouve pas.

Merci d'avance à ceux qui pourront m'aider ...








Avatar
Hervé
Bonjour Pascal,
Tu as raison, on ne peux pas en faire une fonction directe sans doute parce
quelle n'est pas évaluée dans le contexte du classeur actif :o((. Je n'avais
pas testé en disant cela à "aife1", mais il y a moyen de contourner le
problème en passant par une sub qui récupère le nombre et le stocke dans une
variable publique et la fonction en récupère la valeur :
---Dans un module standard
Public NB As Integer

Public Function NBPAGES() As Integer
Application.Volatile
NBPAGES = NB
End Function

---En utilisant l'évennement Calculate (ou un autre ?) pour actualiser la
variable :
Private Sub Worksheet_Calculate()
NB = ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

Cela est plus compliqué que ce que tu as fait car il faudrait utiliser un
module de classe (sur Calculate) afin de pouvoir employer la fonction dans
toutes les feuilles. Donc je pense que tu as donné la meilleure solution.

Hervé.

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message news:
O#
Bonjour Hervé
J'avais effectivement pensé à la macro xl4 et à en faire une fonction mais
"bernique" ! impossible de retourner le résultat dans la cellule (par
contre

si je récupère le résultat par vba pas de problème ?)
Donc si tu y parviens je serais curieux de connaître la méthode.
Cordialement
Pascal

"Hervé" a écrit dans le message de
news:%
Salut,
- Pour avoir le chemin et nom de classeur, tu as la fonction CELLULE de
cette façon : ÎLLULE("NomFichier"), il faut que le classeur est été
enregistré.
- Pour le nombre de pages à imprimer, tu peux utiliser cette macro liée
à


un
bouton ou en faire une fonction perso :
Sub NbPages()
[A1] = ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

Hervé.

"aife1" a écrit dans le message news:
#
Bonjour à tous !!

Je recherche deux fonctions qui pourraient m'indiquer :

- le numéro de page et le nombre de pages totales de la feuille (pas
en



pied
de page mais dans une cellule)
- le chemin et le nom du classeur (il y a bien la fonction
"=informations(repertoire)" mais celui-ci ne m'indique que le chemin
et



le
nom du dossier dans lequel se trouve le classeur, et pas le nom du
classeur.

Je pourrais combiner cette fonction avec une autre qui ne me donnerait
que


le nom du classeur, mais je ne trouve pas.

Merci d'avance à ceux qui pourront m'aider ...












Avatar
papou
Merci pour les tests Hervé ;-) , ça confirme bien ce que j'avais cru
déceler.
Cordialement
Pascal

"Hervé" a écrit dans le message de
news:%
Bonjour Pascal,
Tu as raison, on ne peux pas en faire une fonction directe sans doute
parce

quelle n'est pas évaluée dans le contexte du classeur actif :o((. Je
n'avais

pas testé en disant cela à "aife1", mais il y a moyen de contourner le
problème en passant par une sub qui récupère le nombre et le stocke dans
une

variable publique et la fonction en récupère la valeur :
---Dans un module standard
Public NB As Integer

Public Function NBPAGES() As Integer
Application.Volatile
NBPAGES = NB
End Function

---En utilisant l'évennement Calculate (ou un autre ?) pour actualiser la
variable :
Private Sub Worksheet_Calculate()
NB = ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

Cela est plus compliqué que ce que tu as fait car il faudrait utiliser un
module de classe (sur Calculate) afin de pouvoir employer la fonction dans
toutes les feuilles. Donc je pense que tu as donné la meilleure solution.

Hervé.

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message news:
O#
Bonjour Hervé
J'avais effectivement pensé à la macro xl4 et à en faire une fonction
mais


"bernique" ! impossible de retourner le résultat dans la cellule (par
contre

si je récupère le résultat par vba pas de problème ?)
Donc si tu y parviens je serais curieux de connaître la méthode.
Cordialement
Pascal

"Hervé" a écrit dans le message de
news:%
Salut,
- Pour avoir le chemin et nom de classeur, tu as la fonction CELLULE
de



cette façon : ÎLLULE("NomFichier"), il faut que le classeur est été
enregistré.
- Pour le nombre de pages à imprimer, tu peux utiliser cette macro
liée



à
un
bouton ou en faire une fonction perso :
Sub NbPages()
[A1] = ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

Hervé.

"aife1" a écrit dans le message news:
#
Bonjour à tous !!

Je recherche deux fonctions qui pourraient m'indiquer :

- le numéro de page et le nombre de pages totales de la feuille (pas
en



pied
de page mais dans une cellule)
- le chemin et le nom du classeur (il y a bien la fonction
"=informations(repertoire)" mais celui-ci ne m'indique que le chemin
et



le
nom du dossier dans lequel se trouve le classeur, et pas le nom du
classeur.

Je pourrais combiner cette fonction avec une autre qui ne me
donnerait




que
le nom du classeur, mais je ne trouve pas.

Merci d'avance à ceux qui pourront m'aider ...
















Avatar
aife1
Bonjour et merci à vous tous qui m'avez beoucoup aidé !!

A plus

"papou" <cestpasbonprobin@çanonpluscg44_fr> a écrit dans le message de
news:%
Merci pour les tests Hervé ;-) , ça confirme bien ce que j'avais cru
déceler.
Cordialement
Pascal

"Hervé" a écrit dans le message de
news:%
Bonjour Pascal,
Tu as raison, on ne peux pas en faire une fonction directe sans doute
parce

quelle n'est pas évaluée dans le contexte du classeur actif :o((. Je
n'avais

pas testé en disant cela à "aife1", mais il y a moyen de contourner le
problème en passant par une sub qui récupère le nombre et le stocke dans
une

variable publique et la fonction en récupère la valeur :
---Dans un module standard
Public NB As Integer

Public Function NBPAGES() As Integer
Application.Volatile
NBPAGES = NB
End Function

---En utilisant l'évennement Calculate (ou un autre ?) pour actualiser
la


variable :
Private Sub Worksheet_Calculate()
NB = ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

Cela est plus compliqué que ce que tu as fait car il faudrait utiliser
un


module de classe (sur Calculate) afin de pouvoir employer la fonction
dans


toutes les feuilles. Donc je pense que tu as donné la meilleure
solution.



Hervé.

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message
news:


O#
Bonjour Hervé
J'avais effectivement pensé à la macro xl4 et à en faire une fonction
mais


"bernique" ! impossible de retourner le résultat dans la cellule (par
contre

si je récupère le résultat par vba pas de problème ?)
Donc si tu y parviens je serais curieux de connaître la méthode.
Cordialement
Pascal

"Hervé" a écrit dans le message de
news:%
Salut,
- Pour avoir le chemin et nom de classeur, tu as la fonction CELLULE
de



cette façon : ÎLLULE("NomFichier"), il faut que le classeur est
été




enregistré.
- Pour le nombre de pages à imprimer, tu peux utiliser cette macro
liée



à
un
bouton ou en faire une fonction perso :
Sub NbPages()
[A1] = ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

Hervé.

"aife1" a écrit dans le message news:
#
Bonjour à tous !!

Je recherche deux fonctions qui pourraient m'indiquer :

- le numéro de page et le nombre de pages totales de la feuille
(pas





en
pied
de page mais dans une cellule)
- le chemin et le nom du classeur (il y a bien la fonction
"=informations(repertoire)" mais celui-ci ne m'indique que le
chemin





et
le
nom du dossier dans lequel se trouve le classeur, et pas le nom du
classeur.

Je pourrais combiner cette fonction avec une autre qui ne me
donnerait




que
le nom du classeur, mais je ne trouve pas.

Merci d'avance à ceux qui pourront m'aider ...




















Avatar
Papou
C'était avec plaisir ;-)

Cordialement
Pascal

"aife1" a écrit dans le message de
news:%
Bonjour et merci à vous tous qui m'avez beoucoup aidé !!

A plus

"papou" <cestpasbonprobin@çanonpluscg44_fr> a écrit dans le message de
news:%
Merci pour les tests Hervé ;-) , ça confirme bien ce que j'avais cru
déceler.
Cordialement
Pascal

"Hervé" a écrit dans le message de
news:%
Bonjour Pascal,
Tu as raison, on ne peux pas en faire une fonction directe sans doute
parce

quelle n'est pas évaluée dans le contexte du classeur actif :o((. Je
n'avais

pas testé en disant cela à "aife1", mais il y a moyen de contourner le
problème en passant par une sub qui récupère le nombre et le stocke
dans



une
variable publique et la fonction en récupère la valeur :
---Dans un module standard
Public NB As Integer

Public Function NBPAGES() As Integer
Application.Volatile
NBPAGES = NB
End Function

---En utilisant l'évennement Calculate (ou un autre ?) pour actualiser
la


variable :
Private Sub Worksheet_Calculate()
NB = ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

Cela est plus compliqué que ce que tu as fait car il faudrait utiliser
un


module de classe (sur Calculate) afin de pouvoir employer la fonction
dans


toutes les feuilles. Donc je pense que tu as donné la meilleure
solution.



Hervé.

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message
news:


O#
Bonjour Hervé
J'avais effectivement pensé à la macro xl4 et à en faire une
fonction




mais
"bernique" ! impossible de retourner le résultat dans la cellule
(par




contre
si je récupère le résultat par vba pas de problème ?)
Donc si tu y parviens je serais curieux de connaître la méthode.
Cordialement
Pascal

"Hervé" a écrit dans le message de
news:%
Salut,
- Pour avoir le chemin et nom de classeur, tu as la fonction
CELLULE





de
cette façon : ÎLLULE("NomFichier"), il faut que le classeur est
été




enregistré.
- Pour le nombre de pages à imprimer, tu peux utiliser cette macro
liée



à
un
bouton ou en faire une fonction perso :
Sub NbPages()
[A1] = ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

Hervé.

"aife1" a écrit dans le message news:
#
Bonjour à tous !!

Je recherche deux fonctions qui pourraient m'indiquer :

- le numéro de page et le nombre de pages totales de la feuille
(pas





en
pied
de page mais dans une cellule)
- le chemin et le nom du classeur (il y a bien la fonction
"=informations(repertoire)" mais celui-ci ne m'indique que le
chemin





et
le
nom du dossier dans lequel se trouve le classeur, et pas le nom
du






classeur.
Je pourrais combiner cette fonction avec une autre qui ne me
donnerait




que
le nom du classeur, mais je ne trouve pas.

Merci d'avance à ceux qui pourront m'aider ...
























Avatar
jps
pas sympa d'usurper, souriette incluse, les réponses de nos grands
absents....
jps

"Papou" a écrit dans le message de
news:%
C'était avec plaisir ;-)

Cordialement
Pascal

"aife1" a écrit dans le message de
news:%
Bonjour et merci à vous tous qui m'avez beoucoup aidé !!

A plus

"papou" <cestpasbonprobin@çanonpluscg44_fr> a écrit dans le message de
news:%
Merci pour les tests Hervé ;-) , ça confirme bien ce que j'avais cru
déceler.
Cordialement
Pascal

"Hervé" a écrit dans le message de
news:%
Bonjour Pascal,
Tu as raison, on ne peux pas en faire une fonction directe sans
doute




parce
quelle n'est pas évaluée dans le contexte du classeur actif :o((. Je
n'avais

pas testé en disant cela à "aife1", mais il y a moyen de contourner
le




problème en passant par une sub qui récupère le nombre et le stocke
dans



une
variable publique et la fonction en récupère la valeur :
---Dans un module standard
Public NB As Integer

Public Function NBPAGES() As Integer
Application.Volatile
NBPAGES = NB
End Function

---En utilisant l'évennement Calculate (ou un autre ?) pour
actualiser




la
variable :
Private Sub Worksheet_Calculate()
NB = ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

Cela est plus compliqué que ce que tu as fait car il faudrait
utiliser




un
module de classe (sur Calculate) afin de pouvoir employer la
fonction




dans
toutes les feuilles. Donc je pense que tu as donné la meilleure
solution.



Hervé.

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message
news:


O#
Bonjour Hervé
J'avais effectivement pensé à la macro xl4 et à en faire une
fonction




mais
"bernique" ! impossible de retourner le résultat dans la cellule
(par




contre
si je récupère le résultat par vba pas de problème ?)
Donc si tu y parviens je serais curieux de connaître la méthode.
Cordialement
Pascal

"Hervé" a écrit dans le message de
news:%
Salut,
- Pour avoir le chemin et nom de classeur, tu as la fonction
CELLULE





de
cette façon : ÎLLULE("NomFichier"), il faut que le classeur
est






été
enregistré.
- Pour le nombre de pages à imprimer, tu peux utiliser cette
macro






liée
à
un
bouton ou en faire une fonction perso :
Sub NbPages()
[A1] = ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

Hervé.

"aife1" a écrit dans le message news:
#
Bonjour à tous !!

Je recherche deux fonctions qui pourraient m'indiquer :

- le numéro de page et le nombre de pages totales de la
feuille







(pas
en
pied
de page mais dans une cellule)
- le chemin et le nom du classeur (il y a bien la fonction
"=informations(repertoire)" mais celui-ci ne m'indique que le
chemin





et
le
nom du dossier dans lequel se trouve le classeur, et pas le
nom







du
classeur.
Je pourrais combiner cette fonction avec une autre qui ne me
donnerait




que
le nom du classeur, mais je ne trouve pas.

Merci d'avance à ceux qui pourront m'aider ...




























Avatar
aife1
Salut Papou !!

Merci beaucoup pour ton aide, tes fonctions marchent à merveille. Mais j'ai
encore un petit problème pour le numéro de page et le nombre total de pages
:

je voudrais insérer ces deux fonctions dans une cellule, de type
=(NumeroPageCellule())&" sur "&(NombreDePages())
mais ça me met #VALEUR!

Aurais-tu une idée ?

Merci d'avance ...

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:
Bonjour
Voici trois fonctions personnalisées qui permettent de faire ce que tu
demandes (à insérer dans un module standard) :
'Numéro de page de la cellule
Function NumeroPageCellule()
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim NumPage As Integer
If ActiveSheet.PageSetup.Order = xlDownThenOver Then
HPC = ActiveSheet.HPageBreaks.Count + 1
VPC = 1
Else
VPC = ActiveSheet.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In ActiveSheet.VPageBreaks
If VPB.Location.Column > ActiveCell.Column Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In ActiveSheet.HPageBreaks
If HPB.Location.Row > ActiveCell.Row Then Exit For
NumPage = NumPage + VPC
Next HPB
NumeroPageCellule = NumPage
End Function
'Nombre total de pages
Function NombreDePages()
Dim VPC As Integer, HPC As Integer
If ActiveSheet.PageSetup.Order = xlDownThenOver Then
HPC = ActiveSheet.HPageBreaks.Count + 1
VPC = 1
Else
VPC = ActiveSheet.VPageBreaks.Count + 1
HPC = 1
End If
NombreDePages = VPC + HPC
End Function
'Chemin complet du classeur
Function NomComplet()
NomComplet = ActiveWorkbook.FullName
End Function

Cordialement
Pascal

"aife1" a écrit dans le message de
news:%
Bonjour à tous !!

Je recherche deux fonctions qui pourraient m'indiquer :

- le numéro de page et le nombre de pages totales de la feuille (pas en
pied

de page mais dans une cellule)
- le chemin et le nom du classeur (il y a bien la fonction
"=informations(repertoire)" mais celui-ci ne m'indique que le chemin et
le


nom du dossier dans lequel se trouve le classeur, et pas le nom du
classeur.

Je pourrais combiner cette fonction avec une autre qui ne me donnerait
que


le nom du classeur, mais je ne trouve pas.

Merci d'avance à ceux qui pourront m'aider ...








Avatar
papou
Bonjour
Tel quel avec des espaces et quelques parenthèses en moins ;-)
=NumeroPageCellule() & " sur " & NombreDePages()

Cordialement
Pascal

"aife1" a écrit dans le message de
news:
Salut Papou !!

Merci beaucoup pour ton aide, tes fonctions marchent à merveille. Mais
j'ai

encore un petit problème pour le numéro de page et le nombre total de
pages

:

je voudrais insérer ces deux fonctions dans une cellule, de type
=(NumeroPageCellule())&" sur "&(NombreDePages())
mais ça me met #VALEUR!

Aurais-tu une idée ?

Merci d'avance ...

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:
Bonjour
Voici trois fonctions personnalisées qui permettent de faire ce que tu
demandes (à insérer dans un module standard) :
'Numéro de page de la cellule
Function NumeroPageCellule()
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim NumPage As Integer
If ActiveSheet.PageSetup.Order = xlDownThenOver Then
HPC = ActiveSheet.HPageBreaks.Count + 1
VPC = 1
Else
VPC = ActiveSheet.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In ActiveSheet.VPageBreaks
If VPB.Location.Column > ActiveCell.Column Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In ActiveSheet.HPageBreaks
If HPB.Location.Row > ActiveCell.Row Then Exit For
NumPage = NumPage + VPC
Next HPB
NumeroPageCellule = NumPage
End Function
'Nombre total de pages
Function NombreDePages()
Dim VPC As Integer, HPC As Integer
If ActiveSheet.PageSetup.Order = xlDownThenOver Then
HPC = ActiveSheet.HPageBreaks.Count + 1
VPC = 1
Else
VPC = ActiveSheet.VPageBreaks.Count + 1
HPC = 1
End If
NombreDePages = VPC + HPC
End Function
'Chemin complet du classeur
Function NomComplet()
NomComplet = ActiveWorkbook.FullName
End Function

Cordialement
Pascal

"aife1" a écrit dans le message de
news:%
Bonjour à tous !!

Je recherche deux fonctions qui pourraient m'indiquer :

- le numéro de page et le nombre de pages totales de la feuille (pas
en



pied
de page mais dans une cellule)
- le chemin et le nom du classeur (il y a bien la fonction
"=informations(repertoire)" mais celui-ci ne m'indique que le chemin
et



le
nom du dossier dans lequel se trouve le classeur, et pas le nom du
classeur.

Je pourrais combiner cette fonction avec une autre qui ne me donnerait
que


le nom du classeur, mais je ne trouve pas.

Merci d'avance à ceux qui pourront m'aider ...












1 2