importer un fichier cvs d'un site internet vers une feuille excel

Anonyme
2024-08-29T12:36:18+00:00

Bonjour à tous,

Je voudrais automatiser un petit quelque chose !

Voilà, sur le site internet

https://classement.fisf.net/duplicate-classement.html

il y a un tableau avec 369 pages qui se déroulent de 50 en 50 par défaut ou de 200 en 200 si on clique sur un bouton...

Sur ce fichier, je souhaiterais importer tous les joueurs dont le Club commence par T vers une feuille d'un classeur excel AUTOMATIQUEMENT bien-sûr !

Est-ce possible ?

Si oui, quelle solution serait la mieux : macro, Données (obtenir des données...) ?

et quel serait la marche à suivre ?

En vous remerciant

Très très bonne journée

Bien cordialement

Pat

Microsoft 365 et Office | Excel | Autres | Autres

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires Aucun commentaire
Réponse acceptée par l’auteur de la question
Anonyme
2024-08-30T11:46:15+00:00

Cette réponse a été automatiquement traduite. Par conséquent, il peut y avoir des erreurs grammaticales ou des formulations étranges.

Je suis content que votre problème ait été résolu. Si mon code VBA vous a été utile, veuillez sélectionner « Oui » sous la réponse qui vous a aidé.

De plus, qu’est-ce que vous faites référence aux fichiers avec l’extension .xy lorsque vous mentionnez « fichiers XY » ? J’ai cherché des informations, et il semble que les fichiers avec l’extension .xy ne proviennent pas de Microsoft. Vous pouvez essayer de les convertir au format XLSM, puis exécuter les macros. Si vous rencontrez des problèmes, n’hésitez pas à demander dans la communauté, et nous ferons de notre mieux pour vous aider.

Bonne journée!

Thomas

Cette réponse a-t-elle été utile ?

1 personne a trouvé cette réponse utile.
0 commentaires Aucun commentaire

2 réponses supplémentaires

  1. Anonyme
    2024-08-30T11:18:32+00:00

    Bonjour Thomas,

    Merci, merci, merci !

    C'est exactement ce que je voulais

    Une dernière question : Peut-on le faire dans un onglet/feuille d'un fichier XY. Si je convertis le fichier XY en XLSM est-ce que ça n'altèrera pas les formules et macros déjà enregistrées ?

    Merci pour tout

    Bien cordialement

    Patri

    Cette réponse a-t-elle été utile ?

    0 commentaires Aucun commentaire
  2. Anonyme
    2024-08-30T09:04:40+00:00

    Cette réponse a été automatiquement traduite. Par conséquent, il peut y avoir des erreurs grammaticales ou des formulations étranges.

    Salut pat pb1,

    Merci pour votre message dans la communauté Microsoft.

    L’utilisation de VBA pour automatiser le traitement de ces données est un bon choix. 

    Tout d’abord, nous devons savoir que le format CSV est un format de texte brut et que les macros ne peuvent pas s’exécuter sur des fichiers CSV. 

    Par conséquent, la première étape consiste à convertir le fichier CSV au format XLSM (Excel Macro-Enabled Workbook). 

    Image

    .

    Ouvrez le classeur converti et créez une nouvelle feuille de calcul pour recevoir les données, appelons-la Sheet1. 

    Image

    .

    En examinant la structure du fichier, nous pouvons voir que le dixième caractère de la cellule A est la première lettre du nom du club. Il suffit donc de vérifier le dixième caractère dans les cellules de la colonne A, et s’il s’agit de la lettre T, de l’extraire. 

    Image

    .

    Créez une macro, collez-y le code suivant, enregistrez, fermez la fenêtre de l’éditeur VBA et exécutez la macro. 

        Dim ws As Worksheet
    
        Dim ws2 As Worksheet
    
        Dim lastRow As Long
    
        Dim i As Long
    
        Dim targetRow As Long
    
        Set ws = ThisWorkbook.Sheets("tic_classement-export")
    
        Set ws2 = ThisWorkbook.Sheets("Sheet1")
    
        lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
        targetRow = 1
    
        For i = 1 To lastRow
    
            If Mid(ws.Cells(i, 1).Value, 10, 1) = "T" Then
    
                ws2.Cells(targetRow, 1).Value = ws.Cells(i, 1).Value
    
                targetRow = targetRow + 1
    
            End If
    
        Next i
    

    De cette façon, vous obtiendrez toutes les données des joueurs des clubs commençant par la lettre T dans la feuille de calcul Sheet1. 

    Image

    .

    J’ai partagé avec vous le classeur activé pour les macros que j’ai utilisé pour le test dans un message privé, qui contient les données exportées avec succès. Veuillez vérifier vos messages si vous en avez besoin.

    Image

    .

    J’espère que les informations ci-dessus vous seront utiles !

    Sinceres salutations

    Thomas C - MSFT | Spécialiste du support communautaire Microsoft

    Cette réponse a-t-elle été utile ?

    0 commentaires Aucun commentaire