Comparer liste excel avec des fichiers

[sodoto]

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

 

[Paritec]

Re : Comparer liste excel avec des fichiers

Bonjour Sodoto le forum
bah c'est simple tu mets ton fichier en pièce jointe et on va te faire cela
a+
Papou😱

 

[Theze]

Re : Comparer liste excel avec des fichiers

Bonjour,

Une piste à adapter :

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é.

 

[sodoto]

Re : Comparer liste excel avec des fichiers

Merci pour votre aide, je vais travailler la dessus.