Bug Micro Marco de 2 lignes!

[Tatiana29]

Bonjour, voici une petite macro assez simple pour copier et renommer un fichier et j'ai
un blocage alors que ma syntaxe me semblait bonne!

Dim chemin As String 'adresse fichier
Dim Fichier_calcul As String

Fichier_calcul = "Exemple grille.xls"
chemin = "C:\Documents and Settings\charles.thubert\Bureau\A_Controle interne\Fichier Calcul Prev Decret\Patrimoine Majeur\"

Workbooks(Fichier_calcul).Activate
Call FileCopy(chemin & Fichier_calcul, chemin & "Nouveau_nom.xls")

 

[Guest]

Re : Bug Micro Marco de 2 lignes!

Bonjour,

Le fichier doit être fermé!
puisque c'est un fichier excel ouvert tu peux utiliser la méthode

 WorkBooks(Fichier_Calcul).SaveCopyAs .........

A+

 

[Tatiana29]

Re : Bug Micro Marco de 2 lignes!

Ca marche!
Un grand merci hasco.

Tatiana