XL 2013 RESOLU selection dure a enlever

[grisan29]

bonsoir a vous tous et toutes
j'ai récupéré un petit fichier de facturation qui fonctionne bien mais dans un des modules il y a un code avec des "sélection"
j'ai fait plusieurs essai et boum ca par a chaque en bug car il manque le fichier
je ne vous demande pas de faire tous le code mais juste un morceau pour que je sache le faire pour les autres morceaux et codes du classeur

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

 

[Dranreb]

Bonsoir.
Elle renvoie quoi, à votre avis, la méthode Select d'un Shape ?
Un objet ? Un Type défini par l'utilisateur ? Ou bien vous croyez qu'un With avec autre chose peut servir à quelque chose ? Là de toute façon ils ne servent à rien: aucune expression ne commence jamais par un point entre les With et les End With correspondants.
Chez moi un MsgBox TypeName(ActiveSheet.Shapes("Bouton 1").Select) affiche "Empty".
Par contre en enlevant .Select, MsgBox TypeName(ActiveSheet.Shapes("Bouton 1")) affiche bien "Shape".

 

[grisan29]

bonjour dranreb
merci de ta réponse, j'ai modifié le code en rajoutant le manque depuis la sub

 

[Paf]

Bonjour grisan29, Dranreb,

j'ai fait plusieurs essai et boum ca par a chaque en bug car il manque le fichier

Pas compris où est le problème. Quelles modifications sont tentées ? Quel message d'erreur ? Est ce le manque de fichier ?

Par ailleurs, avec If ActiveSheet.Name = "MODELE" Then , on teste le nom de la feuille active, si c'est "MODELE", on initialise les variables chemin et nomfichier. puis on continue le code.
Mais si la feuille active n'est pas "MODELE", on n'initialise rien, mais on continue le code quand même !?

A+

 

[grisan29]

bonjour Paf, Dranreb et le forum
je vous joint le classeur complet, c'est dans le module "paramètres" que sont les codes avec des selection

 

[grisan29]

bonjour a tous , paf, dranreb
tout compte fait d'après vos réflexion très enrichissantes je vais colre le sujet car la conception même de ce classeur
est a revoir