Autres Ouvrir et fermer des fichiers

Oneida

XLDnaute Impliqué

• 17 Août 2024

• #2

Bonjour,

de ce que j'ai compris

 

Pièces jointes

• clienti.xls

  53.5 KB · Affichages: 3

Vote positif 0 Vote négatif

F

francescofrancesco

XLDnaute Junior

• 17 Août 2024

• #3

Non.
Si vous voyez le code des deux boutons ils sont identiques sauf que dans le bouton1 la fermeture et l'ouverture des formulaires sont placées avant le code de sauvegarde et de fermeture.
Quel code ajouter pour obtenir le même résultat que le bouton2.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Août 2024

• #4

Bonjour.
Votre demande n'est pas claire parce qu'il n'y a pas d'objet nommé Form1 ni Form2 ni bouton2 dans votre projet VBA.
Il y a UserForm1, UserForm2, CommandButton1 et CommandButton2
Alors si c'est de ça que vous voulez parler, pour que ce soit l'UserForm2 qui ferme le Workbook ouvert par le UserForm1 (on se demande bien pourquoi ça devrait être comme ça ?) il faut nécessairement qu'il puisse le connaître (si son nom n'est pas toujours le même de sorte qu'il ne pourrait pas simplement faire Workbooks("commesse.xls").Close). Il faut donc qu'il soit connu de lui c'est à dire soit déclaré par une Public Wbk2 As Workbook, soit transmis à une méthode du UserForm2 qui fera elle même son Me.Show avant de le fermer. Mais si la déclaration est dans UserForm1 il ne faut pas de Unload Me, sinon il est perdu. Me.Hide plutôt.

 

Vote positif 0 Vote négatif

F

francescofrancesco

XLDnaute Junior

• 17 Août 2024

• #5

Je l'ai juste raccourci.
Parlons de UserForm1,Userform2, CommandButton1,CommandButton2.

 

Vote positif 0 Vote négatif

F

francescofrancesco

XLDnaute Junior

• 17 Août 2024

• #6

La séquence est la suivante.
La macro qui ouvre le fichier de commande de travail démarre à partir de userform1, effectue des calculs, ferme Userform1, ouvre Userform2, ferme et enregistre le fichier de commande de travail.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Août 2024

• #7

L'Userform2 est modal contrairement au UserForm1. Il ne rend donc la main au UserForm1 qu'après le Show UserForm2. Ne serait-ce donc pas l'UserForm1 qui pourrait fermer le classeur à ce moment là ?
En parlant d'UserForm, Ouvrir et Fermer c'est vague. Parlez plutôt de Charger, Afficher, Masquer et Décharger.

 

Vote positif 0 Vote négatif

F

francescofrancesco

XLDnaute Junior

• 18 Août 2024

• #8

Désolé, dans le fichier d'origine, les deux formulaires utilisateur sont modal.
Le classeur "jobs" est fermé par Userform1.
La séquence est donc de télécharger/fermer Userform1, charger/afficher Userform2, enregistrer et fermer les fichiers de travail.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Août 2024

• #9

Il ne faut jamais décharger un UserForm qui exécute un Show d'un autre UserForm
modal, puisqu'il suspend l'exécution de son code. La séquence doit être :
Me.Hide
UserForm2.Show
Wbk.Close
Unload Me

 

Vote positif 0 Vote négatif

F

francescofrancesco

XLDnaute Junior

• 18 Août 2024

• #10

Votre séquence ne fonctionne pas pour moi

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Août 2024

• #11

Elle fonctionne nécessairement.
Du moins à condition que l'UserForm2 ne s'occupe plus d'essayer de fermer le classeur.
C'est à celui qui l'a ouvert de le fermer.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Août 2024

• #12

Quand au Userform2, s'il a besoin de travailler sur le classeur ouvert par UserForm1, il y est connu comme ActiveWorkbook normalement.

 

Vote positif 0 Vote négatif