A voir également:
- Condition VBA "si celulle = ..."
- Excel cellule couleur si condition texte - Guide
- Excel compter cellule couleur sans vba - Guide
- Excel condition ou - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
1 réponse
Bonjour,
Ajoutez cette condition avant de chercher le fichier :
Ajoutez cette condition avant de chercher le fichier :
Dim Cellule As Range Dim I As Byte For Each Cellule In Range("M8:M" & Range("M65536").End(3).Row) If Cellule.Offset(0, 1).Value = "Nouveau doc" Then 'Si cellule col N alors With Application.FileSearch .LookIn = "C:\..." 'Mettre la lettre du lecteur réseau .Filename = Cellule .SearchSubFolders = True .Execute For I = 1 To .FoundFiles.Count Cellule.Offset(0, -1) = .FoundFiles(I) Next I End With End If Next Cellule