Discussion :

[pepel64]

Bonjour,
Je cherche à contrôler au début d'une macro que le presse-papier contient bien des données issues d'un autre tableau (que l'utilisateur doit copier et ensuite cliquer sur un bouton pour coller dans le tableau destinataire)
J'ai trouvé pour contrôler que le presse-papier est non vide, mais si le presse-papier contient du texte par ex (si l'utilisateur oublie de copier le tableau source et que son presse-papier contient déjà qq chose), le test est ok et la macro échoue ensuite sur le Pastespecial
Est-ce que quelqu'un a une idée, je n'ai rien trouvé là-dessus dans mes recherches.
Merci d'avance.

[unparia]

Bonjour
La méthode getfromclipboard (rubrique GetFromClipboard, méthode de ton aide interne VBA à lire) te permettra de connaître le contenu du presse-papier, mais bien évidemment pas de déterminer dynamiquement s'il est ce que tu souhaites !

[pepel64]

Bonjour,
Actuellement j'ai ça dans le code que j'ai trouvé sur un autre forum

Code :

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

1
2
3
4
Dim x As New DataObject
    x.GetFromClipboard
        If x.GetFormat(1) = False Then
            MsgBox "Le presse-papier est vide"

Mais comme je l'expliquais ça ne fonctionne pas

[unparia]

Je ne sais pas dans quelles "gamelles" tu cherches et "trouves" ...
Regarde ce que fait par exemple ceci :

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
    Set MyData = New DataObject
    MyData.GetFromClipboard
    MsgBox MyData.GetText(1)
End Sub

va où te pousse le vent, copie ce que tu veux et lance ce petit bout de code.

[patricktoulon]

une idée juste comme ca avec un autre object sans un module standard
le principe est de tester le left et le right du texte voir si il correspond a la cellule 1 et la derniere cellule de la plage

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
Public Property Get presse_papier() As String
    presse_papier = CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT")
End Property
'
Sub test2()
    Set plage = Sheets(1).Range("A1:c10")
    plage.Copy
    MsgBox control_pressepapier(plage)
 Application.CutCopyMode = False
 End Sub
'
'
Function control_pressepapier(plage)
    texte = Trim(Replace(Replace(presse_papier, vbTab, ""), vbCrLf, ""))
    x1 = plage.Cells(1).Text = Left(texte, Len(plage.Cells(1).Text))
    x2 = plage.Cells(plage.Cells.Count).Text = Right(texte, Len(plage.Cells(plage.Cells.Count).Text))
      control_pressepapier = x1 And x2
End Function

[RyuAutodidacte]

Bonjour,

Personnellement je trouve étrange cette demande, mais pourquoi pas …
L'autre solution ne serait il pas plutôt d'avoir un bouton permettant de copier ledit tableau et de coller directement sur le tableau voulu … ?

[Pierre Fauconnier]

Salut.

Pourquoi ne pas partir du tableau source? Si c'est un export d'un logiciel, il devrait avoir toujours la même forme. Dès lors, tu pourrais faire en sorte que l'utilisateur précise le classeur source (enregistré "quelle part") et ton code ouvrirait ce classeur pour y cherche les infos selon un algorithme défini en fonction de l'export réalisé. Ca me semble beaucoup plus sûr que de s'appuyer sur un hypothétique contenu de clipboard.