Enregistrement feuille de classeur sans les formules

[Sidah.med]

Bonsoir le forum 2 …
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

 

[job75]

Re : Enregistrement feuille de classeur sans les formules

Bonsoir Sidah.med,

Voyez cette macro :

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

A+

 

[Sidah.med]

Re : Enregistrement feuille de classeur sans les formules

Bonsoir maitre JOB😀
Merci Infiniment maitre JOB, ton code fonctionne très bien tu m’as sauvé la vie..
BONNE NUIT EST LA PROCHAINE…
Nb si vous permettez que je poste ta réponse sur un autre forum pour les informer que mon pblm est résolue???😕

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

 

[Sidah.med]

Re : Enregistrement feuille de classeur sans les formules

Maitre JOB🙄.. j'attend tjr votre autorisation 😕????

 

[job75]

Re : Enregistrement feuille de classeur sans les formules

Re,

Merci pour la note d'appréciation 🙂

Nb si vous permettez que je poste ta réponse sur un autre forum pour les informer que mon pblm est résolue???😕

Pas de problème ainsi cela aidera plus de monde.

A+