Accéder à l'object "selection" de word depuis une macro Excel

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:

---

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 !

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:

---

WordDoc.Selection

---

par:

Code:

---

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.

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:

---

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