Discussion :

[djedje-08]

Bonjour à tous,

Je fais appel à vos connaissance pour un petit fichier qui me simplifiera beaucoup la vie :

Autoentrepreneur, je dois réaliser des devis pour mes clients. Pour établir ces devis, je dois chiffrer le prix des matériaux que je vais utiliser. Pour ce faire, j'utilise les catalogues de mes fournisseurs (par exemple Gédimat). Le problème du papier, c'est que ça ne se met pas à jour ... Et compte tenu du contexte actuel, comme vous le savez, les prix fluctuent énormément.

Je dois donc, pour chaque référence, aller rechercher sur le site de mon fournisseur (gedimat.fr par exemple) si le prix à beaucoup évolué ou pas. Vous imaginez que c'est laborieux ...

J'aimerai donc, que sous Excel, je puisse saisir la référence d'un article et qu'il soit afficher automatiquement la désignation de celui-ci et son prix.

J'ai recherché un moyen en passant par données/données externes/à partir du web et "importer" une page web dans une nouvelle feuille de mon fichier excel, mais je n'arrive pas à ce que la page importée ait une adresse dynamique (correspondant à la référence que j'aurai saisie).

J'imagine qu'il me faudra passer par VBA, mais se sont bien là mes limites sous excel ...

Quelqu'un pourrait m'aider ?

Je vous joins un petit fichier qui vous aidera certainement à comprendre.

Merci beaucoup par avance pour votre aide

[jurassic pork]

Hello,
As-tu beaucoup de fournisseurs ? Le souci c'est que les sites web ne sont bâtis sur le même modèle et donc que pour aller chercher des informations cela risque fort d'être différent suivant le fournisseur. Et quand dans les pages d'infos il n'y a pas de tableau (comme celles de Gedimat) cela est aussi plus compliqué.

Ami calmant, J.P

[djedje-08]

Bonsoir,
Merci de t'intéresser à mon problème.
J'ai principalement 2 fournisseurs : Gédimat et Point P. Sachant que Gédimat représente 90% de mes commandes.
Si j'ai un code qui fonctionne pour Gédimat, je pense que j'arriverai à l'adapter à Point P. Au pire, ce ne sera pas trop grave.

[jurassic pork]

Hello,
dans un premier temps tu peux tester ce code pour voir si il te retourne le bon prix pour la référence demandée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub RecupGedimat(Reference As String)
Dim HTMLDoc As Object
Dim eleCol As Object
Set HTMLDoc = CreateObject("htmlfile")
Url = "https://www.gedimat.fr/produitListe.php?searchString=" & Reference
With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", Url, False
    .send
      If .readyState = 4 Then
        If .Status <> 200 Then
           MsgBox "Erreur HTTP : " & .Status
        Else
           HTMLDoc.body.innerHTML = .responseText
           Set eleCol = HTMLDoc.querySelector(".prixEuro")
           Debug.Print "Prix ref " & Reference & " : " & eleCol.innerText
           Set HTMLDoc = Nothing
           Set eleCol = Nothing          
        End If
      Else
           MsgBox "Erreur Etat : " & .readyState
      End If
End With
End Sub
 
 
Sub TestRecupFournisseur()
  RecupGedimat "26955315"
  RecupGedimat "27546048"
  RecupGedimat "21244681"
End Sub

Résultat :

Prix ref 26955315 : 54,90 € TTC
Prix ref 27546048 : 2,80 € TTC
Prix ref 21244681 : 14,87 € TTC

A vérifier que c'est la bonne information qui est prise en compte.

Ami calmant, J.P

[djedje-08]

Bonsoir,
Merci beaucoup pour ton aide.
Les prix que tu indiques sont bien ceux que je trouve également quand je recherche ces références.
Cependant, j'ai fait copier/coller ton code dans Excel et j'ai voulu lancer le Sub TestRecupFournisseur mais rien ne se passe ... J'ai du loupé quelque chose.

[jurassic pork]

Hello,

Cependant, j'ai fait copier/coller ton code dans Excel et j'ai voulu lancer le Sub TestRecupFournisseur mais rien ne se passe ... J'ai du loupé quelque chose.

Les résultats sont affichés avec les Debug.Print dans la fenêtre Exécution de l'éditeur VBA. Normalement il devrait y avoir une fenêtre affichée si cela se passe mal (erreur de connexion).

Ami calmant,J.P

[Belga16]

Voici ton ficher Excel adapté pour Gedimat (donc 90% de ton volume)
Bien lire les remarques pour que ça fonctionne
Je vais voir ce que l'on peut faire pour le 2è fournisseur.

Djedje_20220516.xlsm

[jurassic pork]

Hello,
il y a plusieurs soucis avec le site PointP :
1 - Il y a une protection contre les robots qui posent des questions quand le site détecte leurs présences ce qui semble le cas en utilisant du code VBA.
2 - La page source du produit recherché ne semble pas contenir les informations. Il faut que les scripts javascript qui sont dans cette page source soit exécutés donc lus par un navigateur pour retrouver les informations.

Ami calmant, J.P

[djedje-08]

Bonjour à vous deux et merci beaucoup pour votre aide.
Ce n'est pas grave pour Point P.
Rien qu'avec Gedimat c'est déjà une très bonne chose !

J'ai cependant un petit problème avec le fichier proposé par Begla16 :
J'ai bien activé " MicroSoft Win Http Services 5.1" comme indiqué, mais lorsque je veux lancer la macro "crtl M" j'ai un message d'erreur qui apparait.
Invraisemblable il semblerait qu'il y ait une erreur dans la conversion de décimale à virgule et à point.
Comme je ne veux pas faire n'importe quoi en triturant le code, je préfère m'en remettre à vos conseils avant de faire une bêtise.
Je vous joins quelques capture d'écran.

Je pense qu'il n'y a pas grand-chose à modifier.

Merci d'avance pour vos réponses.

Bonne journée et bon week-end

[Belga16]

Vous pouvez mettre la ligne

Code :

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

c.Offset(0, 4) = CalculMontant(prix) * c.Offset(0, -1)

en commentaire, en la précédent d'une apostrophe
comme ceci: 'c.Offset(0, 4) = CalculMontant(prix) * c.Offset(0, -1); c'est aux environs de la ligne 50.
Apparemment, Windows utilise la virgule comme point décimal sur votre PC.
De toute façon, il ne s'agit que du calcul du montant total (prix x quantité) que vous pouvez ajouter manuellement.

Autre possibilité:
Remplacer la ligne 50 par :

Code :

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

c.Offset(0, 4) = CDbl(prix) * c.Offset(0, -1)  ' à essayer

[djedje-08]

Super ! ça fonctionne !
Merci beaucoup !