ouvrir feuille excel depuis userform (vba)

**LittleMouse1** · 17/07/2018, 13h28

Bonjour,

J'ai créé un UserForm qui permet de compléter une feuille de calcul via des TextBox.

j'ai mis le code suivant dans ThisWorbook pour n'avoir que le userform qui s'ouvre à l'ouverture du fichier :

Code :

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

1
2
3
4
5
6
 
Private Sub Workbook_Open()
ThisWorkbook.Application.Visible = False
Load Accueil
Accueil.Show 0
End Sub

Le problème c'est que du coup je ne peux plus accéder à mon classeur et au visual basic.

J'ai rajouté un bouton dans mon UserForm pour ouvrir le classeur, voir le tableau qui stocke les données saisies dans le UserForm et aussi pour pouvoir ouvrir le Usual Basic si modif nécessaires.

Après beaucoup d'essais, je n'arrive vraiment pas à ouvrir cette feuille....

Quelqu'un pourrait-il m'aider ?

voici le(s) code(s) que j'ai essayé :

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
 
Private Sub Consulter_tab_Click()
'
'Dim wb As Workbook
'Dim ws As Worksheet
'
'Dim strFilename As String: strFilename = "C:\Users\to40897\Desktop\stage-appli\TPM_A31-Copie.xlsm"
'
'Set wb = Workbooks.Open(Filename:=strFilename)
'
'Set ws = wb.Worksheets("Data_FZ")
'
'ws.Unprotect
 
Sheets("Data_FZ").Range("A1:AC" & dlt).Activate
 
Sheets("Data_FZ").Visible = True
Unload Me
 
End Sub

j'ai essayé pas mal de choses, d'où les lignes en commentaires que j'ai mises, enlevées, modifiées etc.... mais sans succès.

Mon classeur s'appelle donc "TPM_A31-Copie" et la feuille à ouvrir "Data_FZ"

Merci pour votre aide !

**Menhir** · 17/07/2018, 14h01

Envoyé par LittleMouse1

J'ai rajouté un bouton dans mon UserForm pour ouvrir le classeur, voir le tableau qui stocke les données saisies dans le UserForm et aussi pour pouvoir ouvrir le Usual Basic si modif nécessaires.

Code :

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

Sheets("Data_FZ").Visible = True

Il est inutile d'essayer de rendre une feuille visible si c'est toute l'application qui est invisible.

Pour la rendre visible, fais le contraire de ce qui a été fait dans ton Workbook_Open. Entre autre :

Code :

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

Application.Visible = True

**LittleMouse1** · 17/07/2018, 15h34

wouah !!!! une petite ligne et ça résoud tout !! merci beaucoup !!

J'en profite pour demander comment fermer et la feuille et le classeur et l'application excel en sauvegardant tout le classeur par un clique sur un bouton dans le userform...

Merci !

**Menhir** · 17/07/2018, 15h59

Envoyé par LittleMouse1

J'en profite pour demander comment fermer et la feuille et le classeur en sauvegardant tout le classeur

Déjà, si tu fermes le classeur, la feuille va se fermer, forcément.

Pour fermer le classeur en sauvegardant :

Code :

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

ThisWorkbook.Close SaveChanges:=True

Perso, je déconseille de fermer un classeur par la macro qu'il contient.
C'est un peu comme scier la branche sur laquelle on est assis.

Il est possible que ça se passe bien mais ça me parait contre nature.

fermer l'application excel par un clique sur un bouton dans le userform...

Rappelle-moi de ne JAMAIS ouvrir une pièce jointe venant de toi.

On peut fermer l'application avec un Application.Quit, mais il faut le faire avec d'immenses précautions, entre autre vérifier que l'utilisateur n'a pas un autre fichier ouvert.
C'est un conseil que tu devrais aussi appliquer à ce que tu as mis dans ton Workbook_Open.

Perso, si une personne ne transmets une application et qu'en l'ouvrant j'ai deux heures de boulot qui partent en fumée parce que cette personne a voulu jouer à l'apprenti sorcier en utilisant des outils qu'elle ne maitrise pas, elle a intérêt à être hors de portée de mon 43 fillette et s'extrader au Venezuela.

**LittleMouse1** · 17/07/2018, 16h31

en fait mon application va prendre place sur une tablette qui ne servira que pour cette application, du coup la gestion d'autres fichiers excel ouverts en même temps ne se pose pas, c'est pour ca que je bourrine un peu et que ce n'est pas parfait.

Je veux notamment pouvoir fermer l'app excel car quand je ne la ferme pas complètement, ça ne se voit pas et après quand je relance le fichier il me dit que c'est déjà ouvert... et je ne peux pas rouvrir le fichier.

donc je pense que je vais quand même essayer

Code :

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