Discussion :

[c.piette]

Bonjour à tous,


Voilà je me mets à créer des documents word depuis Excel. Je pilote la création de ces documents depuis Excel. Je cherche donc à pouvoir contrôler l'object "selection" que l'on retrouve systématiquement quand on utilise l'enregistreur de macro.

Comment faire depuis l'éditeur de macro d'Excel ? J'ai essayé ceci, mais ça ne fonctionne pas :/

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
18
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim Fichier As String
Dim Chemin As String
Dim MaFigure As InlineShape
 
Chemin = Workbooks(ThisWorkbook.Name).Path & "\Questionnaires individuels" 'C'est le chemin pour le DOSSIER des fiches de suivi
 
    On Error Resume Next
 
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Add    'ouvrir le document Word
 
WordDoc.SaveAs (Chemin & "\" & "Questionnaire de " & Prenom & " " & Nom & " Version du " & Format(Now(), "d mmm yyyy hhmm") & ".doc")
 
'Ceci ne semble pas fonctionner
    WordDoc.Selection

En fait mon problème, c'est que je veux être certain d'accéder à l'objet "Selection" de Word et non pas celui de Excel ... Que faire ?


Merci d'avance pour l'aide !

[clementmarcotte]

Bonjour,

Dans Word, si tu ne sélectionnes rien, ton objet "Selection" se résume au "curseur". Je n'ai pas essayé to code, mais, à première vue, tu es sur le bon chemin si tu cherches le text(e) de ton objet Selection. Tu peux toujours vérifier "manuellement" si tu utilises vraiment la sélection de Word avec quelque chose du genre.

Tu changes ta ligne :

Code :

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

WordDoc.Selection

par:

Code :

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

texte = WordDoc.Selection.text

Tu sélectionnes un bout de texte dans word

puis, tu mets un espion sur "texte", et tu regardes ce que cela donne dans la fenêtre espion en exécutant ta ligne au pas à pas.

[c.piette]

Re clementmarcotte,

J'ai trouvé d'où venait le problème:

C'est en fait une propriété de l'object Excel.Application et non pas Excel.Document ! La solution est :

Code :

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

1
2
3
4
5
6
7
Dim WordApp as Word.Application
 
Set WordApp = ...
 
'Avoir mon curseur ou ma sélection:
 
WordApp.Selection

Bonne soirée : )