Code de "eriiic" a modifier

bonjour a vous tous et toutes

dans l’excellent fichier que Eriiic a mis ici pour Bearn64 https://forum.excel-pratique.com/excel/evenements-dans-plusieurs-fichiers-excel-t49336.html

comment puis je faire pour oter les sélection. qui sont le code archiver et facturation

sans corrompre le fonctionnement du fichier afin que Louvine 45 puisse avoir un fichier un plus performant

dans son post page 2 du 26 Nov 2016, 16:50

https://forum.excel-pratique.com/excel/devis-facture-automatique-suivi-t84776-10.html

et voici le code de validation par exemple

Sub Archiver()
          Dim extension As String, msg As String, title As String, Response As String, Reference As String
          Dim style As Integer
          Application.ScreenUpdating = True    'False
          ThisWorkbook.ActiveSheet.Copy
          ActiveSheet.UsedRange.Activate
          ActiveSheet.Unprotect
          'ActiveSheet.UsedRange.Cells.Value = ActiveSheet.UsedRange.Cells.Value

          extension = ".xlsx"

          If ActiveSheet.Name = "MODELE" Then
                    chemin = ThisWorkbook.Path & "\DEVIS\"
                    nomfichier = ActiveSheet.Range("G12") & Format(Now(), "-mmmm" & "-yyyy") & "-D" & Format(ActiveSheet.Range("K4"), "0000") & extension
          End If

          MsgBox "Votre sauvegarde porte la référence : " & nomfichier
          ActiveSheet.Unprotect
          With ActiveWorkbook
                    With ActiveSheet.Shapes("Bouton 2").Select
                              Selection.Characters.Text = "Creer une Facture"
                              Selection.OnAction = "Facturation"
                    End With
                    With ActiveSheet.Shapes("Bouton 3").Select
                              Selection.Characters.Text = "Sauver modification"
                              Selection.OnAction = "RecapDevis"
                    End With
                    With ActiveSheet.Shapes("Bouton 4").Select
                              Selection.Characters.Text = "QUITTER"
                              Selection.OnAction = "Quitter"
                    End With
                    With ActiveSheet.Shapes("Bouton 5").Select
                              Selection.Font.ColorIndex = 15
                              Selection.Characters.Text = ""
                              Selection.OnAction = ""
                    End With

                    With ActiveSheet.Shapes("Bouton 6").Select
                              Selection.Characters.Text = "IMPRIMER"
                              Selection.OnAction = "Imprimer"
                    End With

                    With ActiveSheet.Shapes("Bouton 7").Select
                              Selection.Characters.Text = "PDF"
                              Selection.OnAction = "PDF"
                    End With
                    With ActiveSheet.Shapes("Bouton 8").Select
                              Selection.Font.ColorIndex = 15
                              Selection.Characters.Text = ""
                              Selection.OnAction = ""
                    End With

                    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
                    .ActiveSheet.Name = "Devis"
                    .SaveAs FileName:=chemin & nomfichier
                    .Close
                    Call RecapDevis
                    Call Ajouter
          End With
End Sub

je ne suis pas sur que ce soit ériiic qui es fait cela

Bonjour,

Je suis allé voir le topic., Tout ce que j'ai fait au fichier c'est lui ajouter une formule.

J'ai été voir l'autre fil aussi. Si elle a excel 64 bits il ne connait pas les contrôles ActiveX qui n'existent qu'en 32 bits.

Il faut oublier tout fichier les utilisant.

eric

bonjour eriiic

merci de ta réponse ca ne te gène pas que je fasse lien avec les exemples que tu donnes a d'autres

pour le topic je lui remis ton fichier avec un code dans un module pour la compatibilité 64 et 32

je clos le post

Si tu veux mais ce n'est pas mon fichier. Aucune ligne de macro n'est de moi, pas la peine de me lister.

eric