Discussion :

[soad029]

Salut tout le monde !

Voilà , j 'aimerai mettre AppWord.visible = false puis mettre le code suivant, qui permet d'atteindre un signet.

Code :

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

1
2
3
4
5
6
 
 With application
        .Selection.HomeKey Unit:=wdStory   'envoie en début de page
        'recherche du signet
        .Selection.Goto what:=wdGoToBookmark, Name:=signet
    End With

Mais ce code marche uniquement quand la propriété est à true...
En effet, j'ai le message : "Variable object ou variable de bloc With non définie" avec la propriété à false
C 'est assez embettant en faite. Quelqu'un aurait t'il une alternative ?

D'avance un grand merci !!!

[Theocourant]

Re,

Ne serait-ce pas plutôt un problème au niveau de ton appelation du With.

Je m'y perds un peu : tu travailles depuis Word directement ou depuis VB et tu pilotes Word ?

Car tu melange les 2 avec le AppWord.Visible et le Application dans le With...

+

Théo

[soad029]

Hola... en effet, je viens de me rendre compte qu'en plus de poster dans un mauvais forum, je me suis mal expliqué, le boulet quoi

En faite je pilote depuis access et le "With application" équivaut à "With appWord".

Voilou.

[SilkyRoad]

bonjour

peux tu préciser ce que tu souhaites faire lorsque tu auras atteint le signet :
lire le contenu?
modifier le contenu?


un exemple

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
Sub exportDonneesDansSignetsWord()
    'nécéssite d'activer la référence Microsoft Word xx.x Object Library
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    Dim i As Byte
 
    Set WordApp = CreateObject("word.application") 'ouvre session word
    Set WordDoc = WordApp.Documents.Open("C:\monFichier.doc") 'ouvre document Word
 
    WordApp.Visible = False 'word masqué pendant l'operation
    For i = 1 To 3
        'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
        WordDoc.Bookmarks("Signet" & i).Range.Text = "test" & i
    Next i
 
    WordDoc.Close True 'ferme le document word en sauvegardant les données
    WordApp.Quit 'ferme la session Word
End Sub

bonne soiree
michel

[soad029]

Salut Mister et merci beaucoup pour ta réponse.

En faite, une fois trouver le signet je fais tout simplement un collage d'un graphique précédement copier sur Excel :

Code :

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

application.Selection.Paste

Quand je met application.visible = true ça marche et false ça marche pas !!

[soad029]

Voilou, sa marche ! Tu m'as mis sur la bonne voie SilkyRoad.

Code :

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

1
2
3
 
    WordDoc.Bookmarks(signet).Select
    WordDoc.application.Selection.Paste

Merci bcp !!

[Theocourant]

Voilou, sa marche ! Tu m'as mis sur la bonne voie SilkyRoad.

Code :

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

1
2
3
 
    WordDoc.Bookmarks(signet).Select
    WordDoc.application.Selection.Paste

Merci bcp !!

Maintenant que ton problème est résolu, un petit clic sur le tag en bas sera le bienvenu...

Bonne continuation

Théo