enregistrer devis sous nom d'une cellule Résolu/Fermé

Question

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 !!!

voyageur59 · Answer

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...

belette19720 · Answer

OK ça marche, mais je voudrai que le nouveau fichier soit de format xls et non pas xlt. Merci

voyageur59 · Answer

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!

Enregistrer devis sous nom d'une cellule

3 réponses

Discussions similaires