Bonjour à tous,
J'ai comme l'impression que ce que je veux faire n'est pas possible, mais peut-être certains auront une astuce (ou mieux, la solution !). Je m'explique.
Dans mon Excel, j'ouvre un Userform contenant plusieurs TextBox à renseigner par l'utilisateur.
Pour compléter une des TextBox, il est possible que l'utilisateur ait besoin d'aller chercher de l'information contenue dans une autre fichier Excel (ListeZG). Pour cela, j'ai donc créé un label qui renvoie vers ListeZG lorsque l'on clique dessus.
Quand je clique sur le label, j'ai bien une application Excel qui s'ouvre mais pas le classeur ListeZG. Pour que cela fonctionne, il faut que j'ajoute la commande Unload Me dans le Userform.
Or je ne veux pas fermer le Userform. Je veux seulement ouvrir le fichier ListeZG, le refermer quand j'ai consulté ce dont j'avais besoin et continuer la complétion de mon UserForm.
Est-ce possible ??
Merci d'avance de votre aide !!
Private Sub Label_LienZG_Click()
link = "C:\Lienxxxx\ListeZG.xlsx"
Set Wbk = Workbooks.Open(link, ReadOnly:=True)
Unload Me 'ce que je ne veux pas faire !
End Sub
J'ai comme l'impression que ce que je veux faire n'est pas possible, mais peut-être certains auront une astuce (ou mieux, la solution !). Je m'explique.
Dans mon Excel, j'ouvre un Userform contenant plusieurs TextBox à renseigner par l'utilisateur.
Pour compléter une des TextBox, il est possible que l'utilisateur ait besoin d'aller chercher de l'information contenue dans une autre fichier Excel (ListeZG). Pour cela, j'ai donc créé un label qui renvoie vers ListeZG lorsque l'on clique dessus.
Quand je clique sur le label, j'ai bien une application Excel qui s'ouvre mais pas le classeur ListeZG. Pour que cela fonctionne, il faut que j'ajoute la commande Unload Me dans le Userform.
Or je ne veux pas fermer le Userform. Je veux seulement ouvrir le fichier ListeZG, le refermer quand j'ai consulté ce dont j'avais besoin et continuer la complétion de mon UserForm.
Est-ce possible ??
Merci d'avance de votre aide !!
Private Sub Label_LienZG_Click()
link = "C:\Lienxxxx\ListeZG.xlsx"
Set Wbk = Workbooks.Open(link, ReadOnly:=True)
Unload Me 'ce que je ne veux pas faire !
End Sub