Bonjour,
Je tourne en rond avec ce problème

Code :

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
Sub   Blabla()
 
 Code blablabla
 
Feuille_Source = ""
Nom2 = Dir(nom1)       ' Nom1 contient le chemin + le nom du fichier
Workbooks(nom2).activate
While Feuille_Source = ""
DoEvents
 Feuille_Source = ActiveWorkbook.ActiveSheet.Name
Wend
 
 
Code blablabla
 
end sub
Le but est :
__ Ouvrir un classeur et l'activer . Cela est fait avant le While et fonctionne
__ Sélectionner une feuille et quitter la boucle lorsque je clique sur l'onglet de la feuille

Avec toutes les combinaisons que j'ai faites , cela se passe comme s'il n'y avait pas le DoEvents.
J'ai évidemment dans Feuille_Source le nom de la feuille active à l'ouverture du classeur.
Mais je voudrais la choisir
Merci de votre aide