Discussion :

[jurassic pork]

Peux-tu nous donner le mode d'emploi pour reproduire le problème, en particulier
- contenu de la cellule active
cible (application) où l'on fait le coller

[goninph]

Hello,
si cela t'intéresse j'ai un classeur avec les modules de classe vbaClipBoard et clipboardFormat qui utilisent les API windows et qui permettent d'avoir les procédures suivantes :

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
Sub ListerFormatsPP()    ' Cette routine liste les formats présents dans le presse papier
    Dim monPP As New vbaClipboard
    Dim PPFormat As ClipboardFormat
    On Error GoTo ErrorHandler
    Debug.Print "===================================================================="
    For Each PPFormat In monPP.ClipboardFormatsAvailable
        Debug.Print PPFormat.Number, PPFormat.Name
    Next PPFormat
    Exit Sub
ErrorHandler:
    MsgBox Err.description
End Sub
Sub InjecterRTFdansPP()
    'Remplir le presse-papier avec du contenu RTF
    Dim monPP As New vbaClipboard
    Dim FSO As Object, FileToRead As Object
    Dim texteRTF As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set FileToRead = FSO.OpenTextFile("d:\temp\test.rtf")
    texteRTF = FileToRead.ReadAll
    FileToRead.Close
    monPP.SetClipboardText texteRTF, "Rich Text Format"
    ListerFormatsPP
End Sub
 
 
Sub InjecterHTMLdansPP()
    'Remplir le presse-papier avec du contenu HTML
    Dim monPP As New vbaClipboard
    Dim texteHTML As String
    texteHTML = "<i>" & texteHTML & "</i>"
    monPP.SetClipboardText texteHTML, "HTML Format"
    ListerFormatsPP
End Sub
 
 
Sub InjecterTextedansPP()
    'Remplir le presse-papier avec du contenu Texte
    Dim monPP As New vbaClipboard
    Dim texte As String
    texte = "Salut le monde !"
    monPP.SetClipboardText texte, "CF_TEXT"
    ListerFormatsPP
    'Affiche contenu Presse-papier
    Debug.Print monPP.GetClipboardText(1)
End Sub
Sub RécupTextedePP()
    'Récupérer contenu RTF du presse-papier
    Dim monPP As New vbaClipboard
    Dim Textepp As String
    Dim TexteNum As Long
    On Error Resume Next
    TexteNum = monPP.ClipboardFormatsAvailable("CF_TEXT").Number
    If Err.Number <> 0 Then
        On Error GoTo ErrorHandler
        Err.Raise vbObjectError + 1, , "Le presse-papier ne contient pas de contenu texte !"
    End If
    Textepp = monPP.GetClipboardText(TexteNum)
    Debug.Print Textepp
    Exit Sub
ErrorHandler:
    MsgBox Err.description
End Sub
Sub RécupRTFdePP()
    'Récupérer contenu RTF du presse-papier
    Dim monPP As New vbaClipboard
    Dim RTFpp As String
    Dim RTFNum As Long
    On Error Resume Next
    RTFNum = monPP.ClipboardFormatsAvailable("Rich Text Format").Number
    If Err.Number <> 0 Then
        On Error GoTo ErrorHandler
        Err.Raise vbObjectError + 1, , "Le presse-papier ne contient pas de contenu RTF !"
    End If
    RTFpp = monPP.GetClipboardText(RTFNum)
    Debug.Print RTFpp
    Exit Sub
ErrorHandler:
    MsgBox Err.description
End Sub
 
 
Sub RécupHTMLdePP()
    'Récupérer contenu HTML du presse-papier
    Dim monPP As New vbaClipboard
    Dim HTMLpp As String
    Dim HTMLNum As Long
    On Error Resume Next
    HTMLNum = monPP.ClipboardFormatsAvailable("HTML Format").Number
    If Err.Number <> 0 Then
        On Error GoTo ErrorHandler
        Err.Raise vbObjectError + 1, , "Le presse-papier ne contient pas de contenu HTML !"
    End If
    HTMLpp = monPP.GetClipboardText(HTMLNum)
    Debug.Print HTMLpp
    monPP.SetClipboardText HTMLpp, "HTML Format"
    Exit Sub
ErrorHandler:
    MsgBox Err.description
End Sub

Ami calmant, J.P

ça beug, je dois faire quelque chose de faux

[jurassic pork]

C'est normal vbaclipboard c'est un des modules de classes que tu n'as pas

La discussion peut durer très longtemps si tu ne réponds pas à mon message #21

[Thumb down]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function ClearPressePapier()
With CreateObject("htmlfile").parentwindow.clipboardData.clearData("Text"): End With
End Function
Public Property Let PressePapier(valeur)
With CreateObject("htmlfile").parentwindow.clipboardData.SetData("Text", valeur): End With
End Property
Public Property Get PressePapier()
PressePapier = CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT")
End Property
 Sub test()
PressePapier = "TOTO"
End sun

[goninph]

Peux-tu nous donner le mode d'emploi pour reproduire le problème, en particulier
- contenu de la cellule active = du texte
- cible (application) où l'on fait le coller = n'importe où, il faut que le texte soit du texte brut, genre Notepad

Je le colle dans autre application type 3e, c'est un ERP

[Thumb down]

Bonjour,
Je ne sais sila question s'adressait à moi donc je fais comme si!

Code Mode d'emploi :

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

1
2
3
4
5
6
7
8
9
 
 Sub test()
PressePapier = "TOTO"  'je place "TOTO" dans le presse papier
Dim var as string
Var = PressePapier 'je place le contenu du presse papier dans var
Range("A2")="RIRI"
PressePapier = Range("A2").Texte
Msgbox PressePapier
End sub

[goninph]

Je vais tester cette fonction

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
Function Clipboard(Optional StoreText As String) As String
'Pour copier Clipboard ActiveCell
'Pour coller MsgBox Clipboard
Dim x As Variant
    x = StoreText 'Stocker comme variante pour la prise en charge de VBA 64 bits
    'Créer un objet HTMLFile
    With CreateObject("htmlfile")
        With .parentWindow.clipboardData
            Select Case True
                Case Len(StoreText)
                'Écrire dans le presse-papiers
                    .setData "text", x
                Case Else
                'Lire depuis le presse-papiers (aucune variable transmise)
                Clipboard = .GetData("text")
            End Select
        End With
    End With
End Function

[goninph]

Ça fonctionne nickel merci à tous