chinel
XLDnaute Impliqué
Salut tout le monde, j'ai un souci au niveau d'une macro
un classeur nommé "Planning en cours" une feuille nommée "Planning" cette feuille doit-être sauvegardée.
sub macro ()
Dim Obj As OLEObject
Dim Chemin As String
'Chemin = "C:\" ici pour pour pouvoir tester
Chemin = "C:\Documents and Settings\Manuel Dejong\Mes documents\"
NomFeuille = "Feuil1"
Application.ScreenUpdating = False
Sheets("Planning").Copy
'Suppression des boutons (ActiveX) dans la feuille
For Each Obj In ActiveSheet.OLEObjects
If TypeOf Obj.Object Is MSForms.CommandButton Then Obj.Delete
Next
Application.DisplayAlerts = False
With ActiveWorkbook
.saveas Chemin & "Archive du " & _
Format(Date, "dd mmm"), FileFormat:=xlExcel4
.Close
End With
end sub
cela fonctionne mais j'aurais bien voulu que dans ma sauvegarde les macros soient désactivées et qu'on ne puisse pas voir le bouton de commande (voir exemple) bizarre mai quand j'ouvre ma copie sauvegardée mon fichier original s'ouvre aussi (pas bien ça !)
mais la couleur de fond de mon planning a disparu elle était jaune , les cellules liées ont disparus
pouvez vous m'aider ça commence à prendre forme mon projet !!!
Fichiers attachés
un classeur nommé "Planning en cours" une feuille nommée "Planning" cette feuille doit-être sauvegardée.
sub macro ()
Dim Obj As OLEObject
Dim Chemin As String
'Chemin = "C:\" ici pour pour pouvoir tester
Chemin = "C:\Documents and Settings\Manuel Dejong\Mes documents\"
NomFeuille = "Feuil1"
Application.ScreenUpdating = False
Sheets("Planning").Copy
'Suppression des boutons (ActiveX) dans la feuille
For Each Obj In ActiveSheet.OLEObjects
If TypeOf Obj.Object Is MSForms.CommandButton Then Obj.Delete
Next
Application.DisplayAlerts = False
With ActiveWorkbook
.saveas Chemin & "Archive du " & _
Format(Date, "dd mmm"), FileFormat:=xlExcel4
.Close
End With
end sub
cela fonctionne mais j'aurais bien voulu que dans ma sauvegarde les macros soient désactivées et qu'on ne puisse pas voir le bouton de commande (voir exemple) bizarre mai quand j'ouvre ma copie sauvegardée mon fichier original s'ouvre aussi (pas bien ça !)
mais la couleur de fond de mon planning a disparu elle était jaune , les cellules liées ont disparus
pouvez vous m'aider ça commence à prendre forme mon projet !!!
Fichiers attachés