Discussion :

[HAFNI84]

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 :

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

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
est ce qu'il y a une solution à mon probléme

[ouskel'n'or]

Conditionne l'exécution de ces trois lignes. Tu peux utiliser un boolean

Code :

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

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 :

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

Public ok as boolean

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

[HAFNI84]

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

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
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

[ouskel'n'or]

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

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
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+

[HAFNI84]

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

[ouskel'n'or]

Pour remplacer la valeur :

Code :

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

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 :

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

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.