Discussion :

[marsupilami34]

Bonjour à tous,

Je me trouve devant un problème assez étrange:
J'ai créé un dossier avec 7 fichiers excel qui on tous le même format.
J'ai créé une macro qui permet d'ouvrir ces fichiers afin de faire des modifications puis de sauvegarder ce fichier.

Tout se passe bien jusqu'à l'ouverture du 6eme fichier où je rencontre le message d'erreur suivant :

Erreur d'execution 1004 :
Impossible d'ouvrir le fichier car son format ou son extension n'est pas valide. Vérifier que le fichier n'est pas endommagé et que son extension correspond au format du fichier

Voici le code utilisé :

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
 
Sub SplitRestrictions()
 
    Dim fso
    Dim dossier, fichier, dossierPath
    Dim NbLines As Long, i As Long, j As Long
 
    'Init
    dossierPath = "C:\Users\ST36787\Desktop\Fichierr"
 
    'Create FilesystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set dossier = fso.GetFolder(dossierPath)
 
    For Each fichier In dossier.Files
        'Open the file
        Workbooks.Open FileName:=dossierPath & "\" & fichier.Name '***Ca plante ici***
        NbLines = ActiveWorkbook.Sheets("Feuil1").Range("A1048576").End(xlUp).Row
        For i = 2 To NbLines
             ' Code
        Next i
        ActiveWorkbook.Save
        ActiveWorkbook.Close
    Next fichier
    MsgBox ("Done")
End Sub

Quelqu'un pourrait-il me dire d'où ca pourrait venir ?

Merci d'avance
Marsup

[marsupilami34]

Re-Bonjour,

En fait j'ai trouvé.
Il s'agissait d'un fichier temporaire (nom du fichier commencant par ~) qui avait du mal etre fermé

Cordialement
Marsup