Jul74ien74
XLDnaute Nouveau
Bonjour,
petite question,
dans ce code:
For Lig = 8 To 10
If Cells(Lig, 2).Value = "1_01_Room-Layout\" Then
FichierATester = [M2] + Cells(Lig, 4) + Cells(Lig, 8)
Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFile(FichierATester)
Cells(Lig, 10).Value = F.DateLastModified
End If
Next Lig
Je souhaite rajouter une condition, si dans la colonne 13 de la ligne il y a quelque chose dans la cellule afférant à la ligne alors ne rien faire et passe a la ligne suivante.
merci
petite question,
dans ce code:
For Lig = 8 To 10
If Cells(Lig, 2).Value = "1_01_Room-Layout\" Then
FichierATester = [M2] + Cells(Lig, 4) + Cells(Lig, 8)
Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFile(FichierATester)
Cells(Lig, 10).Value = F.DateLastModified
End If
Next Lig
Je souhaite rajouter une condition, si dans la colonne 13 de la ligne il y a quelque chose dans la cellule afférant à la ligne alors ne rien faire et passe a la ligne suivante.
merci