Bouton plus relié à sa macro lors d'un enregistrer sous
Bonsoir le forum,
J'utilise un fichier depuis plus d'un an, il est assez lourd (18mega...) donc je ne peux pas le joindre. Chaque fin de mois je crée le fichier du mois suivant via une macro. Sans souci jusqu'à présent.
Mais depuis une semaine j'ai fait des petites modifs :
- changer les boutons macros gris par des rectangles (formes dans excel) que j'ai relié aux macros
- protéger la structure du classeur
- ajouté des macro supplémentaires (qui supprime des feuilles et en renomme une)
en effet tous les boutons rectangle de la feuille "Fiche d'informations" ne sont plus relié à des macros !! par contre les macros sont bien dans leur module (ouf!).
auriez vous une idée ?
Sub Créer_mois_suivant()
Dim ret As Integer
ret = MsgBox("Voulez vous créer le fichier de saisie/facturation restauration du mois suivant ? (La création du fichier peut prendre une minute)?", vbYesNo)
If ret = vbNo Then
Exit Sub
End If
ActiveWorkbook.Save
'enregistre le mois en cours
Dim mydate As Date
mydate = Worksheets("Menus du mois").Range("A1") + 31
mymonth = Format(mydate, "mmmm")
myfile = mymonth & " " & Year(mydate) & " Saisie et Facturation Restauration"
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & myfile
ActiveWorkbook.Unprotect ("proutprout")
If Year(mydate) > Year(Worksheets("Menus du mois").Range("A1")) Then
supprfeuilles_lastyear
End If
Application.DisplayAlerts = False
Sheets(Sheets("Fiche d'informations").Range("L1") & " - Facturation").Select
Sheets(Sheets("Fiche d'informations").Range("L1") & " - Facturation").Copy Before:=Sheets("Fin fact")
Dim nummois As Integer
If (Range("A1") + 1) > 12 Then
nummois = "1"
Else: nummois = (Range("A1") + 1)
End If
ActiveSheet.Name = (nummois & " - Facturation")
Application.DisplayAlerts = True
et encore beaucoup de lignes...
Merci pout toute aide !
Vincent
Re bonjour,
En y repensant, ma question est la suivante : il y a t-il une différence entre les boutons active X et n'importe quelle forme ? Cela pourrait-il expliquer mon pbm ?
Bonjour
Pour relier correctement une forme à une macro, il faut
• Sélectionner cette forme en cliquant dessus : clic gauche
• Si cette forme est une zone de texte, s’assurer que la forme est bien sélectionnée et non le texte qui est à l’intérieur. Au besoin refaire un clic sur le bord de la forme
• Faire un clic droit sur le bord de la forme, dans la zone hachurée
• Cliquer sur « Affecter une macro » dans la fenêtre qui s’ouvre
• Cliquer sur la macro qui doit être associée à cette forme
• Cliquer sur OK
Et tu ne devrais plus avoir de problème.
Bonne chance !
Bonjour
Pour relier correctement une forme à une macro, il faut
• Sélectionner cette forme en cliquant dessus : clic gauche
• Si cette forme est une zone de texte, s’assurer que la forme est bien sélectionnée et non le texte qui est à l’intérieur. Au besoin refaire un clic sur le bord de la forme
• Faire un clic droit sur le bord de la forme, dans la zone hachurée
• Cliquer sur « Affecter une macro » dans la fenêtre qui s’ouvre
• Cliquer sur la macro qui doit être associée à cette forme
• Cliquer sur OK
Et tu ne devrais plus avoir de problème.
Bonne chance !