Discussion :

[nocontrol]

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.

[SfJ5Rpw8]

montre nous ton code ...

[nocontrol]

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

[SfJ5Rpw8]

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

[nocontrol]

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 :

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

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

[SfJ5Rpw8]

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

Code :

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

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

[nocontrol]

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 :

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

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

[nocontrol]

Le code donne ca :

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