VBA Excel : page web et QueryTable
RésoluBonjour,
Le bout de code suivant
' Copier la page web dans "Feuil2"
Sheets("Feuil2").Select
Cells.Clear
' ajouter une QueryTable
Set QT = ActiveSheet.QueryTables.Add(Connection:="URL;" & URL,
Destination:=Range("A1"))
' configurer la QueryTable...
With QT
.WebSelectionType = xlEntirePage '... pour sélectionner toute la page
.Refresh BackgroundQuery:=False '... pour rafraîchir les données et les coller dans la feuille
End With
' libérer l'objet QueryTable
Set QT = Nothing
......
copie une page web entière dans la Feuill2 à partir de A1 et il fonctionne de façon satisfaisante pour mes besoins. Cependant, certaines zones de la page web contiennent des indications de la forme 1-14 (par exemple) et sont importées dans les cellules Excel par une date du type janv-14 ... Est-il possible d'éviter cet écueils et retrouver 1-14 ?
Windows / Chrome 124.0.0.0
Windows / Chrome 124.0.0.0
1 réponse
-
Contributeur
bonjour,
Tu peux voir que tu as le même comportement si tu entres "1-14" à la main dans une cellule.
Pour éviter que Excel n'interprète les données, il faut préalablement mettre les cellules en format "Texte".
Cells.Clear Cells.NumberFormat = "@"-
-
-
Contributeur@mikel831
Je pense qu'il y a un paramètre qui permet de préserver le format des cellules.
Ce serait plutôt un paramètre accessible via la destination, pas via la connexion.
Je suggère que tu testes à la main pour trouver ce paramètre, puis que tu automatises si nécessaire (le VBA pourrait simplement utiliser un paramètre existant).
-
Contributeur@mikel831
Peut-être, simplement,
With QT .WebSelectionType = xlEntirePage '... pour sélectionner toute la page .PreserveFormatting = True .Refresh BackgroundQuery:=False -
@yg_be
J'ai essayé ta réponse <5 : ça ne change rien ...
S'il y a un moyen via le vba, de connaître le format d'une cellule, je peux peut être essayer, si c'est une date de la forme janv-14, de reconstruire le texte 1-14 ?
-
