Microsoft 365 Fermeture feuille et reinitialisation

Moreno076 · 23 Février 2020

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.

Staple1600 · 23 Février 2020

Bonsoir le fil, Moreno076

Pour ne pas avoir le message d'avertissement
Application.DisplayAlerts = False

Moreno076 · 23 Février 2020

Staple1600 à dit:
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 · 23 Février 2020

Même si je met V900.xlsm

Staple1600 · 23 Février 2020

Re

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

Moreno076 · 23 Février 2020

Staple1600 à dit:
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 · 23 Février 2020

Re

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

VB:

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

Moreno076 · 23 Février 2020

Staple1600 à dit:
Re

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

VB:

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 · 23 Février 2020

Re

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

Moreno076 · 23 Février 2020

Staple1600 à dit:
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 · 23 Février 2020

Re

Donc V900.xlsm est déjà ouvert.

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

Moreno076 · 23 Février 2020

Staple1600 à dit:
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 · 23 Février 2020

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 · 23 Février 2020

Staple1600 à dit:
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 · 24 Février 2020

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 · 24 Février 2020

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

Microsoft 365 Fermeture feuille et reinitialisation

Moreno076

XLDnaute Impliqué

Pièces jointes

Staple1600

Moreno076

XLDnaute Impliqué

Moreno076

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Moreno076

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Moreno076

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Moreno076

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Moreno076

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Moreno076

XLDnaute Impliqué

Moreno076

XLDnaute Impliqué

Pièces jointes

Moreno076

XLDnaute Impliqué

Discussions similaires