Bonjour,
Je dois copier/coller un grand nombre de fois du texte depuis des mails reçu sur outlook dans des cellules de mon tableau.
Pour éviter les CTtl V ou clics droits..., je souhaiterais que le texte copier se colle dans la cellule dès sélection de cette dernière.
Je suppose le texte copier inscrit dans le presse papier et utilise le code suivant:

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 
  If Not Application.Intersect(Target, Range("B2:B1000")) Is Nothing Then
 
 Dim MyData As New DataObject
 Dim strClip As String
 On Error GoTo NotText
 MyData.GetFromClipboard
 strClip = MyData.GetText
 
 Cells(ActivCell.Row, 2).Select
 Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
 SkipBlanks:=False, Transpose:=False
 
 Target.Offset(0, 1).Select
 
NotText:
MsgBox Error
Target.Offset(0, 1).Select
End If
 End Sub

qui me renvoie l'erreur "objet requis" dans la MsgBox MsgBox Error.


Je me pose la question de savoir si un mail au format HTML ne poserait pas ce problème?????

Merci pour tout début de solution qui me serait précieux!!!!!!!!!