"Dégraisser" un classeur

[François l'aîné]

Bonsoir à toutes et à tous

Dans une application générant des devis, je souhaite n'enregistrer que la feuille devis, sans USF ni code, pour alléger le stockage.

Ayant déja posé la question, on m'avait orienté sur ce bout de code :

Sub Enregistre_Sous()
Nom = InputBox('Donnez le nom du client!')
If Nom = '' Then Exit Sub
ChDir 'C:\\Documents andSettings\\Claude\\Bureau' 'Indiquez le répertoire
Sheets('devis').Select
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=(Nom)
End Sub

Or, le triturant depuis un moment, j'enregistre le classeur entier.

Un petit coup de pouce serait le bienvenu.

Merci par avance à toutes et à tous et bon dimanche.

François.

 

[CBernardT]

Bonsoir François l'ainé,

Essayes cette macro qui crée un classeur avec seulement la feuille 'Devis' et qui l'enregistre dans le même répertoire que le classeur source.

Sub Enregistre_Sous()
Dim Nom As String

Nom = InputBox('Donnez le nom du client!')
If Nom = '' Then Exit Sub
Sheets('devis').Copy
ActiveWorkbook.SaveAs Filename:=Nom
End Sub

Cordialement

CBernardT

 

[François l'aîné]

Bonjour CBernardT

Je te remercie pour ta réponse. J'ai testé : ça marche. Avec quelques adaptations cela devrait faire l'affaire.

Merci et bon dimanche.

François.

 

[François l'aîné]

Bonsoir à toutes et à tous

Si certains ont eu le même souci, voici, en pièce jointe, ma solution avec de plus le recherche du numéro de fichier suivant (de la forme 'AAMMnn_nom du client').

Bonne soirée à toutes et à tous.

François. [file name=Saveas_mini.zip size=16811]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Saveas_mini.zip[/file]