Passer un USF ouvert d'un fichier à l'autre

[carlos]

Bonjour,
j'ai crée usf que j'ouvre sur le fichier 1.
Lorsque je passe sur le fichier 2 le usf n'apparait plus alors qu'il y a 2 ou 3 ans cela était possible.
J'ai pourtant mis: USF1.show 0.
Avez vous une réponse à me proposer?
Merci
Carlos

 

[patricktoulon]

re
essaie celui du post #41 et en entier et tout dans le userform
c'est pas compliqué

 

[carlos]

Meme message erreur avec post 41

 

[patricktoulon]

re
a oui peut etre que le if 64 est exclusif

 

[carlos]

re
a oui peut etre que le if 64 est exclusif

Bravo PatrickToulon
ca marche impeccable. Je n'ai pas tout compris mais je vais maitenant le tester avec des données poir voir si elles se collent dans le fichier de destination.
Merci à toi et à Dranreb pour la qualité de votre travail et le suivi rapide

 

[carlos]

C'est bon il colle les données dans le fichier de destination mais revient aussitot en affichage sur le fichier source.

 

[patricktoulon]

donc on est bon ?

 

[carlos]

Oui merci on est bon.
Je devrais pouvoir trouver un moyen de reser sur le fichier de destinaion, C'est dans mes cordes .
Bravo encore car cela va vraiment m'aider dans mon boulot

 

[patricktoulon]

re
ben a la fin tu active le classeur destination c'est tout comme ça tu reste dessus

 

[carlos]

Oui c'est ce que je comptais faire. Merci
Bonne soirée

 

[carlos]

Bonjour,
Finalement je n'ai pas réussi à garder le focus sur le fichier de destination.
En effet, il Active bien le fichier mais dès que je clique sur le USF , il retourne systématique sur son fichier d'origine. , ce qi est très génant car je dois manuellement y retouner.
Boinne soirée

 

[carlos]

Bonsoir,
meme en mettant des .activate sur chacun des controles, il retourne systématiquement sur le fichier source:
If ListBox2.Value <> "" Then Workbooks(ListBox2.Value).Activate
La listbox2.value est le nom du fichier de destination
Y a t'il un moyen de corriger cela ?
Merci et bonne soirée

 

[carlos]

Bonsoir ,
@patricktoulon , Je crois qu'il n'y a que toi qui pourra m'aider sur ce fil.

 

[patricktoulon]

je te l'ai dis déja
dans le userform je t'ai mis la gestion de l'object workbook

te reste plus qu'a gérer l'event
exemple si tu a deux classeurs d'ouvert
si le userform est ouvert tu ne pourra pas revenir au classeur 1(celui du userform) avant d'avoir fermé le userform

Private Sub wbk_WindowActivate(ByVal Wn As Window)
If Workbooks.Count > 1 Then
Workbooks(2).Activate
End If
End Sub

 

[carlos]

je te l'ai dis déja
dans le userform je t'ai mis la gestion de l'object workbook

te reste plus qu'a gérer l'event
exemple si tu a deux classeurs d'ouvert
si le userform est ouvert tu ne pourra pas revenir au classeur 1(celui du userform) avant d'avoir fermé le userform

Private Sub wbk_WindowActivate(ByVal Wn As Window)
If Workbooks.Count > 1 Then
Workbooks(2).Activate
End If
End Sub

Bonjour PatrickToulon,
merci d'avoir pris le temps de me repondre et de prolonger la discussion et ma formation.
Tu as dit " si le userform est ouvert tu ne pourra pas revenir au classeur 1(celui du userform) avant d'avoir fermé le userform". Mais c'est exactement ce que je veux c'est à dire rester sur le classeur 2 de destination (celui qui ne contient pas le userform) et pouvoir alimenter quelques données sur le USF sans le fermer. Je n'ai pas besoin de revenir sur le classeur 1 source car toutes mlesinfos utiles sont déjà stockées dans l'USF..
Je ne sais pas si j'ai tout compris et si je suis assez clair.
En PJ le classeur avec rivate Sub wbk_WindowActivate(ByVal Wn As Window)mais qui ne permet pas de rester sur le classeur2
Bonne journée

 

[patricktoulon]

re
tiens essaie celui là
si tu n'a aucun autre classeur ouvert appuie sur le bouton ouvrir classeur2
et essaie donc de revenir au fichier source tant que le userform est affiché