Discussion :

[Oliv-]

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 ?

[Marc-L]

Bonjour,

voir dans les propriétés de l'objet QueryTable s'il y en a une référente au problème …

Sinon cela se règle facilement par macro en appliquant sur la plage des cellules concernées le format texte

puis .Formula = .Formula …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Oliv-]

Bonjour Marc,

Je n'ai pas trouvé dans les propriétés de l'objet QueryTable !

Pour des codes postaux c'est simple de rajouter un zéro devant s'il y a moins de 5 caractères, pour les SIRET aussi d'ailleurs, là où c'est plus délicat c'est quand tu ne sais pas si il faut un zéro devant ou pas !

Dans le cas qui m'occupe il s'agit de numéros de contrats.

[Marc-L]

Donc il ne te reste plus qu'à appliquer l'astuce de mon précédent message par macro sur la plage des cellules concernées …

[Oliv-]

Je te répond par l'exemple suivant
dans ma base mes contrats peuvent être : "028235933" , "375034201" , "27832496"
et j'obtiendrai dans excel : 28235933 , 375034201 , 27832496

mais il ne faut un zéro devant que pour le premier !

[Marc-L]

Dans le lien initial, aucun numéro de contrat ! Mon astuce résout bien l'affichage du Siret …