Discussion :

[Pompaero]

Bonjour le forum

Meilleurs vœux 2016 à tous.

Voilà un moment que je ne suis pas venu, mais la j'ai sincèrement besoin d'aide.

Mon objectif est d'avoir un classeur principal ou ce trouve un UF avec des boutons qui permet d'ouvrir un autre classeur au choix pour le renseigner.

Pour l'exemple mon classeur de base est nommé :
- principal.xlsm
puis 2 autres classeurs nommés :
- Soleil.xlsm
- Pluie.xlsm
dans le classeur "Principal" ou des informations y seront renseignés manuellement, se trouve également un UF avec plusieurs boutons permettant d'ouvrir d'autres classeurs au choix. Après recherche j'ai bien trouvé un code permettant d'ouvrir un classeur X mais le soucis est que le classeur "principal" reste ouvert en dessous du classeur x qui vient d'être ouvert et au moment de vouloir enregistrer le classeur X et bien la, ça ne marche pas.
Ceci est pour mon taf car je souhaite avoir accès direct au maximum de docs a partir du classeur "principal". Si vous avez des idées d'amélioration !!!
voici mon code

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
 Dim Chemin As String, NomFichier As String
 Chemin = ThisWorkbook.Path & "\"
 NomFichier = "Soleil.xlsm"
 Me.Hide: UsF_Prin.Hide
 Workbooks.Open Filename:=Chemin & NomFichier
End Sub

Merci à vous par avance.

[joe.levrai]

Bonjour,

c'est normal que ton classeur principal soit encore "derrière" le classeur ouvert ... puisqu'il n'est pas fermé et qu'ils sont tous les deux dans la même instance Excel.

ce que je ne comprend, c'est le fait que tu n'arrives pas à enregistrer le classeur qui a été ouvert par ta macro

comment s'effectue l'enregistrement ? quel est le message d'erreur quand tu enregistres ? si pas de message d'erreur, décris ce qu'il se passe.

si l'enregistrement est effectué par macro, montre le code.

[Theze]

Bonjour,

L'userForm que tu lance est lié au classeur principal donc, si tu veux travailler sur un autre, il te faut soit le nommer explicitement :

Code :

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

1
2
 
Workbooks(NomFichier).Save

soit utiliser une variable objet "Workbook" déclaré dans un module standard :

Code :

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

1
2
 
Public ClasseurX As Workbook

dans le module de la Form :

Code :

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

1
2
3
4
5
 
Set ClasseurX = Workbooks.Open(Filename:=Chemin & NomFichier)
'...
'...
ClasseurX.Save

[Pompaero]

Bonjour joe.levrai

Merci d'être arrêté sur mon post y de vouloir m'aider.
Donc pour répondre à tes questions :
- l'enregistrement s'effectue simplement avec la disquette ou la croix rouge en haut à droite.
- je n'ai aucun message d'erreur
quand je clic sur la croix rouge rien ne se passe, il faut que je fasse réduire (avec le petit trait) le classeur que je viens d'ouvrir, réduire le classeur principal, réafficher le classeur X que je viens de renseigner et la je clic sur la croix rouge la procedure d'enregistrement s'effectue.

voila le déroulement..

Cdlt

Bonjour Theze

Merci d'être arrêté sur mon post y de vouloir m'aider.

oui l'userForm que je lance est lié au classeur principal donc si je comprends bien il me faut ajouter dans mon code actuel ceci

Code :

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

Workbooks(NomFichier).Save

mais Save permet seulement d'enregistrer? ça ne va pas fermer le classeur "principal" ?

si c'est ça, je le place ou dans mon code ?

[joe.levrai]

Bonjour,

en fait, tu voudrais :

- en partant d'un classeur "principal"
- pouvoir ouvrir divers documents (via par exemple des clic boutons) depuis un userform
- au choix d'un classeur : on ouvre le classeur voulu et on ferme le classeur "principal" ?


si tel est le cas, dans la procédure qui ouvre ton classeur choisi :

Code :

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

1
2
Unload Me
ThisWorkbook.Close  ' Ajouter "True" pour enregistrer en fermant ou "False" pour fermer sans enregistrer

[Pompaero]

Bonjour Thèze

J'ai essayé d'ajouter ta proposition dans mon code, j'ai fais comme cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Private Sub CommandButton1_Click()
 Dim Chemin As String, NomFichier As String
 
 Workbooks("Principal.xlsm").Save
 
 Chemin = ThisWorkbook.Path & "\"
 'Chemin = "C:\Users\FRANCE\Desktop\Essai ouverture Fichier\"
 NomFichier = "Soleil.xlsm"
 Me.Hide: UsF_Prin.Hide
 Workbooks.Open Filename:=Chemin & NomFichier
 
End Sub

mais n'arrive toujours pas à enregistrer le classeur "Soleil" (ici pour l'exemple), Je dois certainement mal faire je pense.dsl

Cdl

Bonjour joe.levrai

oui le principe est ce que tu ma écrit

- en partant d'un classeur "principal"
- pouvoir ouvrir divers documents (via par exemple des clic boutons) depuis un userform
- au choix d'un classeur : on ouvre le classeur voulu et on ferme le classeur "principal" ?

sauf que j'aimerai éviter de fermer le classeur "principal" mais plutôt le laisser ouvert si c'est possible sinon le réduire si c'est possible également.