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

[Résolu]
Signaler
Messages postés
29
Date d'inscription
jeudi 9 novembre 2000
Statut
Membre
Dernière intervention
21 avril 2005
-
Messages postés
29
Date d'inscription
jeudi 9 novembre 2000
Statut
Membre
Dernière intervention
21 avril 2005
-
Comment ouvrir un model.xls, à partir de VBA, l’enregistrer sous (ce que l’on veut…..xls), fermer le model.xls et ouvrir le nouveau fichier…xls, qui a ete enregistré sous.
en fait pour resumer, on veut cré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é, 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

2 réponses

Messages postés
354
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
24 mars 2011
2
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é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]
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Messages postés
29
Date d'inscription
jeudi 9 novembre 2000
Statut
Membre
Dernière intervention
21 avril 2005

merci