Discussion :

[Arnaud06500]

Bonjour

je vous explique la situation

j'ai une base de donné sous Excel et je dois permettre à mes équipes d'y accéder sans avoir accès aux données de base.

pour la gérer, j'utilise des userforms (l'accès aux onglets est bien sur "bloqué" afin d'éviter que quelqu'un puisse y accéder)

dans l'un des userforms, je permets la création d'un fichier excel qui récupère des données saisies dans le userform. dès qu'on quitte le userform, le fichier excel est sauvegardé et fermé

Jusque là, rien de bien particulier.

Voilà ce que je voudrais :

une fois que mon fichier excel créé via le userform est enregistré, je voudrais que l'utilisateur puisse y acceder sans quitter le userform.

mais impossible de le faire... je n'y arrive pas !

je ne sais même pas si c'est possible car j'ai essayé pendant que je suis sur le userform d'ouvrir manuellement un autre fichier excel, mais rien ne s'ouvre tant que je n'ai pas quitter le userform

quelqu'un peut m'aider ?

merci d'avance

[Franc]

Bonjour, il est possible d'ouvrir un classeur excel à partir du userform, mais ensuite aucune interaction n'est possible avec le classeur tant que le userform est ouvert, celui-ci conserve le focus.
Tu peux tester par toi-même en affectant cette macro à un bouton.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
    Dim cheminFichier As String
    cheminFichier = "chemin_vers_le_fichier\mon_fichier_cree.xlsx" ' Remplacez ceci par le chemin complet de votre fichier créé
 
    On Error Resume Next
    Workbooks.Open cheminFichier
    If Err.Number <> 0 Then
        MsgBox "Une erreur s'est produite lors de l'ouverture du fichier.", vbExclamation
    End If
    On Error GoTo 0
End Sub

[umfred]

on doit pouvoir en créant, ouvrant une nouvelle session Excel, de la même façon qu'on peut ouvrir un word

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
17
18
19
20
21
Sub OvrirClasseurDansNouvelleInstanceExcel()
'par: https://excel-malin.com
 
    On Error GoTo Erreur
 
    'définitions des variables
    Dim MonClasseur As String
    Dim objExcel As Excel.Application
    Set objExcel = CreateObject("Excel.Application")
 
    'définition du Classeur à ouvrir
    MonClasseur = "C:\Test\ClasseurTest.xlsm"
 
    'ouverture du Classeur dans une nouvelle instance d'Excel
    objExcel.Workbooks.Open Filename:=MonClasseur
    objExcel.Visible = True
 
Exit Sub
Erreur:
    MsgBox "Une erreur est survenue..."<span data-mce-type="bookmark" style="display: inline-block; width: 0px; overflow: hidden; line-height: 0;" class="mce_SELRES_start"></span>
End Sub

[joe.levrai]

Bonjour,

par défaut un userform est modal, c'est à dire qu'il fige l'application tant qu'on ne le ferme pas (entre autre)

ils suffit de le rendre non modal, et on peut ouvrir d'autres classeurs, travailler dessus, avec le userform ouvert

Code :

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

Userform1.Show False