(VBA-E) Erreur sur ouverture de fichier

**Stutak** · 26/08/2006, 11h25

Bonjour,
je dois compliler les infos en provenance de 3500 fichiers excel nommés par un simple numéro entre 1 et 5000 (certains numéros sont manquants).
L'idée de base est de les déplacer après le traitement.
Le fichier de compilation est dans la racine, les fichiers à traiter Racine\to do et les fichiers traités Racine\Done.Pour l'instant j'arrive à les renommer ailleurs mais pas à effacer l'original.
Existe-t-il une solution pour soit déplacer le fichier initial, je le renommerais après, soit effacer le fichier de son emplacement initial après l'avoir sauvegardé ailleurs.

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
 
Sub Action()
 
    Dim X As Integer
    Dim CurrentPath As String
    CurrentPath = ActiveWorkbook.Path
 
 
   For X = 1 To 5
 
     On Error GoTo ErrorHandler 'permet de sauter à la fin en cas d'absence de fichier
     ActiveWorkbook.ConflictResolution = xlLocalSessionChanges
 
     Workbooks.Open CurrentPath & "\To do\" & X & ".xls"
     ActiveWorkbook.ConflictResolution = xlLocalSessionChanges
 
     ' c'est une fonction de recopie
     Copy_Data (X)
 
     ' ici la sauvegarde du fichier dans un autre répertoire
     ActiveWorkbook.SaveAs Filename:=CurrentPath & "\Done\" & X & "A.xls"
     ActiveWindow.Close
 
ErrorHandler:
    Next X
 
End Sub

J'aimerais pouvoir également contrôler que le fichier n'est pas déjà ouvert.

Merci de votre aide

**zazaraignée** · 27/08/2006, 00h31

Salut

Tu va devoir utiliser les objets du système de fichiers plutôt que la gestion par l'enrgistrement de fichier via Excel. Tu doit ajouter une référence à Microsoft Scripting (Menu Outils, Références) et je ne sais plus par coeur quelle manipulation... Regarde dans l'aide en cherchant avec les mots 'File System Object' et 'MoveFile'.

**Stutak** · 27/08/2006, 02h13

A force de chercher sur le forum et d'essayer les solutions proposées sous diverses formes, j'ai finalement fini par utiliser ceci
Pour fermer le fichier

Code :

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

1
2
3
4
5
6
7
 
    'En cas de fichier déjà ouvert, le fermer
            For Each Workbook In Workbooks
               If Workbook.Name = OriginalName Then
               Workbooks(OriginalName).Close
               End If
            Next Workbook

Puis pour l'effacer

Code :

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

1
2
3
 
     'Effacement du fichier original
             Kill (ToDoPath & OriginalName)

Comme quoi en cherchant bien

Merci

**Stutak** · 27/08/2006, 11h13

Bonjour,

j'ai une macro qui doit m'ouvrir des fichiers les uns après les autres, les traiter puis les recopier ailleurs et effacer l'original.
Le fichier porte juste un numéro comme nom (de 1 à 3052)
tout fonctionne
SAUF
quand j'ai des "trous" dans la numérotation.

J'ai vadrouillé sur le forum et j'ai trouvé, entre autres, ces lignes qui semblent convenir mais qui ne fonctionnent pas bien.
En effet, le premier "trou" passe bien, mais tout bloque au deuxième.

Code :

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

1
2
3
4
5
6
 
    'Ouverture du fichier à recopier et gestion des conflits
            Set wk = Workbooks.Open(OriginalName)
            If wk Is Nothing Then GoTo ErrorHandler
    ' Recopie des éléments
            Copy_Data (X)

Je sais que ce problème a été maintes fois abordé, mais je n'ai rien trouvé (FAQ, forum ou aide en ligne) pour me sortir de cette impasse.

Donc si quelqu'un a une idée ...

**plegat** · 27/08/2006, 11h18

Salut,

Envoyé par Stutak

Donc si quelqu'un a une idée ...

Oui!
Montre-nous comment est faite la boucle, et également comment est gérée l'erreur.

Parce qu'avec trois lignes de code, c'est un peu juste...

**AlainTech** · 27/08/2006, 11h23

J'ai fusionné les 2 discussions pour garder l'historique des messages et (éventuellement, entre autres) éviter

Montre-nous comment est faite la boucle

**Stutak** · 27/08/2006, 11h53

OK Merci,
comme le sujet était un peu différent, je n'avais pas voulu le mettre à la suite.
Quoi qu'il en soit, voilà la boucle

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
 
            For X = 1 To 6
     'Editer les nom des fichiers (usage et stockage) avec le N° de boucle et le chemin
           OriginalName = ToDoPath & X & ".xls"
           RenamedName = DonePath & X & "A.xls"
    'En cas de fichier déjà ouvert, le fermer
            For Each Workbook In Workbooks
               If Workbook.Name = OriginalName Then
               Workbooks(OriginalName).Close
               End If
            Next Workbook
    'Ouverture du fichier à recopier et gestion des conflits
            Set wk = Workbooks.Open(OriginalName)
            On Error GoTo ErrorHandler
            If wk Is Nothing Then GoTo ErrorHandler 'Sortie sur erreur ouverture dernier fichier
    ' Recopie des éléments
         '   Copy_Data (X)
    ' Sauvegarde du fichier dans le répertoire "Done"
             ActiveWorkbook.SaveAs Filename:=RenamedName
             ActiveWindow.Close
     'Effacement du fichier original
             Kill (OriginalName)
    ' arrivée du goto sur erreur
ErrorHandler:
    Next X

Je précise que quand il n'y a pas de "trou", ou un seul où qu'il soit, tout fonctionne.
C'est au 2ème que ça bugge : Erreur d'exécution 1004 Fichier introuvable"

**SfJ5Rpw8** · 27/08/2006, 11h56

Tiens modifie ton code en utilisant ce principe, je suppose que tu as un On Error resume next..

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
 
On Error Resume Next
 For X = 1 To 5
....
   Set wk = Workbooks.Open(OriginalName)
            If Not (wk Is Nothing) Then 
    ' Recopie des éléments
            Copy_Data (X)
        ...
      else
       If Err.Number <> 0 Then
         Debug.Print "Erreur pour X : " & X & " Num : " & Err.Number & "  : " & Err.Description
         Err.Clear 'Réinit Gestion erreur
       End If
 
      end if
   Next

[Edit] entre temps tu as posté ton code , supprime le

Code :

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

 On Error GoTo ErrorHandler

...

**zazaraignée** · 27/08/2006, 13h51

Tu pourrais vérifier l'existance du fichier avec la fonction Dir expliquée dans l'aide de VBA.

**Stutak** · 27/08/2006, 15h11

Merci à bbil et à zazaraignée pour leur aide
J'ai pris un peu des 2 et au final ça donne çà

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
   For X = 1 To 6
      'Ouverture du fichier à recopier
          If Dir(OriginalName) = X & ".xls" Then
             Workbooks.Open (OriginalName)
     .........
      Else
              If Err.Number <> 0 Then
              Debug.Print "Erreur pour X : " & X & " Num : " & Err.Number & "  : " & Err.Description
              Err.Clear 'Réinit Gestion erreur
              End If
           End If
    Next X

et ça fonctionne comme je le souuhaitais
Merci

(VBA-E) Erreur sur ouverture de fichier

Macros et VBA Excel

Discussions similaires

Partager

Partager