plantage si repertoire vide

[camadian]

Bonjour ,
d accord c'est pas joli mais j'essaye de comprendre.
dans ma macro j'ai un soucis: des lors que je n'ai pas de fichier dans le répertoire Windows j'ai un retour de code erreur 9
existe t il un moyen pour remédier a ce petit désagrément
En vous remerciant par avance


Sub recup_fic_mes_doc()
Dim tableau_fichier() As Variant
Dim chemin As String
Dim nb_fichier, fichier As Object
Dim i As Long
Dim SourceFolderName As String
Sheets(4).Select
SourceFolderName = Range("A2") & "\titi\"
ChDir ("c:\" & SourceFolderName)

chemin = ("c:\" & SourceFolderName)
nb_fichier = 0

For Each fichier In CreateObject("Scripting.filesystemobject").getfolder(chemin).Files
nb_fichier = nb_fichier + 1 'un fichier de plus est présent
ReDim Preserve tableau_fichier(1 To nb_fichier) 'faire grandir le tableau

tableau_fichier(nb_fichier) = fichier.Name 'remplir le tableau

Next
For i = 1 To UBound(tableau_fichier, 1) 'pour chaque ligne de notre tableau :
résultat.ListBox1.AddItem tableau_fichier(i) 'ajouter le contenu du tableau à la liste
Next

résultat.Show 0
End Sub

 

[Guest]

Re : plantage si repertoire vide

bonjour,

Pas besoin de faire 2 boucles, 1 seule suffit, dans les lignes suivantes, rajout d'une variable objet 'ListeFichiers'

[COLOR=BLUE]Dim[/COLOR] listeFichiers [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]Object[/COLOR]
    [COLOR=BLUE]Set[/COLOR] listeFichiers = CreateObject([i]"Scripting.filesystemobject"[/i]).getfolder(chemin).Files
    [COLOR=BLUE]If[/COLOR] listeFichiers.Count > 0 [COLOR=BLUE]Then[/COLOR]
        [COLOR=BLUE]For[/COLOR] [COLOR=BLUE]Each[/COLOR] fichier [COLOR=BLUE]In[/COLOR] listeFichiers
            résultat.ListBox1.AddItem fichier.Name
        [COLOR=BLUE]Next[/COLOR]
    [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]If[/COLOR]

A+

 

[camadian]

Re : plantage si repertoire vide

Bonjour Hasco,
pourquoi faire compliquer quand on peut faire simple

En te remerciant
A+