Discussion :

[LostIN]

j'ai un petit souci, et je tourne en rond

je parcours tout un répertoire (contenant des sous répertoires DIRECTIONS\SERVICES\...\NomPrenom.xls)

dans ces sous répertoires, il y a des fichiers excel (tous pareil mais nominatif).

Une fois arrivée au plus bas niveau, je parcours ce classeur, et je boucle sur plein de colonnes...
Il arrive que ca plante lors d'une selection (range(cellule)) ...

Je voudrais à ce moment, gérer l'erreur, et passer au classeur excel suivant.
Tout en faisant un insert bidon dans la tbl_synthese pour dire qu'on est bien passé sur ce classeur.

c con à faire, mais je tourne en rond, et je ne vois plus rien.
si une ame sensible passe par là.
merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
  Set AccessApp = CreateObject("Access.application")
  With AccessApp.FileSearch
    .NewSearch
    .LookIn = xlPath
    .SearchSubFolders = True
    .Filename = xlFichier
    .MatchTextExactly = False
    .FileType = msoFileTypeExcelWorkbooks
    .Execute
 
    If .FoundFiles.Count > 0 Then
      For i = 1 To .FoundFiles.Count
 
        ' nb de fichiers à traiter
        xlFichierNb = .FoundFiles.Count
 
        xlFichier = .FoundFiles.Item(i)
        ProgressBarre.Max = xlFichierNb
 
        ProgressBarre.Value = i
 
 
 
...
            Set xlBook = xlApp.Workbooks.Open(xlFichier)
            Set xlSheet = xlBook.Sheets("LaFeuilleEnQuestion")
 
            For indCell = 1 To 12
              For j = 0 To 30
 
			... c'est ici que ca peut merder lors du parcours des cellules
 
                        ... puis un insert
                        req = "INSERT into tbl_synthese (Nom,prenom,...) " _
                          & " VALUES ('" & sNom & "', '" & sPrenom & "', ..)"
                        db.Execute req
 
	      Next j
            Next indCell
 
      Next
    End If
 
  End With

[pgz]

Bonjour,

Ca a l'air tout con en effet.
Avant l'instruction de sélection qui peut provoquer l'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error Resume Next

et après la sélection

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Err.Number <>0 Then
    ...' traitement si erreur
Else
    ....' traitement si pas d'erreur
End If

Bon courage,

PGZ

[LostIN]

en effet, en jonglant avec ^plusieur langages, je cherchais bcp plus compliqué !!

meric