Automatiser copier valeur et sauver sous un nv nom

[FanExcel]

Bonjour,

J'ai developpé un classeur "TDB.xls" qui contient des feuilles bases de données bourrées de formules de calcul et de liaisons: Budget, réalisé, reprévision, année antérieure pour plusieurs indicateurs. Il contient également des feuilles TDB qui comparent ces données grace à l'usage d'une boite de dialogue qui permet de choisir le mois. Il y a également des graphiques dynamiques par magasin.

Bref, le classeur fait .... 5MO....et lorsqu'on choisi un mois ou un magasin dans une combo, il recalcule pendant ...10 mn.

Avant de le diffuser, je souhaitereais automatiser le copier/valeur des feuilles base de données et uns sauvegarde du fichier obtenu sous TDB_Dif.xls afin de ne pas risquer de détruire l'outil.


Je l'ai fait en m'enregistrant mais ce n'est pas au point car le classeur qui contient la macro est le TDB_Dif.xls et non l'original dans lequel je veux la lancer.

Impossible d'envoyer un exemple car trop gros.
Mais si:

Feuilles où faire le copierr valeur sont BCA, RCA, TCA, ACA par exemple
Classeur original est TDB CA.xls
Classeur crée avec le copier valeur est TDB_Dif.xls
Répertoire est : C:\PUBLIC\2009\TDB

Est ce suffisant comme info?
D'avance merci

Bien cordialement,

 

[Robert]

Re : Automatiser copier valeur et sauver sous un nv nom

Bonjour FanExcel, bonjour le forum,

Je te propose cette macro à placer dans le classeur TBD CA.xls :

Sub Macro1()
Dim nc As String 'déclare la variable nc (Nom du Classeur)
 
nc = "C:\PUBLIC\2009\TDB\TDB_Dif.xls" 'définit la variable nc
Sheets(Array("BCA", "RCA", "TCA", "ACA")).Copy 'copie les onglets dans un nouveau classeur
ActiveWorkbook.SaveAs nc 'sauve le classeur
End Sub

 

[FanExcel]

Re : Automatiser copier valeur et sauver sous un nv nom

Bonjour Robert,

Merci beaucoup
C'est OK

Bonne journée ainsi qu'à tous les forumeurs !