Discussion :

[pegase33]

Bonsoir,
Qui pourrait m'aider...SVP, j'ai essayé sur d'autres forums...et je n'ai pas eu de réponses
J'utilise cette macro pour importer une table d'une page Web

Code :

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

1
2
3
4
5
6
7
Set Htable = maPageHtml.getElementsByTagName("table") 'objet type table
Set maTable = Htable(0) 'premier tableau dans la page Web
For i = 1 To maTable.Rows.Length 'boucle sur toutes les lignes du tableau
For j = 1 To maTable.Rows(i - 1).Cells.Length 'boucle sur les cellules dans chaque ligne
Cells(i, j) = maTable.Rows(i - 1).Cells(j - 1).innerText
Next j
Next iJe laisse un fichier exemple.zip qui contient le fichier excel test.xls (nom de la macro

En fait l'importation de la table provenant de la page web produit des erreurs de dates. On remarque que sur la Feuill1 les dates de la colonne A contiennent 02/10/2008 alors que cela devrait être 10/02/2008, idem pour 02/05/2008 au lieu de 05/02/2008...alors que toutes les autres dates importées sont correctes!
Je cherche le problème...Si quelqu'un pouvait m'éclairer!
Je laisse un fichier exemple.zip qui contient le fichier excel test.xls (nom de la macro testdate) et le fichier testdate.htm à placer sous C:\
Merci

[Qwazerty]

SAlut
Je pense pouvoir dire pourquoi mais je n'ai pas de solution a te proposer pour résoudre ton problème.
Je pense que ton problème est le suivant, lorsque tu rajoute une valeur dans une case Excel interprète le type de donnée pour savoir s'il s'agit d'un nombre, d'une chaine ou d'une date, pour le cas des date visiblement excel "favorise" le format MM/JJ/AA, dans ton cas les 1ere dates sont passées dans le format JJ/MM/AA uniquement par ce que 17 ne peut être un moi valide, ta date est donc stocké comme texte (tu as donc bien la forme que tu souhaite) mais pour les autre date 10 est a moi valide, donc excel le transtype en date (MM/JJ/AA).
Peut être en contrôlant si la donnée est une date et en la formatant comme tu le souhaite. (IsDate et CDate)

Essais comme ça

Code :

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

1
2
3
4
5
    If IsDate(maTable.Rows(i - 1).Cells(j - 1).innerText) Then
        Cells(i, j) = CDate(maTable.Rows(i - 1).Cells(j - 1).innerText)
    Else
        Cells(i, j) = maTable.Rows(i - 1).Cells(j - 1).innerText
    End If

Je n'ai pas pu tester, des que je modifie le code la macro se plante sur Htable(0) en me disant que la variable est pas définie ............., alors que si je la lance dés le début sans modifier les ligne que je te propose ça fonctionne ... je crois que je vais aller me coucher tiens...


A++
Qwaz

[pegase33]

Merci infiniment Qwazerty...ça fonctionne nickel, ça provient bien du format ou non Texte dans l'importation (histoire du mm/jj/aa)
Donc il faut contrôler effectivement si la donnée importée est de format date ou texte et corriger en fonction!
J'ai rajouter ton code dans ma boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Set maPageHtml = ie.document
Set Htable = maPageHtml.getElementsByTagName("table") 'objet type table
Set maTable = Htable(0) 'premier tableau dans la page Web
For i = 1 To maTable.Rows.Length 'boucle sur toutes les lignes du tableau
For j = 1 To maTable.Rows(i - 1).Cells.Length 'boucle sur les cellules dans chaque ligne
Cells(i, j) = maTable.Rows(i - 1).Cells(j - 1).innerText
If IsDate(maTable.Rows(i - 1).Cells(j - 1).innerText) Then
        Cells(i, j) = CDate(maTable.Rows(i - 1).Cells(j - 1).innerText)
    Else
        Cells(i, j) = maTable.Rows(i - 1).Cells(j - 1).innerText
    End If
Next j
Next i