Allégeons, allégeons

[François]

Bonjour à toutes et à tous

Je vous avez dit que je reviendrai. Voici ma question :

Dans une petite appli générant des devis, comment n'archiver que le résultat (la feuille du devis), sans dupliquer à l'infini par "enregistrer sous"
l'appli avec ses formulaires et son code sous des noms de clients différents.

Merci à vous de me fournir quelques pistes.

Bon dimanche à toutes et à tous.

 

[léa]

Bonjour François,

Je crois que la question a déjà été posée et il me semble, si ma mémoire ne me fait pas défaut, qu'il fut conseillé de copier (uniquement) la feuille dans un autre classeur que tu sauverais sous le nom du client concerné
Fais une petite recherche dans le Forum si tu veux de plus amples renseignements sur cette solution
Bon dimanche
Léa

 

[François]

Bonjour Léa

Merci, je vais chercher.

Bon dimanche

François.

 

[Temjeh]

Bonjour le forum
Salut Francois

Egalement comme léa je propose un save de devis seul:

Sub Enregistre_1_Feuille()
Sheets("devis").Select
ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show
End Sub


A++

Temjeh

 

[Temjeh]

Rebonjour aussi avec inputbox

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


Temjeh

 

[Temjeh]

Oups!!

Ligne ChDrive "c" ....inutile

A+++

 

[François]

Bonsoir Temjeh

Sur les conseils de Léa j'ai fait des recherches sur le Forum et j' ai trouvé par ailleurs ce que tu recommandais à une autre personne avec le code que tu me rappelle aimablement ici.

Je me sers de Application.InputBox de ton précédent exemple car il permet de différencier "Annuler" de "" (pas de réponse).

Merci pour votre aide et bonne soirée.

François