(VBA-E) Erreur sur ouverture de fichier

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:

---

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 :lol:

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'.

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:

---

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:

---

1 2 3

'Effacement du fichier original Kill (ToDoPath & OriginalName)

---

Comme quoi en cherchant bien

Merci :oops:

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:

---

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 ...:aie:

Salut,

Citation:

---

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...

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

Citation:

---

Montre-nous comment est faite la boucle

---

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:

---

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"

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

Code:

---

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:

---

On Error GoTo ErrorHandler

---

...

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

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

Code:

---

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 :mrgreen: