Comparer les valeurs d'une cellule avec les noms des fichid'un d

Bonjour,

je suis coincé depuis quelque temps sur un programme que j'aimerais faire.

J'ai une feuille "feuil1" où j'ai des nom de fichier écrit dans la colonne A.

J'ai un dossier "convertir" qui comporte parmis ses fichiers, les fichiers dont le nom est inscrit en colonne A.

J'aimerais faire un programme qui compare les noms de fichiers de ma feuil1 et les noms de fichiers de mon dossier et lorsque ces derniers sont identique, les convertis en pdf.

Admettons que dans ma feuil1 j'ai en A1 : toto1.docx en A2: toto2.docx en A3: toto3.docx et en A4: toto4.docx et dans mon dossier convertir j'ai toto1.docx toto2.docx toto3.docx toto4.docx toto5.docx toto6.docx et toto7.docx
seulement les fichiers toto1.docx, toto2.docx, toto3.docx, toto4.docx sont convertis en pdf.

Je vous met mon code :

Option Explicit
Sub Conv()

Dim wdApp As Object
Dim FileNamePDF As String
Dim FileName As String
Dim i As Integer
Dim FileNameDOCX As String

Application.ScreenUpdating = False


i = 1

Set wdApp = CreateObject("word.application")

ActiveSheet.Name = "Feuil1"

FileNameDOCX = Dir("D:\Users\moi\Documents\convertir\*.docx")

Do While Cells(i, 1).Value <> ""

If Cells(i, 1).Value = FileNameDOCX Then

wdApp.Documents.Open ("D:\Users\moi\Documents\convertir\" & FileNameDOCX)

wdApp.ActivePrinter = "PDFCreator" 

FileName = Left(FileNameDOCX, Len(FileNameDOCX) - 5) 'selectionne le nom du fichier moins le ".docx"

FileNamePDF = ("D:\Users\moi\Documents\fait\" & FileName & ".pdf") 'Rajoute à la fin du nom du fichier ".pdf"

wdApp.DisplayAlerts = False
wdApp.PrintOut OutputFileName:=FileNamePDF, PrintToFile:=False

wdApp.ActiveDocument.Close

i = i + 1

ElseIf Cells(i, 1).Value <> FileNameDOCX Then
MsgBox "Fichier inexistant"
FileNameDOCX = Dir()
End If

Loop

wdApp.Quit
Set wdApp = Nothing

End Sub

Le problème est que seulement toto1.docx est "trouvé" et convertis en pdf dans le dossier "fait" (toto1.docx se trouve dans la cellule A1) et lorsque je change l'ordre dans la colonne À et que je met toto3.docx et toto4.docx dans A1 et A2 seulement eux sont trouvés.

Je ne comprend pas d'où vient le problème.

Quelqu'un pourrait m'aider svp. Merci.