Bonjour,
Je tourne en rond avec ce problème
Code :
Le but est :
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
__ 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
Partager