grisan29
XLDnaute Accro
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
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
Code:
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
Dernière édition: