Discussion :

[AirbusA330]

Bonjour

Je travaille sur un document word ou j'insere du Texte venant d'une base de donnée. Je voudrais savoir comment recuperer le numero de la page courante sur laquelle je me trouve.

Merci de votre aide.

[SfJ5Rpw8]

Tu oubli de nous dire comment tu "travaille sur un document word" ?

si tu utilise l'automation par exemple,ton problème semble plus lié à Word qu'au langage que tu utilise pour créer ton fichier ...

D'ailleurs voir : VB6 sur developpez.com

[AirbusA330]

Tu oubli de nous dire comment tu "travaille sur un document word" ?

si tu utilise l'automation par exemple,ton problème semble plus lié à Word qu'au langage que tu utilise pour créer ton fichier ...

D'ailleurs voir : VB6 sur developpez.com

Merci bbil

Je ne cree pas mon document par programme , j'ai un model que j'ouvre et j'insere du texte puis je le sauvegarde. Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim MydocWord as Word.Application
.
.
.
Set MydocWord = New Word.Application
 
mydocWord.Documents.Add NomFichier
 
with MydocWord.Selection
            .Document.Tables(Index).Cell(X, Y).Range.Text = MonText
       ;;;;;;
       ;;;;;;;
 
         ' Ici j'ai un test pour voir si j'ai changé de page car Montext est  de     longueur Variable: Si oui j'insere mon entete
 
End With

[SfJ5Rpw8]

..

si tu utilise l'automation par exemple,ton problème semble plus lié à Word qu'au langage que tu utilise pour créer ton fichier ...

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim MydocWord as Word.Application
Dim NumPage As Integer '<=========
 
.
.
.
Set MydocWord = New Word.Application
 
mydocWord.Documents.Add NomFichier
 
with MydocWord.Selection
  NumPage = .Information(wdActiveEndAdjustedPageNumber) '<=========
 
            .Document.Tables(Index).Cell(X, Y).Range.Text = MonText
       ;;;;;;
       ;;;;;;;
 
         ' Ici j'ai un test pour voir si j'ai changé de page car Montext est  de     longueur Variable: Si oui j'insere mon entete
 
End With

Je n'y connais rien dans l'utilisation de Word.Application, je n'en ai jamais eu besoin, reste que si cela peut te rendre service (mais surtout que cela est pertinent)

[AirbusA330]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim MydocWord as Word.Application
Dim NumPage As Integer '<=========
 
.
.
.
Set MydocWord = New Word.Application
 
mydocWord.Documents.Add NomFichier
 
with MydocWord.Selection
  NumPage = .Information(wdActiveEndAdjustedPageNumber) '<=========
 
            .Document.Tables(Index).Cell(X, Y).Range.Text = MonText
       ;;;;;;
       ;;;;;;;
 
         ' Ici j'ai un test pour voir si j'ai changé de page car Montext est  de     longueur Variable: Si oui j'insere mon entete
 
End With

Je n'y connais rien dans l'utilisation de Word.Application, je n'en ai jamais eu besoin, reste que si cela peut te rendre service (mais surtout que cela est pertinent)

Merci ProgElecT

Ta reponse me fait un peu avancer meme c'est la bonne solution si on se place manuellement sur la page courante , mais comme j'insere automatiquement mes textes , le Compteur de page reste tjrs sur la page Num 1 , je fais des Break Point et je me place manuellement sur une page quelconque , .Information(wdActiveEndAdjustedPageNumber) me donne bien le numero de la page.... alors je cherches encore.