copier feuille sans boutons

[robert]

Bonjour,

J'ai actuellement une macro qui me copie dans un autre classeur une feuille excel dun classeur differents pour diminuer la taille du fichier lors de lenregistrement

Sub Enregis()

Dim NomFic As String
NomFic = Range('A24').Value
Sheets('Facture').Copy
ActiveWorkbook.SaveAs Filename:=NomFic
End Sub

Dans cette meme feuille il ya des boutons jaimerai copié ma feuille sans les boutons juste le texte et la mise en forme.

D'avance merci

 

[MichelXld]

bonsoir Robert

pour supprimer les boutons dans la feuille copiée , tu peux essayer :

Sub EnregistreSansBoutons()
Dim NomFic As String
Dim oleObj As OLEObject

NomFic = Range('A24').Value
Sheets('Facture').Copy

For Each oleObj In ActiveSheet.OLEObjects
If oleObj.progID = 'Forms.CommandButton.1' Then oleObj.Delete
Next oleObj

ActiveWorkbook.SaveAs Filename:=NomFic
End Sub

bonne soiree
MichelXld

 

[julos08]

merci michel mai ta macro ne marche que pour le bouton 1 moi je voudrai tous les boutons en meme temps.

 

[MichelXld]

rebonsoir

chez moi tous les boutons ( oleObject ) de la feuille sont supprimés en meme temps

chez toi , de quel type de boutons s'agit 'il ?



bonne soirée
MichelXld

 

[julos08]

re
ce sont les boutons creer avec la barres d'outil formulaire

 

[MichelXld]

rebonsoir

dans ce cas tu peux tester


Dim Obj As Object
For Each Obj In ActiveSheet.DrawingObjects
Obj.Delete ' suppression des boutons , checkboxs..etc ...
Next Obj



bonne soiree
MichelXld

 

[julos08]

Michel la macro ne marche pas elle se bloque a la ligne obj.delete

Sub EnregistreSansBoutons()
Dim NomFic As String
Dim Obj As Object

NomFic = Range('A24').Value
Sheets('Facture').Copy

For Each Obj In ActiveSheet.DrawingObjects
Obj.Delete ' suppression des boutons , checkboxs..etc ...
Next Obj



ActiveWorkbook.SaveAs Filename:=NomFic
End Sub

 

[MichelXld]

bonsoir Julos08

la meilleure solution serait que tu places sur le forum un exemple zippé ( moins de 50 ko et sans données confidentielles ) pour regarder tout çà de pret


bonne soiree
MichelXld

 

[julos08]

Michel voici mon fichier.
quand tu clic sur enregistrer sa plante [file name=FACTURE.zip size=36871]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FACTURE.zip[/file]

 

[julos08]

dans le fichier pour la macro enregistrer jai oublier le end sub fai attention

 

[MichelXld]

rebonsoir Julos08

tu peux tester cette adaptation dans le classeur
( testé avec Excel2002 )

Sub EnregistreSansBoutons()
Dim NomFic As String
Dim Obj As Shape

NomFic = Range('A24').Value
Sheets('Facture').Copy

For Each Obj In ActiveSheet.Shapes
If Obj.Type = msoFormControl Then Obj.Delete
Next Obj
End Sub

bonne soiree
MichelXld

 

[julos08]

Merci michel ca marche impecable

 

[François l'aîné]

Bonjour julos08

Ayant eu le même problème, je me permets de te soumettre ma solution qui n'enregistre que la partie de la feuille qui m'intéresse (en l'occurence, le devis). De plus pour pouvoir faire plusieurs devis à la suite la macro va vérifier le numéro de dernier devis et propose le numéro suivant.

Espérant que cela te sera utile.

Cordialement.

François.

 

[François l'aîné]

Oups

oublié la pièce jointe. La voila. [file name=Save_mini.zip size=16968]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Save_mini.zip[/file]