Comment ouvrir un model.xls, à partir de VBA, l’enregistrer sous, fermer lRésolu

Question

Comment ouvrir un model.xls, &#224; partir de VBA, l&#8217;enregistrer sous (ce que l&#8217;on veut&#8230;..xls), fermer le model.xls et ouvrir le nouveau fichier&#8230;xls, qui a ete enregistr&#233; sous.
en fait pour resumer, on veut cr&#233;er un fichier excel a partir d'un model contenant des macros. mais il ne faut pas toucher au model, ce pourquoi on le ferme tt en laissant apparaitre le nouveau.

petite precision, au moment d'enregistrer, il faudrait une boite de dialogue, qui propose d'enregistrer le nouveau fichier sous n'importe quel nom, dans un repertoire predefini...

Meric bcp
si seulement une bonne ame pouvait me donner un coup de main
c'est pas faute de avoir cherch&#233;, je ne trouve que des exemples, qui enregistre une copie, qui prend de la memoire, et qui s'enregistre tjrs sous le meme nom....donc voila

SVP
merci
Alex

cs_darunia · Accepted Answer

Salut,

Pour ouvrir un classeur :

Dim classeur as Workbook

set classeur = GetObject("model.xls")

classeur.SaveAs CheminFichier

Pour obtenir le chemin du fichier, utilise un CommonDialog.
Pour cela, tu dois d'abord cr&#233;er une form.
Ensuite, menu Outils -> Controles supplementaires -> Microsoft Common Dialog

Ajout le composant sur ta form

Appel ton controle CDLG par exemple.

Pour afficher la fenetre enrigstrer

CDLG.ShowSave

Le chemin du fichier sera alors contenu dans CDLG.FileName

[mailto:D@runia D@runia]

flamalex · Answer

merci

Comment ouvrir un model.xls, à partir de VBA, l’enregistrer sous, fermer l

2 réponses

Discussions similaires