Discussion :

[Lune1]

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 :

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

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

[Invité]

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!

[Lune1]

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

Code :

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

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.