Discussion :

[nanousik]

Coucou tout le monde,

Je viens à nouveau demander de l'aide.

Je souhaite ouvrir un fichier excel depuis vba pour le modifier, jusque la mon code fonctionnait. Mais voila qu'une erreur apparait et le fichier ne s'ouvre plus.

Erreur d'exécution '1004': Impossible d'accéder à "lst_agents.xls". Le fichier peut être endommagé, en lecture seule ou enregistré sur un serveur qui ne répond pas

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
 'Vérifie si le classeur lst_agents.xls est déja ouvert
                trouve = False
                nb = Workbooks.Count
                For i = 1 To nb
                    If Workbooks(i).Name = "lst_agents.xls" Then
                        trouve = True
                    End If
                Next i
 
                'Si il est déja ouvert je l'attribut à la variable monclasseur sinon je lui attribut l'ouverture du classeur
                If trouve = True Then
                    Set monclasseur = Workbooks("lst_agents.xls")
                Else
                    SetAttr "C:\Users\E40656\Documents\Suivi_activités\lst_agents.xls", vbNormal
                    Set monclasseur = Workbooks.Open("C:\Users\E40656\Documents\Suivi_activités\lst_agents.xls")
                End If

Je précise que je peux ouvrir le fichier, le modifier et l'enregistrer sans passer par VBA je n'ai aucun message d'erreur

[Daniel.C]

Bonjour,

Est-ce que tu peux l'ouvrir manuellement ? Si oui, sers-toi de l'enregistreur de macros et compare le résultat avec ton code. Dans le cas contraire, ton classeur est vraiment endommagé. Si c'est le cas, regarde ici :

http://excel.developpez.com/faq/?pag...sseurEndommage

[nanousik]

Je peux l'ouvrir manuellement oui mais l'enregistreur de maco d'enregistre rien lors de l'ouverture d'un fichier

[Daniel.C]

Un fois qu'il est ouvert, exécute la macro suivante et note soigneusement le message.

Code :

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

1
2
3
Sub test()
MsgBox ActiveWorkbook.FullName
End Sub

[nanousik]

Le message correspond au chemin que j'utilise pour l'ouvrir

C:\Users\E40656\Documents\Suivi_activités\lst_agents.xls

[Daniel.C]

Est-ce que tu pourrais mettre le classeur en pièce jointe, en effaçant les données confidentielles ?