Discussion :

[Hubs702]

bonjour à tous

J'ai un souci avec le fonctionnement du presse-papier Windows. Avec une Macro, je veux copier une plage de cellules dans Excel , puis la coller dans Word.

A la main, ça fonctionne. Mais il me faut une macro, pour garantir que les utilisateurs ne modifieront pas les valeurs. J'arrive à faire la copie, j'arrive même à extraire les informations du presse-papier (voir le fichier joint), mais si je tente le Ctrl-V : ça plante.

Auriez-vous des pistes ?

Merci d'avance

Edit : En y regardant de plus près, ce que j'ai écrit ne va rien chercher dans le presse papiers, mais va simplement afficher une matrice générée de manière dynamique. MAis la question reste entière : je veux copier et je n'y arrive pas !

[Valtrase]

Salut le fil,
Tu peux tester avec un objet Word, voici un exemple sorti tout droit de mes références et que je n'ai pas testé.
ATTENTION AVANT DE TESTER TU DOIT L'ADAPTER CAR IL Y A UNE COPIE DE GRAPHIQUE.

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Sub Test_150922()
 
' // LA REFERENCE Microsoft Word XX.00 Object library DOIT ETRE COCHEE
 
 
   Dim oAppWord As New Word.Application
   Dim oDocWord As New Word.Document
 
   '  // Ajoute un nouveau document
   With oAppWord
      ' // On affiche ou pas Word
      .visible = True
      Set oDocWord = .Documents.Add
      .Activate
   End With
 
   With oAppWord.Selection
       '   // Ajoute une ligne de titre et la met en forme
       .TypeText Text:="Résultat des ventes de 2014"
       .HomeKey Unit:=wdLine
       .EndKey Unit:=wdLine, Extend:=wdExtend
       .ParagraphFormat.Alignment = wdAlignParagraphCenter
       .Font.Size = 18
        With .Font
             .Name = "Arial"
             .Size = 18
             .Bold = True
             .Italic = False
             .Smallcaps = True
        End With
 
       '  // Copie le tableau Excel dans le Presse-papiers
       Range("A1:D10").Copy
       '  // Colle le tableau dans Word avec liaison
       .EndKey Unit:=wdLine
       .TypeParagraph
       .TypeParagraph
       .PasteSpecial Link:=True, DataType:=wdPasteOLEObject, _
                     Placement:=wdInLine, DisplayAsIcon:=False
 
       '  // Copie le graphique Excel dans le Presse-papiers
       ActiveSheet.ChartObjects(1).Activate
       ActiveChart.ChartArea.Select
       ActiveChart.ChartArea.Copy
       '  Colle le graphique dans Word
       .TypeParagraph
       .TypeParagraph
       .Paste
   End With
 
   With oDocWord
        '   // Enregistre le document Word dans le même
        '   // dossier que le classeur Excel
        .SaveAs ThisWorkbook.Path & "\Resultat_2014.docx", _
        Allowsubstitutions:=True
        '   // Aperçu du résultat dans Word
        .PrintPreview
   End With
 
   '   // Réinitialise l'objet
   Set oAppWord = Nothing
End Sub

[jurassic pork]

Hello,
c'est normal que le coller de ce que tu as mis dans le presse-papier par ta macro ne fonctionne pas : il y a n'importe quoi dedans et le presse-papier ne comprend pas ce contenu :



En particulier le CF_TEXT est nul.


Voici le contenu du presse-papier en faisant un ctrl+C de la plage :



Ami calmant, J.P

[Hubs702]

@Valtrase : Merci beaucoup

Mais dans cet exemple, on part de Word pour aller chercher quelque chose dans Excel. Je voudrais faire l'inverse, c'est à dire récupérer des valeurs dans Excel, les copier dans le presse-papiers, et laisser l'utilisateur faire son collage où il veut dans un document Word qui n'est jamais identique d'une fois sur l'autre. Ce sont des rapports de contrôle : le technicien fait des mesures, la macro Excel compile les résultats, génère de nouvelles valeurs, et ce sont celles-là qu'il faut intégrer, au fil de l'eau, dans le Word.

J'ai cherché un peu partout. Ce n'est pas clair. J'ai même trouvé un forum où il est indiqué que si l'explorateur Win10 est ouvert avant le fichier Excel, alors la copie dans le clipboard ne fonctionne pas (?!)

Je continue à chercher. Au pire, j'envoie les valeurs dans un nouveau fichier Excel, et le technicien fait son Ctrl-C - Ctrl-V à l'ancienne...

[Hubs702]

@ Jurassic JP

Je suis scotché. éditer le presse papiers dépasse mon niveau actuel de compétences. Chapeau bas.

Donc j'envoie tout et rien dans le truc. OK. Alors je progresse.

Si je demande à ma macro de faire un simple Range("A1:B5").Copy et que je tente le Ctrl-V, ça fonctionne

Mais si, après avoir copié les données, je les efface, alors ça ne fonctionne plus. Or, je veux les effacer... voir le nouveau fichier

Donc la question devient : est-il possible de "geler" le contenu du presse-papiers ?

[jurassic pork]

Qu'entends-tu par geler le presse-papier ? Si tu l'effaces il n'y a plus rien dedans.

[Hubs702]

je n'efface pas le presse papier, j'efface la zone dans laquelle il y avait des données que j'ai copiées dans le presse papiers.

[jurassic pork]

voici un exemple de comment mettre des données tableau dans le presse-papier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Enregistre_dans_le_presse_papier()
Dim objData As New DataObject
Dim PPContenu As String
PPContenu = "toto" & Chr(9) & "1" & Chr(13) & Chr(10) & _
            "tata" & Chr(9) & "2" & Chr(13) & Chr(10) & _
            "titi" & Chr(9) & "3" & Chr(13) & Chr(10) & _
            "tutu" & Chr(9) & "4" & Chr(13) & Chr(10) & _
            "tyty" & Chr(9) & "5" & Chr(13) & Chr(10)
objData.SetText PPContenu
objData.PutInClipboard
End Sub

[Hubs702]

Heu ... quand je fais Ctrl-V, j'obtiens deux petits caractères abscons...

[Hubs702]

bon. Je suis à la bourre, j'abandonne. Je vais préparer les données à copier dans une feuille dédiée et les "offrir" à l'utilisateur qui fera son copier-coller à l'ancienne.

Un grand merci à ceux qui m'ont aidé.

[jurassic pork]

Hello,
en fait ton souci vient du fait que l'action d'effacer le contenu d'une plage de cellules , efface le contenu du presse-papier.
Alors si tu peux le faire, efface le contenu de la plage de cellules après avoir collé le contenu du presse-papier dans word.
Quand tu fais CTRL V dans word d'une plage de cellules copiée d' Excel c'est le format RTF du presse-papier qui est collé ce qui correspond à un tableau word.
Si ça intéresse des personnes j'ai des modules de classe VBA qui permettent de manipuler le presse-papier mieux que le DataObject.
Avec ces modules on peut par exemple :

• Lister tous les formats qui se trouvent dans le presse-papier.
• Récupérer sous forme de chaîne du contenu Texte, RTF, HTML qui se trouve dans le presse-papier.
• Injecter dans le presse-papier du RTF, HTML, Texte.

Ami calmant, J.P