Macro Excel

[POTIER]

Bonjour,

Je souhaite enregister une copie de mon fichier original à l'aide d'une macro. Le nom de mon fichier correspond à une cellule excel

Cordialement

 

[Bebere]

bonjour

à mettre dans ub module vba

'Enregistrement d'un fichier :
'Test si le répertoire de destination existe sinon le crée
'(adapté de J Walkenbach,
'Vasant Nanavati, microsoft.public.excel.programming)

Sub SaveInMyFolder()
Dim x As String, strPath As String

On Error Resume Next
'adapter ligne suivante ex : strPath = sheets('NomSeet').range('A1').value
strPath = 'c:\\mes documents\\financial toolkit'
x = GetAttr(strPath) And 0
If Err <> 0 Then
MkDir strPath
End If
ActiveWorkbook.SaveAs Filename:=strPath & '\\' & ActiveWorkbook.Name

End Sub

à bientôt

 

[2passage]

Bonjour,

On peut également utiliser ActiveWorkbook.SaveCopyAs qui ne modifie pas le nom courant du fichier mais enregistre vraiment une copie.

A+

 

[Robert]

Bonjour Potier, bonjour le forum,

La macro ci-dessous enregistre une copie de ton fichier dans le même répertoire que l'actuel en le nommant 'non_origine copie.xls'. Si par exemple ton fichier s'apelle test.xls et il est dans C:\\mes classeurs, la macro fera une copie nommée test copie.xls dans le même dossier.

Sub Macro1()
Dim chem As String 'déclare la variable NF (Nom de Fichier)
NF = ThisWorkbook.FullName 'définit la variable NF (nom complet avec chemin d'accès)
ThisWorkbook.SaveAs Mid(NF, 1, Len(NF) - 4) & ' copie.xls' 'enregistre sous 'non_origine copie.xls'
End Sub

Édition

Hou la ! pas frais... Bonjour Bebere, 2passage.

Message édité par: Robert, à: 24/06/2005 14:59