Modification code vba

[claude09]

Bonjour.Ci joint le code d'une macro trouvée ici qui me permet d'importer la liste des partants d'une réunion via turf .fr.Serait il possible de modifier ce code pour pouvoir afficher les partants de toutes les réunions de la journée ?
Pour l'instant la macro affiche que la réunion 1 .Je modifie la ligne connection en remplaçant le 1 par le 2 et la réunion 2 s'affiche, de meme pour la 3° réunion.merci.

 

[kllmoon]

Re : Modification code vba

Bonjour, je trouve difficile de t'aider sans le code complet car il faut modifier plusieurs choses pour tester. Un début, j'ai modifié ton code pour que la valeur LaDate se fasse automatiquement sans l'aide de cellules.

Option Explicit
Sub Import()
Dim LaDate As String
LaDate = Format(Date, "dddd " & "dd " & "mmm " & "yyyy")
If Len(LaDate) < 8 Then MsgBox "Pas assez de caractères": Exit Sub
Sheets("Feuil2").Select
Range("A1").Select

        With Selection.QueryTable
        .Connection = "URL;http://www.turf-fr.com/partants/" & LaDate & "1" & ".shtml"
        .Refresh BackgroundQuery:=True
    End With
    
End Sub

Malgré que je viens de réaliser que tu veux entrer manuellement la date 0_o

 

[jp14]

Re : Modification code vba

Bonsoir

Un exemple de modification possible

Sheets("Import1").Select
Range("A1").Select

        With Selection.QueryTable
        .Connection = "URL;http://www.turf-fr.com/partants/" & LaDate & "1" & ".shtml"
        .Refresh BackgroundQuery:=True
Sheets("Import2").Select
Range("A1").Select
         With Selection.QueryTable
        .Connection = "URL;http://www.turf-fr.com/partants/" & LaDate & "2" & ".shtml"
        .Refresh BackgroundQuery:=True
    
    End With

a tester

JP

 

[claude09]

Re : Modification code vba

Merci de vos réponses.j'ai inséré 3 modules correspondants aux 3 réunions.Je ne les aient pas sur la meme feuille en meme temps ,ce n'est pas genant.Bonne soirée.