Discussion :

[atk_49]

Bonjour,

J'utilise la fonction suivante pour enregistrer un texte (variable) dans le presse papier afin de pouvoir le coller manuellement ailleurs :

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
 
Sub Copie()
Dim Str As String
Dim MyData As DataObject
Set MyData = New DataObject
 
Str = "Texte à copier"
 
With MyData
    .SetText Str
    .PutInClipboard
End With
 
Set MyData = Nothing
 
End Sub

La majeure partie du temps cela fonctionne très bien, mais parfois le résultat obtenu en collant est le suivant :



Ou via notepad ++ :




Je n'arrive pas à comprendre les raisons qui provoque ce problème et encore moins à le résoudre, pourriez-vous m'aider svp ?

Merci d'avance.