Bonjour,
Dans une feuille je souhaite insérer des données provenant d'une page asp sur un internet.

Soit manuellement par le menu Données/A partir du Web.
Soit parce cette MAcro

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub testweb2()
    Set shFirstQtr = Worksheets("Web2")
    Set qtQtrResults = shFirstQtr.QueryTables _
                       .Add(Connection:="URL;http://www2.transports.equipement.gouv.fr/registres/marchandises/1.htm", _
                            Destination:=shFirstQtr.Cells(1, 1))
    With qtQtrResults
        .PreserveFormatting = True
        .WebFormatting = xlNone
        .WebPreFormattedTextToColumns = True
        .BackgroundQuery = False
        .Refresh BackgroundQuery:=False
    End With
End Sub
Cela fonctionne dans les 2 cas sauf pour certaines données qui commencent par un zéro significatif mais qui arrivent converties en Nombre
comme les codes postaux pour les département 01,02,03,04,05,06,07,08,09...

donc au lieu d'avoir : 02800 (affichage web) j'ai 2800 dans ma cellule

J'ai bien paramétré ma colonne en "Texte" au préalable , avec l'option "Conserver le format des cellules" dans les propriétés de la plage de données externe

mais je ne trouve pas comment forcer le format arrivant en texte ?