Discussion :

[Fabweb]

Bonjour à tous,

je recherche un peu d'aide pour mon projet...

J'ai réalisé (à partir de tutos et d'aide ici) un VBA qui me permet de trier et faire des recherches depuis un Google sheet, et ça fonctionne très bien.

Voila maintenant, j'aimerai que en double cliquant sur une des lignes de la Listbox, le contenu des colonnes arrive dans un document Word dans lequel j'ai placé des signets.

Mon problème est que ce n'est pas le contenu de la cellule qui est copié mais la cellule elle même avec sa couleur de fond, ce qui décale tout mon document(voir photo)

Et que ce qui est copié n'est pas le contenu de la ligne sur laquelle j'ai double cliqué mais toujours la première ligne (je sais que c'est à cause du 2 dans (cells (2,"E"......) mais je ne sais pas par quoi il faut le remplacer.

Merci d'avance

Fabrice

Voici le code pour le double clic:

Code :

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

1
2
3
4
5
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
 Call CreationCalqueWord
 
End Sub

et le code du module :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Option Explicit
 
Sub CreationCalqueWord()
 
Dim wdapp As Word.Application
 
Set wdapp = New Word.Application
 
    With wdapp
        .Visible = True
        .Activate
        .Documents.Add "C:\Users\Fabrice\Desktop\Dossier Temp VBA Pret\Test VBA avec word signets\Calque Word.dotx"
 
  Cells(2, "E").Copy
        .Selection.GoTo what:=-1, Name:="Nom"
        .Selection.Paste
 
  Cells(2, "F").Copy
        .Selection.GoTo what:=-1, Name:="Prénom"
        .Selection.Paste
 
  Cells(2, "B").Copy
        .Selection.GoTo what:=-1, Name:="DATETEST"
        .Selection.Paste
 
   Cells(2, "H").Copy
        .Selection.GoTo what:=-1, Name:="DDN"
        .Selection.Paste
 
   Cells(2, "BT").Copy
        .Selection.GoTo what:=-1, Name:="francais"
        .Selection.Paste
 
   Cells(2, "EC").Copy
        .Selection.GoTo what:=-1, Name:="math"
        .Selection.Paste
 
  Cells(2, "FR").Copy
        .Selection.GoTo what:=-1, Name:="CG"
        .Selection.Paste
 
   Cells(2, "FS").Copy
        .Selection.GoTo what:=-1, Name:="total"
        .Selection.Paste
 
   End With
 
End Sub