ouvrir feuille excel depuis userform (vba)

Version imprimable

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:

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:

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 !

17/07/2018, 14h01
Menhir

Citation:

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:

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:

Application.Visible = True
17/07/2018, 15h34
LittleMouse1

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...:D

Merci ! ;)
17/07/2018, 15h59
Menhir

Citation:

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:

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.

Citation:

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.
17/07/2018, 16h31
LittleMouse1

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:

ThisWorkbook.Close SaveChanges:=True

Citation:

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

ha ha !! dac ! ;)

merci pour votre aide !
17/07/2018, 16h33
LittleMouse1

je viens de tester

Code:

ThisWorkbook.Close SaveChanges:=True

ca fonctionne très bien (ferme et sauve tout)
merci !