Discussion :

[Gado2600]

Bonjour,

Je dispose de deux fichiers Excel. L'un de BDD et l'autre (que l'on nommera xlImport) pour importer des données via un UserForm.
Tout le système fonctionne bien cependant, j'ai un soucis de "confort" au niveau utilisateur.

En effet, via le UserForm ouvert depuis xlImport, je peux filtrer ma BDD et, sélectionner, sur le fichier BDD directement, que les lignes qui m'intéressent. Le UserForm reste ouvert et me permet ensuite d'importer les données sélectionnées.

Cependant, quand je clique sur le bouton de "Filtrage", je souhaite avoir BDD d'afficher en premier plan (pour cliquer dans des cellules de la BDD) et, le UserForm également en même temps (pour lancer l'importation sans avoir à changer de classeur actif).
Or, le UserForm étant lié au classeur xlImport, je ne peux voir les deux en même temps sur l'écran...

Y'aurait-il une solution pour remédier à cela ?

Cordialement,

[mayekeul]

bonjour,

oui, ouvrir une session pour chacun des deux fichiers

donc quand tu appelles le fichier BDD

Code :

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

1
2
3
dim appBDD as new excel.application
dim appbook as excel.workbook
set appbook=appbdd.workbooks.open("BBD.xlsx")

[antonysansh]

Je ne suis pas certain d'avoir réellement cerné le problème.
Mais tu peux tester ça :
L'UF en modale

Code :

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

1
2
3
Sub Macro1()
    UserForm1.Show (0)
End Sub

Et tu réactives l'application Excel (pour perdre le focus sur l'UF) avec de sélectionner ton deuxième classeur.

Code :

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

1
2
3
4
Private Sub UserForm_Click()
    AppActivate "Microsoft Excel"
    Windows("Classeur2").Activate
End Sub

Ici j'ai mis sur un simple clic dans l'UF tu peux bien sur mettre sur ce que tu veux. j'ai aussi supposer que ton deuxième classeur était ouvert.

[Gado2600]

Bonjour,

Merci à vous deux pour vos réponses.

La réponse de Mayekeul fonctionne nickel !
J'essaierais celle d'Antonysansh dès que j'aurais 5min

Cordialement,