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

patricktoulon

XLDnaute Barbatruc

• 12 Novembre 2022

• #46

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 12 Novembre 2022

• #47

Meme message erreur avec post 41

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 12 Novembre 2022

• #48

re
a oui peut etre que le if 64 est exclusif

 

Pièces jointes

• Ficchier Source.xlsm

  25 KB · Affichages: 4

Vote positif 0 Vote négatif

Solution

C

carlos

XLDnaute Impliqué

• 12 Novembre 2022

• #49

patricktoulon à dit:

re
a oui peut etre que le if 64 est exclusif

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 12 Novembre 2022

• #50

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 12 Novembre 2022

• #51

donc on est bon ?

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 12 Novembre 2022

• #52

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 12 Novembre 2022

• #53

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 12 Novembre 2022

• #54

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 17 Novembre 2022

• #55

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

 

Pièces jointes

• Ficchier Source (2).xlsm

  27 KB · Affichages: 3

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 18 Novembre 2022

• #56

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 19 Novembre 2022

• #57

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 19 Novembre 2022

• #58

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

VB:

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 20 Novembre 2022

• #59

patricktoulon à dit:

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

VB:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• Fichier Source 3.xlsm

  28.4 KB · Affichages: 0

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 20 Novembre 2022

• #60

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é

 

Pièces jointes

• Ficchier Source (2)(1).xlsm

  26.5 KB · Affichages: 3

Vote positif 0 Vote négatif