Bonjour,

Je m'excuse a l'avance pour le manque d'accent: j'ai n clavier anglais.
Je suis un programmeur du dimanche (j'imagine qu'il n'y a rien de pire ) et j'aurais besoin d'aide sur un programme que j'essaie de mettre au point. Je suis sur que c'est assez simple pour vous.

J'ai une feuille excel avec des coordonnees x et y. Je voudrais utiliser ces donnees pour creer des cercles dans un document word.
Mon probleme c'est que je ne sais pas comment passer d'excel a word et vice-versa pour populer mon document word.
J'ai une ebauche de code mais c'est du trifouillage qui ne mene a pas grand chose. Votre aide serait donc bienvenue.

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
22
23
24
25
26
27
28
29
30
31
32
Sub kinasepanel()
 
Dim wordkinomeapp As Object
Dim data As Range
Dim i, kinase As Integer
Dim wrdDoc As Word.Document
Dim rond As Shape
 
 
 
 
    Set wordkinomeapp = CreateObject("word.Application")
    wordkinomeapp.Visible = False
    Set wrdDoc = wordkinomeapp.Documents.Open("H:\kinome map 3.doc")
    wrdDoc.Visible = False
 
    ' cycle through all kinase from panel in sheet 1
    i = Application.CountA(Sheets("Sheet1").Range("A:A"))
    MsgBox (i)
 
    rond = wrdDoc.Shapes("oval 387")
 
    For kinase = 2 To i
    Selection.Copy
    Selection.Paste
    Selection.ShapeRange.IncrementTop Sheets("Sheet1").Range("B" & i).Value
    Selection.ShapeRange.IncrementLeft Sheets("Sheet1").Range("C" & i).Value
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(235, 247, 255)
    Next kinase
 
 
End Sub
Merci.
Fred