Initialiser un signet word à partir d'excel

Version imprimable

24/05/2007, 16h47
HAFNI84

Initialiser un signet word à partir d'excel
bonjour j 'ai un petit souci je veux intialiser mon signet apres fermeture du word voici le code que je lance il marche c'est de devloppez.com
Code:

1 2 3 4 For i = 1 To 3 'les signets du document Word sont nommés Signet1 , Signet2 , Signet3 wrdDoc.Bookmarks("Signet1").Range.Text = Worksheets("Sheet1").Cells(i, 1) Next i
mais lorseque je execute encore mon code il l'ajoute encore une fois :bug:
est ce qu'il y a une solution à mon probléme
24/05/2007, 16h55
ouskel'n'or
Conditionne l'exécution de ces trois lignes. Tu peux utiliser un boolean
Code:

1 2 3 4 If not ok then 'ta boucle ok = true endif
Et si tu sors de cette macro avant de la relancer, déclare Ok en Public dans un module

Code:

Public ok as boolean

Enfin... c'est "une" solution...

en fait j 'ai un probléme lorseque je lance word

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte
 
    Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("monDocument.doc")    'ouvre le document Word
    WordApp.Visible = False    'Word est masqué pendant l'opération
 
    For i = 1 To 3
        'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
        WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(i, 1)
    Next i
 
    WordApp.Visible = True    'affiche le document Word
    'WordDoc.PrintOut 'Pour imprimer le doc obtenu
 
    'WordDoc.Close True 'ferme le document word en sauvegardant les données
    'WordApp.Quit 'ferme la session Word

je voie pas comment initialiser les signets pour les vider

Je viens enfin de comprendre :oops: Tu veux simplement renseigner les signets de ton doc...
J'ai donc... "testé pour vous" :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub RenseignerLesSignets()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte
 
    Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("D:\Doc\LeDoc.doc")    'ouvre le document Word
    WordApp.Visible = False    'Word est masqué pendant l'opération
    With WordApp
        For i = 1 To 3
            .Selection.Goto What:=wdGoToBookmark, Name:="Signet" & i
            .Selection.TypeText Text:=Cells(i, 1).Value
            'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
        Next i
    End With
 
    'WordApp.Visible = True    'affiche le document Word
    'WordDoc.PrintOut 'Pour imprimer le doc obtenu
 
    WordDoc.Close True 'ferme le document word en sauvegardant les données
    WordApp.Quit 'ferme la session Word
 
End Sub

Désolé, aujourd'hui j'étais un peu bouché :(
A+

24/05/2007, 23h14
HAFNI84

ca marche encore pas

en fait lorsque je le lance encore une fois les contenues des cellule cells(1,i)
se repete et je voudrais qu'il s'intialise que le contenue du signet s'initialise:bug:

Pour remplacer la valeur :

Code:

1
2
3
4
5
6
7
     With WordApp
        For i = 1 To 3
            .Selection.Goto What:=wdGoToBookmark, Name:="Signet" & i
            .Selection.EndKey Unit:=wdLine, Extend:=wdExtend
            .Selection.TypeText Text:=Cells(i, 1).Value
        Next i
    End With

Pour supprimer la valeur :

Code:

1
2
3
4
5
6
7
     With WordApp
        For i = 1 To 3
            .Selection.Goto What:=wdGoToBookmark, Name:="Signet" & i
            .Selection.EndKey Unit:=wdLine, Extend:=wdExtend
            .Selection.TypeText Text:=""
        Next i
    End With

S'il n'y a rien d'autre sur ta ligne.