Discussion :

[gangsterus]

Bonjour,

J'ai fait quelques recherches, et je ne trouve pas réponse à ma question.
Je souhaite ouvrir plusieurs fichier excel les uns après les autres, copier les données dedans et les coller dans le fichier qui contient le code. Certains fichiers sont déjà ouverts par d'autres utilisateurs

Par ailleurs, je souhaite détecter les fichiers excel qui ont posé problème lors de l'exécution de la macro(mauvais chemin d'accès, mauvais nom de fichier ou de feuille,...). J'ai donc mis une fonction "On error go to" pour repérer les fichiers incriminés. Si le fichier contient une erreur, on passe au suivant.

La macro fonctionne bien pour les fichiers qui ne sont pas ouverts par d'autres utilisateurs. Lorsque c'est déjà ouvert, ma macro considère que c'est une erreur, ne l'ouvre pas et passe au suivant.

Je souhaite donc que l'ouverture d'un fichier déjà ouvert par un autre utilisateur ne soit pas considérée comme une erreur.

Avez-vous des solutions?

Je vous remercie par avance

[Qwazerty]

Salut

Il suffit de préciser que tu souhaites ouvrir ton fichier uniquement en lecture seul. N'ayant pas ton code sous les yeux, je suppose que tu utilises Workbooks.open, il suffit donc de faire

Code :

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

Workbooks.Open "Chemin du fichier", ReadOnly:=True

++
Qwaz

[gangsterus]

Bonjour,

Merci pour la réponse. J'avais déjà mis ce code, mais ça ne suffisait pas.

Voici ce que j'ai mis:

Code :

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

On Error GoTo GestionErreur

puis ouverture de fichier

puis:

Code :

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

1
2
3
4
5
GestionErreur:
 
If Err.Number = 1004 Then
 
Resume Next

Visiblement, ça fonctionne.

Merci tout de même

[Qwazerty]

Salut

Essai en ajoutant

Code :

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

1
2
3
Application.DisplayAlerts = False
Workbooks.Open "Chemin du fichier", ReadOnly:=True
Application.DisplayAlerts = true

++
Qwaz