Macro qui cesse de fonctionner quand un autre fichier Excel est ouvert

Bonjour,
Cette macro fonctionne bien quand j'ai seulement un fichier Excel ouvert : elle permet de fermer la fenêtre du dossier nommé "Expérimentation - Septembre 2015" qui est en fait un dossier qui se trouve sur un site de collaboration dans Sharepoint. Dès que j'ai un autre fichier Excel ouvert, elle ne fonctionne plus: la fenêtre reste ouverte et il n'y a aucun message d'erreur. Pourtant, il ne peut pas y avoir confusion avec le nouveau fichier Excel ouvert puisque qu'il n'est pas placé dans le même dossier et le nom de son dossier est différent. Comment puis-je faire pour faire en sorte que ma macro fonctionne tout le temps?

Code:

---

1 2 3 4 5 6 7 8 9

Sub OuvrirFenetreAvecDossier()   Shell "explorer.exe \\sharepoint.ca \Expérimentation - Septembre 2015", vbMinimizedFocus Application.Wait (Now + TimeValue("0:00:04")) HandleNum = FindWindowA(vbNullString, "Expérimentation - Septembre 2015") ShowWindow HandleNum, SW_HIDE     End Sub

---

Bonsoir
http://www.developpez.net/forums/d15...r/#post8435054

Comme je t'ai déjà montré dans un précédant postes, la fonction Shell te retourne l'identifiant de l'application exécuté.

Alors que l'api te retourne la première occurrence trouvé qui n'est visible celle qui t'intéresses dans ton cas!

Merci, j'avais aussi essayé le code de ton autre poste :

Code:

---

1 2 3 4 5 6 7

Sub OuvrirFenetreAvecDossier2()   HandleNum = Shell("explorer.exe \\sharepoint.ca\Expérimentation - Septembre 2015", vbNormalFocus) Application.Wait (Now + TimeValue("0:00:04")) ShowWindow HandleNum, SW_HIDE   End Sub

---

Mais mon ordinateur de semble pas vouloir coopérer : la fenêtre reste parfois ouverte. Je ne sais pas de quoi ça depend. Je pensais que c'était quand j'ai un autre fichier Excel ouvert, mais je l'ai réessayé ce matin sans fichier Excel ouvert et il n'a pas fonctionné. C'est peut-être ce que tu essaies de m'expliquer. Je me sens un peu nulle, mais je ne saisie pas.