F
François l'aîné
Guest
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.
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.