Microsoft 365 Fermeture feuille et reinitialisation

[Moreno076]

Bonjour à tous.

Dans mon classeur, j'ai plusieurs feuilles qui s'ouvrent lorsque je clique sur le bouton du haut.

J'ai crée un bouton RESET qui a pour but de supprimer les feuilles Ruptures ExtractionReappro et X3.
Déjà j'ai un message qui me demande confirmation pour fermer feuille. Comment supprimer ce message?

Ensuite je voudrais que ce même bouton reset permette que le bouton du haut se remette à l'origine pour relancer toutes les macros mais ca je n y arrive pas du tout.
Avez vous des pistes?

Sub ReinitilisationBtn()
Worksheets("Ruptures").Delete
Worksheets("ExtractionReappro").Delete
Worksheets("X3").Delete

End Sub

Merci pour votre collaboration.

 

[Moreno076]

Re

Bah, pour comprendre, rien de mieux que de tester, non ?
1) inséres un CommandButton (ActiveX) sur une feuille vierge)
2) Clic-droit-> Propriétés -> saisir Oui dans la zone Caption
(puis fermer la fenêtre: Propriétés)
3) Nouveau clic-droit=> Visualiser le code
4) Copier le code VBA de mon message
5) Revenir dans Excel puis cliquer sur Mode Création (pour en sortir)
Enfin cliquer sur le bouton
Observer ce qui se passe
Cliquer une seconde fois
Observer de nouveau ce qui se passe.

Voilà, désormais vous avez compris.

Ok vu et je vais essayer un peu plus tard. Merci

J'ai mis plutot ca

Sub ReinitilisationBtn()
Workbooks("V900").Close SaveChanges:=False
Workbooks.Open ("C:\Users\Olivier\Desktop\V900.xls")

Mais le fichier ne s ouvre pas


End Sub

 

[Moreno076]

Même si je met V900.xlsm

 

[Staple1600]

Re

Le chemin est-il le bon?
Le fichier existe-t-il?
Y-a-t-il un message d'erreur qui s'affiche?

 

[Moreno076]

Re

Le chemin est-il le bon?
Le fichier existe-t-il?
Y-a-t-il un message d'erreur qui s'affiche?

Re
Le fichier se ferme mais aucune ouverture, aucun message d erreur, bon chemin

 

[Staple1600]

Re

Peux-tu nous redire ce renvoie ces deux tests, stp ?

Sub TestA()
MsgBox ThisWorkBook.FullName
End Sub
'et celui-ci
Sub TestB()
MsgBox Environ("USERPROFILE") & "\Desktop"
End Sub

 

[Moreno076]

Re

Peux-tu nous redire ce renvoie ces deux tests, stp ?

Sub TestA()
MsgBox ThisWorkBook.FullName
End Sub
'et celui-ci
Sub TestB()
MsgBox Environ("USERPROFILE") & "\Desktop"
End Sub

Excusez moi pas compris la question

 

[Staple1600]

Re

Copie ces deux macros dans ton classeur, et exécute-les
Et redis-nous ce qui s'affichera dans les deux MsgBox

 

[Moreno076]

Re

Copie ces deux macros dans ton classeur, et exécute-les
Et redis-nous ce qui s'affichera dans les deux MsgBox

test A

test B

 

[Staple1600]

Re

Donc V900.xlsm est déjà ouvert.

Par contre est-ce qu'un sous-dossier X4 existe bien sur le bureau ?

 

[Moreno076]

Re

Donc V900.xlsm est déjà ouvert.

Par contre est-ce qu'un sous-dossier X4 existe bien sur le bureau ?

une fois le reset fait tout se ferme c'est bizarre et oui il y a bien un sous dossier X4

 

[Staple1600]

Re

Donc ta ligne de commande aurait du être
Workbooks.Open "C:\Users\Olivier\Desktop\X4\V900.xlsm"

(ce n'était pas ce qu'on pouvait lire dans le message#16

 

[Moreno076]

Re

Donc ta ligne de commande aurait du être
Workbooks.Open "C:\Users\Olivier\Desktop\X4\V900.xlsm"

(ce n'était pas ce qu'on pouvait lire dans le message#16

J ai copié le fichier à 2 endroits mais les deux existent

 

[Moreno076]

Re
J'ai trouvé une astuce de remplacement . J'ai copié la feuille synthèse qui s appelle synthèse 2 et je l'ai masqué. Lorsque je clique sur le bouton reset, j'affiche la feuille synthèse 2 , j'ai mis tes lignes de macros qui suppriment les feuilles sauf synthèse 2 ensuite cette feuille se renomme Synthèse et là tout devrait fonctionner mais non :-( lorsque je reclique sur le bouton Bleu les macros ne s enchainent pas sans coquille :-(

.

 

[Moreno076]

C'est bon me suis dépatouillé pour ca c'est réglé