Format Date et internet

[JORDAN]

Boujour tout le monde,

Je récupère via une macro des données internet dans une feuille de calcul Excel

Mon soucis est que la partie nombre est récupée sous un format de date alors qu'il
n'y a pas de date.

Lorsque je récupère : 3-1 sur internet
j'ai sur Excel : 03-janv

Je sais qu'il existe quelque chose du style "FormatDate = False" pour ne pas reconnaitre les
nombres en format date mais ma mémoire me fait défaut

Merci pour vos infos et bonne journée

Voici le code que j'utilise :

Public Sub TelechargeInternet()
Dim Sht As Worksheet
Dim Url As String

Url = "http://www....................." 

Set Sht = Sheets("Feuil1")
Sht.Cells.Clear

With Sht.QueryTables.Add("URL;" & Url & "", Sht.Range("A1"))
     .FieldNames = True
     .WebTables = "22"
     .RefreshOnFileOpen = False
     .BackgroundQuery = True
     .RefreshStyle = Excel.XlCellInsertionMode.xlInsertDeleteCells
     .SaveData = True
     .Refresh BackgroundQuery:=False
End With

End Sub

 

[job75]

Re : Format Date et internet

Bonjour Jordan,

Excel convertit les valeurs dont le format correspond à une date.

Pour éviter cette conversion, mettre les cellules recevant ces valeurs au format Texte.

A+

 

[JORDAN]

Re : Format Date et internet

Bonjour Job75,

Je viens d'essayer en mettant les cellules au format texte mais rien n'y change
Ce que je n'avait pas précisé c'est que ça ne le fait pas sur toutes les données
certaines reste commeil faut et d'autres se mettent au format Date
Merci

 

[JORDAN]

Re : Format Date et internet

Re,

c'est bon j'ai trouvé, il fallait ce code :

.WebDisableDateRecognition = True

Merci et bonne journée

 

[job75]

Re : Format Date et internet

Re,

Merci Jordan, je ne connaissais pas du tout ce code 🙂

A+

 

[JORDAN]

Re : Format Date et internet

Re

y a pas de quoi, merci à toi d'avoir essayer de m'aider