Discussion :

[philppe27]

Bonsoir,

Je copie une date sur une page web et je crée le code vba avec l'enregistreur de macro cela me donne :

Code :

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

1
2
3
4
Sheets("Import2").Select
Range("AA1").Select
ActiveSheet.PasteSpecial Format:="Texte", Link:=False, DisplayAsIcon:= _
False

Je copie la date du 07/08/2012 (7 août 2013) et quand je colle manuellement j'obtiens dans la cellule le 07/08/2013 (7 août 2013) ce qui est parfait.
Lorsque je lance la macro qui a été enregistrée j'obtiens dans le cellule le 08/07/2013 (8 juillet 2013 !?).
Pouvez vous m'aider pour obtenir la bonne date dans la cellule excel ?

Merci d'avance,

Cordialement

[Ben_L]

Bonjour,

Tu peux récupérer le contenu du presse-papier dans une variable. Cela permet de contourner l'interprétation automatique de la date lors du collage spécial.

Code :

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

1
2
3
4
5
6
7
8
9
   Dim DataObj As MsForms.DataObject, Str As String
   Set DataObj = New MsForms.DataObject
   On Error GoTo GestionErreur
   DataObj.GetFromClipboard
   Str = DataObj.GetText(1)
   Feuil1.Range("A1").Value = CDate(Str)
   Exit Sub
GestionErreur:
   If Err <> 0 Then MsgBox "Le presse est papier vide ou ne contient pas de texte convertible en date.", vbCritical

Ce bout de code est adapté de la source suivante.

Cdt

[Docmarti]

La fonction CDate pourrait t'être utile après avoir récupéré le
contenu du Presse-papier :

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
Sub MaMacro()
 
    aa = TexteDuPressePapier
 
    If IsDate(aa) Then
     ActiveCell.Value = CDate(aa)
    Else
     ActiveCell.Value = aa
    End If
 
End Sub
 
Function TexteDuPressePapier()
Dim Presspp As New MSForms.DataObject
 
Presspp.GetFromClipboard
TexteDuPressePapier = Presspp.GetText
 
End Function