copier feuille sans boutons

robert · 7 Mars 2005

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 · 7 Mars 2005

bonsoir Robert

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

Code:

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 · 7 Mars 2005

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

MichelXld · 7 Mars 2005

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 · 7 Mars 2005

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

MichelXld · 7 Mars 2005

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 · 8 Mars 2005

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 · 8 Mars 2005

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 · 8 Mars 2005

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 · 8 Mars 2005

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

MichelXld · 8 Mars 2005

rebonsoir Julos08

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

Code:

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 · 8 Mars 2005

Merci michel ca marche impecable

François l'aîné · 9 Mars 2005

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é · 9 Mars 2005

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]

copier feuille sans boutons

robert

Guest

MichelXld

XLDnaute Barbatruc

julos08

Guest

MichelXld

XLDnaute Barbatruc

julos08

Guest

MichelXld

XLDnaute Barbatruc

julos08

Guest

MichelXld

XLDnaute Barbatruc

julos08

Guest

Pièces jointes

julos08

Guest

MichelXld

XLDnaute Barbatruc

julos08

Guest

François l'aîné

Guest

François l'aîné

Guest

Pièces jointes

Discussions similaires