Comparer liste excel avec des fichiers

  • Initiateur de la discussion Initiateur de la discussion sodoto
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

sodoto

XLDnaute Nouveau
Bonjour à tous, je suis nouveau sur le forum. Je connais assez bien excel ,mais je n'ai aucune notion de macro avec VB. Je vous explique donc ce que j'aimerais faire.

J'ai une liste de titre de vidéo dans excel et un dossier contenant des fichier .txt correspondant aux titres de vidéos. J'aimerais donc comparer ma liste et les fichiers dans mon dossier et savoir quel titre dans ma liste à un fichier .txt corespondant. Soit en ajoutant un petit x dans la cellule adjacente au titre ou bien simplement en colorant les cellules correspondante.

Je ne sais pas trop si je suis assez clair, mais n'hésitez pas à me poser des questions si jamais vous pensez être en mesure de m'aider.

Merci d'avance
 
Re : Comparer liste excel avec des fichiers

Bonjour,

Une piste à adapter :
Code:
Function Fichiers(Chemin As String, Titre As String, Exact As Boolean) As String()

    Dim TableauFichiers() As String
    Dim Fichier As String
    Dim Fich As String
    Dim I As Integer
    
    Fich = IIf(Exact = True, Chemin & Titre, Chemin & "*" & Titre & "*")
    'boucle dans le dossier à la recherche des fichiers
    Fichier = Dir(Fich)
    
    Do While (Len(Fichier) > 0)
    
        I = I + 1
        ReDim Preserve TableauFichiers(1 To I)
        TableauFichiers(I) = Fichier
        Fichier = Dir()
        
    Loop
    
    Fichiers = TableauFichiers()

End Function

Sub Test()

    Dim Tbl() As String
    Dim I As Integer
    
    'arguments, -1 chemin du dossier, -2 titre du fichier, -3 False pour une recherche approximative et True pour une recherche exacte
    Tbl = Fichiers("D:\Titres de Films\", "Maison", False)
    
    On Error Resume Next
    
    'inscrit le ou les résultats dans la fenêtre d'exécution
    For I = 1 To UBound(Tbl)
    
        Debug.Print Tbl(I)
    
    Next I
    
    'si pas trouvé, une erreur est produite par le tableau non initialisé
    If Err.Number <> 0 Then
        
        MsgBox "Fichier introuvable !"
        
    End If
    
End Sub

Hervé.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
95
Réponses
2
Affichages
607
Retour