Microsoft 365 Bouton clignotant

[Moreno076]

Bonjour le forum.
Je souhaiterais que mon bouton actuellement bleu soit clignotant au démarrage du fichier.
Pour les couleurs je souhaiterais qu'il clignote jaune et gris.
Le bouton provoque un chargement de divers macros, une fois la fin je souhaiterais qu'il devienne vert avec affichée "Gestion terminée".
J'ai essayé avec userform et des exemples dans le forum ca bug à chaque fois.
J'aimerais pouvoir comprendre et donc si vous pouvez modifier la macro ci-dessous.

Merci bien !


Private Sub CmdDémarrer_Click()
Me.CmdDémarrer.Caption = "Gestion en cours" 'change le texte du bouton
Dim Syn As Workbook
On Error GoTo GestionDesErreurs
Set Syn = ThisWorkbook
With Me.CmdDémarrer
.BackColor = &H8000000F 'défini la couleur du bouton
.Enabled = False
End With
VerifDossier ' recherche des fichiers rupture, réappro et X3
ChargementDesFeuilles Syn ' ouverture, transfert et fermeture des fichiers
Sheets(1).Select
MiseEnAffichageRupEtRéa
RechercheDoublon

Me.CmdDémarrer.Caption = "Gestion terminée !" 'change le texte du bouton

ChgFormatDate
Exit Sub

 

[Moreno076]

l autre bouton enchaine les macros mais si on met ta macro apres celles la ca fonctionne pas

 

[Dudu2]

Écoute, il faut analyser ton code de fond en comble.
Là je n'ai pas le temps.
L'erreur dit que le fichier n'est pas trouvé. Fais en sorte qu'il le soit :! Qu'est-ce que tu veux que je te dises ?
Il a le bon nom ? il est au bon endroit ? Ce fichier n'est PAS chez moi et c'est NORMAL que ça plante si il veut l'ouvrir.

 

[Moreno076]

Ce n est pas grave laisse tomber. Je vais simplement le déplacer ailleurs ce sera plus simple. Merci quand meme

 

[Dudu2]

Tu confonds les feuilles et les fichiers. Là je ne peux rien faire pour toi.