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

[Philippe Tulliez]

Bonjour Fabrice,
Si vous travaillez avec des signets, vous pouvez parfaitement copier le tableau complet.
Voir mon billet titré VBA Excel - Transférer des données d'excel vers Word

Le tableau est collé tel qu'il apparaît (Valeur + format) mais les cellules avec la valeur et le format nombre

[Fabweb]

Merci Philippe,
mais je souhaite partir de mon VBA, et sans inclure de tableau, et copier seulement le contenu des cellules concernées vers leur signet respectif dans Word
Fabrice

[Philippe Tulliez]

Bonjour Fabrice,
En lisant mon billet, vous verrez comment je procède avec les cellules uniques

[Fabweb]

Mon niveau est vraiment trop faible pour comprendre les subtilités :-(

[Philippe Tulliez]

Bonjour,

Au lieu de

Code :

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

1
2
3
Cells(2, "E").Copy
        .Selection.GoTo what:=-1, Name:="Nom"
        .Selection.Paste

Ecrivez cette ligne (en supposant que les cellules à copier sont bien dans la feuille active, sinon, il y a lieu de préciser, pour une bonne pratique, la parentalité de l'objet Range)

Code :

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

.ActiveDocument.Bookmarks("Nom").Range.Text = Cells(2, "E").Text

et bien entendu, il y a lieu d'effectuer ce remplacement pour toutes les lignes traitant le Copier/Coller