VBA: Erreur Next sans For

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!

Bonjour,

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
    End If '<A insérer
Next f

Il faut fermer le test If car il est sur plusieurs lignes. Après c'est OK.

Cdlt,

Bonjour,

En fait c'est un message sybillin qui indique que les imbricatiosn sont fausses : il manque un End if avant le For...

A+

Bonjour à tous/toutes,

Je prend en note Merci!