Bonjour,
J'ai souvent un fichier *.7z dans mon dossier
Set fo = fso.GetFolder(Workbooks(ActiveWorkbook.name).Path & "\0-LASER\LASER SÉPARÉ")
Je souhaite exclure ce fichier de la variable "f" mais j'ai une Erreur Next sans For sur la ligne
Next f
Voici le bout de code :
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim fo As Folder
Dim f As File
Dim last As Integer
Set fo = fso.GetFolder(Workbooks(ActiveWorkbook.name).Path & "\0-LASER\LASER SÉPARÉ")
ActiveSheet.Rows("26:152").Hidden = False
For Each f In fo.Files
If f Like "*.dwg" Then
last = sh.Range("AG" & 200).End(xlUp).Row + 1 'Application.Rows.Count
sh.Range("AG" & last).Value = f.name
Next f
Ceux qui connaissent VBA vont surement voir ou est l'erreur mais si besoin je ferai un fichier test avec ses dossier et faux fichier.
Merci!