Enregistrer devis sous nom d'une cellule [Résolu/Fermé]

Messages postés
10
Date d'inscription
lundi 10 mars 2008
Statut
Membre
Dernière intervention
17 mars 2008
- - Dernière réponse : belette19720
Messages postés
10
Date d'inscription
lundi 10 mars 2008
Statut
Membre
Dernière intervention
17 mars 2008
- 16 mars 2008 à 17:08
Bonjour,
je débute en vba et je cale. J'ai un fichier modèle de devis C:\Users\sophie\AppData\Roaming\Microsoft\Modèles\devis chris et je voudrai que lorsque j'ouvre un nouveau classeur à partir de ce modèle que je puisse le sauvegarder sous le nom d'une cellule de ce classeur (b10) dans un autre fichier C:\Users\sophie\Documents\DEVIS_FACTURE CHRIS\DEVIS. Pour compliquer : à la sauvegarde je souhaite qu'un n° de devis (dans la cellule D6 nommée numero_devis) soit automatiquement incrémenté. MERCI DE VOS RÉPONSES, à force de chercher je ne sais plus où j'en suis !!!
Afficher la suite 

3 réponses

Messages postés
1112
Date d'inscription
vendredi 7 décembre 2007
Statut
Membre
Dernière intervention
22 août 2009
121
0
Merci
Bonjour,


ChDir "C:\le_dossier_par_defaut"
ActiveWorkbook.SaveAs Filename:= _
range("b2").value, _
FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False


Bien sur "range("b2")" peut aussi être dans une autre feuille de calcul... sheets(X).range("b2") par exemple.

Après avec "ActiveWorkbook.SaveAs" on peut toujours adapter les méthodes qui lui sont associées...
Messages postés
10
Date d'inscription
lundi 10 mars 2008
Statut
Membre
Dernière intervention
17 mars 2008
0
Merci
OK ça marche, mais je voudrai que le nouveau fichier soit de format xls et non pas xlt. Merci
belette19720
Messages postés
10
Date d'inscription
lundi 10 mars 2008
Statut
Membre
Dernière intervention
17 mars 2008
-
en fait entre temps j'ai trouvé. merci de votre attention. Je voudrai maintenant que seule la feuille devis soit enregistrer tout en conservant les données qui ont été établies à l'aide de recherchev et macro sur les autres onglets (client, désignation, tva....). c sympa d'aider les gens comme ça.
Messages postés
1112
Date d'inscription
vendredi 7 décembre 2007
Statut
Membre
Dernière intervention
22 août 2009
121
0
Merci
Re-

Pour le paramètre fileformat:

FileFormat:=xlNormal

pour enregistrer en XLS

et FileFormat:=xlTemplate pour enregistrer en XLT.

_____________________

Lorsque vous ne savez pas comment fairer quelques chose (formater des cellules, copier coller imprimer.....) une bonne méthode est de vous rendre dans les "outils", dans "macro", enregistrer une "nouvelle macro".

Ensuite faite manuellement ce que vous désirez faire: "enregistrer sous", choix du format...

Ceci fait, arrêtez l'enregistrement de la macro, retournez dans les "outils", et ouvrez "Visual Basic Editor", recherchez dans les modules la macro qui vient d'être enregistrée automatiquement.

Regardez alors comment Excel s'y est pris pour faire cette manipulation.

Une fois compris adaptez là a votre sauce!