EuroMillions

[Kev1407]

Bonjour,
Fichier très intéressant
J'aimerais faire une mise à jour automatique des tirage depuis ce site "https://www.tirage-euromillions.net/euromillions/annees/annee-2024/" mais je ne trouve pas comment la requête est renseigné dans la feuille 3 colonne A

Pouvez vous me dire comment remplacer s'il vous plait?

 

[isidore33]

Bonjour,
Fichier très intéressant
J'aimerais faire une mise à jour automatique des tirage depuis ce site "https://www.tirage-euromillions.net/euromillions/annees/annee-2024/" mais je ne trouve pas comment la requête est renseigné dans la feuille 3 colonne A

Pouvez vous me dire comment remplacer s'il vous plait?

Bonjour,
A mes heures perdues je travaille sur une évolution du programme, à savoir remplacer Excel par Power BI. Le programme initial est ancien et nécessite une refonte technique et également des évolutions. Ça ne vaut pas le coup à mon avis de rester sur le socle Excel. Et le fichier source a été modifié de manière incomplète par endroit, j'ai commencé les modifs puis j'ai arrêté pour reprendre le sujet de 0 sur PBI. N'ayant pas d'Excel sous la main pour le moment je ne peux pas répondre à votre question.
Cdt
Isidore

 

[isidore33]

Bonjour,
Fichier très intéressant
J'aimerais faire une mise à jour automatique des tirage depuis ce site "https://www.tirage-euromillions.net/euromillions/annees/annee-2024/" mais je ne trouve pas comment la requête est renseigné dans la feuille 3 colonne A

Pouvez vous me dire comment remplacer s'il vous plait?

La connexion est dans l'onglet données / connexions . Le nom de la connexion s'appelle Connexion et l'url est indiquée dans Chaîne de connexion.
Côté vba, vous allez sur un userform, vous afficher le code (clic droit et sélection du choix Code). Ensuite vous recherchez le code lié à la feuil3 car il y a plusieurs fonctions qui sont concernées.

 

[Kev1407]

Bonjour,
A mes heures perdues je travaille sur une évolution du programme, à savoir remplacer Excel par Power BI. Le programme initial est ancien et nécessite une refonte technique et également des évolutions. Ça ne vaut pas le coup à mon avis de rester sur le socle Excel. Et le fichier source a été modifié de manière incomplète par endroit, j'ai commencé les modifs puis j'ai arrêté pour reprendre le sujet de 0 sur PBI. N'ayant pas d'Excel sous la main pour le moment je ne peux pas répondre à votre question.
Cdt
Isidore

Bonjour et merci pour votre retour,

En effet j'ai remarqué aussi que certaine chose ne fonctionne pas correctement.
Je serai ravi de voir à quoi ressemble votre programme sur PBI lorsque vous l'aurez terminé.

 

[Kev1407]

La connexion est dans l'onglet données / connexions . Le nom de la connexion s'appelle Connexion et l'url est indiquée dans Chaîne de connexion.
Côté vba, vous allez sur un userform, vous afficher le code (clic droit et sélection du choix Code). Ensuite vous recherchez le code lié à la feuil3 car il y a plusieurs fonctions qui sont concernées.

Je vous remercie j'ai trouvé ou était le lien dans la requête de connexion grâce à vous.
N'hésitez pas si vous souhaitez partagé vos avancé sur votre amélioration

Bonne journée

Merci

 

[Kev1407]

Bonjour,

J'ai un problème de format de date que je n'arrive pas à résoudre.
Dans ce module, la date s'affiche au format 00:00:00 alors que je souhaite DD/MM/YYYY
Pouvez vous m'aider à trouver comment faire svp?

Sub ExtractionDate(Adr)
  Dim Donnée As String  ', Ladate As Date
  Dim NbD As Integer, X As Integer, Y As String
  Dim Datdonnée As Date, LaDate

  Sheets("Feuil3").Activate
  Donnée = Range("CQ" & Adr).Value
  NbD = Len(Donnée)

  '---- recherche position de la date dans la chaine - recherche du 1° caractère numérique ----
  X = 2
  For X = 1 To NbD
    Y = Mid(Donnée, X, 2)
    If IsNumeric(Y) = True Then
      Exit For
    End If
  Next
  '------------------ affichage de la date --------------------
  LaDate = Right(Donnée, NbD + 1 - X)
  'LaDate = Mid(Donnée, X, NbD - X + 1)
  Datdonnée = Format(LaDate, dd / mm / yyyy)
  Sheets("Feuil3").Range("A7").Value = Datdonnée
  Call TransposeDonnées(Adr)
End Sub