Vba copie d'une date sur page web vers excel

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:

---

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

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:

---

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

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

Code:

---

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

---