VBA problème pour passer des données EXCEL vers WORD

Bonsoir,

Je fais un programme sous Excel, celui-ci ouvre un document word et est sensé coller les informations que je récupère sur Excel.

Mon problème est que une fois mon document Word ouvert, je n'arrive pas à dire à mon programme de Focus la page pour que je puisse enfin coller les informations que je souhaite.
J'ai essayé avec Selections Select Focus Active mais rien n'y fait :/ mon dev est fait sur Excel.

montre nous ton code ...

Je le travail au boulot :/ rien que la sheet fait environ 1300 lignes de code

Citation:

---

Envoyé par nocontrol

Je le travail au boulot :/ rien que la sheet fait environ 1300 lignes de code

---

alors il te faut re-écrire tout ton code pour ouvrir un fichier word et copier dans le presse-papier une sélection c'est beaucoup trop long 1300 lignes de codes !!!!

J'ai pas accès et je peu pas trop divulguer d'informations :/ charte de déontologie oblige. Et comme je suis en apprentissage j'ai pas mal a apprendre ^^.

Code:

---

1 2 3 4 5 6 7 8 9

Dim objWord As New Word.Application   Set objWord = New Word.Application objWord.Visible = True objWord.Documents.Add ActiveDocument.objWord 'Je bloque ici     End Sub

---

De mémoire la partie qui ouvre le doc Word donnait ca

Comme l'on sait pas ce que tu veux copier ...:

Code:

---

1 2 3 4 5 6 7 8 9

Dim objWord As New Word.Application Dim MonDoc As Word.Document Set objWord = New Word.Application objWord.Visible = True Set MonDoc = objWord.Documents.Add ThisWorkbook.Worksheets(1).Range("A1:C3").Copy MonDoc.Range.Paste

---

et pour travailler sur un document Word en VBA voir :

Initiez vous au VBA Word

et VBA Word

Merci pour ton aide, j'ai enfin accès à mon code ^^.
Je passe des valeurs dans des variables.
Je donne la valeur de mes variables à la valeur des cellules correspondentes, puis je copie le tout.
Et j'ouvre mon document Word.

Code:

---

1 2 3 4 5 6

Workbooks("MondocExcel.xlsm").Activate Sheet9.range("A1:H82").Copy   Set wordApp = New Word.Application wordApp.Visible = True Set objWord = wordApp.Documents.Open("C:\USERS\mondocWORD.docm")

---

Le code donne ca :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Dim wordApp As Word.Application Dim wordDoc As New Word.document   Workbooks("DocEXCEL.xlsm").Activate Sheet9.range("A1:H82").Copy   'Version WORD   Set wordApp = New Word.Application wordApp.Visible = True Set wordDoc = wordApp.Documents.Open("C:\USERS\DocWORD.docm") wordDoc.range.Paste     'Version EXCEL   ' Set newexcel = Workbooks.Add ' ActiveSheet.range("A1").Select ' ActiveCell.PasteSpecial ' Windows("DocECXEL.xlsm").Activate

---