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