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.
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.
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
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)
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
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.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager