Enregistrement d’une seule feuille de classeur sans les form

[sidah.med]

Bonsoir le forum…
Question : sur le forum j’ai trouvé une macro d’enregistrement d’une feuille achevée par DJ en 06/01/2012 et je l’ai ajusté selon mon besoin dans un classeur volumineux et ça fonctionne très bien..Mais mon préoccupé chaque fois je lance cette macro elle fait une copie complète du classeur volumineux alors est ce que il ya une possibilité d’Enregistrer seulement la feuille désignée ( text seulement sans les formules) et sans les autres feuille .
Merci
Ci-joint le code VBA
Sub Enregistrement_facture()
ChDir "C:\Documents and Settings\FACTURE\"
ActiveWorkbook.SaveAs Filename:=Range("O6"), ReadOnlyRecommended:=False
ActiveSheet.Shapes("button 2").Delete
ActiveWorkbook.Save
End Sub

On fait faire et on ne c’est pas faire
Appréciation : 0/5

[sidah.med]

Bonsoir le forum
s'il nya pas de reponse.... je doi poste sur un autre forum .... c'est tres urgent
merci
On fait faire et on ne c’est pas faire
Appréciation : -1/5

[Mytå]

Salut le forum

Tu en fais depuis le début du multipostage, tu n'as qu'à continuer.

Et ta remarque Appréciation : -1/5 ne va pas nous inciter à te répondre.

Et hop le code de JOB va apparaitre

Mytå

[sidah.med]

Bonsoir forum ; bonsoir MYTA..
ET COMME ON A DIT HIER " Le crosspostage peut être utile si le message peut intéresser plusieurs publics"
pour cette raison j'informe le forum que mon pblm est resolu dans l'autre forum par MAITRE JOB.
CI JOINT LE CODE:
----------------------------------------------------
Sub Enregistrement_facture()
Dim F As Worksheet
Set F = ActiveSheet
F.Copy 'copie dans un nouveau document
ActiveSheet.UsedRange = F.UsedRange.Value
On Error Resume Next 'si le nom du bouton n'est pas correct...
ActiveSheet.Shapes("button 1").Delete
Application.DisplayAlerts = False 'si le fichier est déjà créé
On Error Resume Next 'si en plus le fichier est ouvert
ActiveWorkbook.SaveAs "C:\Documents and Settings\FACTURE\" & Range("O6")
If Err Then MsgBox "Enregistrement impossible." & vbLf & _
"Vérifiez que le fichier '" & Range("O6") & "' n'est pas ouvert..."
ActiveWorkbook.Close 'facultatif
End Sub
-----------------------------------------------------
On fait faire et on ne c’est pas faire
Appréciation : 6/5
Merci pour tous le monde

et MERCI MYTA et bonne nuit a 2m1