Discussion :

[ogho4326]

Est-il possible de créer un nouveau classeur via VBA ?

Dans une macro, j'enregistre un fichier avec SaveAs. Ce qui crée un double et clot le fichier d'origine. J'aimerai que ce fichier d'origine puisse s'enregistrer dans un dossier "Archive" que la macro créerait à cette fin et qu'elle placerait dans le dosssier où l'on travaille.

Est-ce du domaine du possible ou n'est-ce qu'un rève ?

[fred65200]

bonjour,
tu peux déplacer ton classeur dans archive

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim OldName as string, NewName as string

OldName = "C:\MONREP\ANCFICH":NewName = "C:\VOTREREP\NOUVFICH"
Name OldName As NewName    ' Déplace et renomme le fichier.

cordialement

[ogho4326]

J'ai du mal m'exprimer. Je vais essayer d'être plus clair.
Ce que je voudrais que ma macro réalise :

1. Action 1
Qu'elle vérifie s'il existe dans le dossier de travail, un dossier nommé "Archive"
* si oui, pas d'action
* si non, qu'elle crée un dossier "Archive" dans le dossier de travail.

2. Action 2
Qu'elle enregistre mon fichier dans ce dossier Archive.
Ca, je sais le faire en utilisant SaveAs et définissant
* le nom du fichier sous lequel j'enregistre le fichier d'origine
* le chemin à utiliser.

Mais comme ce chemin comportera l'indication de "Archive", il faut auparavant réaliser l'action 1. Et ça, je ne sais pas faire !
Merci de me dire si c'est réalisable.

[PPz78]

La solution réside dans l'utilisation de l'instruction mkdir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
NewDir = "iMac HD:Users:Pierre:Desktop:Dossier_PPz"
On Error Resume Next
MkDir NewDir
 
NewName = NewDir & ":" & "Classeur3.xls"
ActiveWorkbook.SaveAs FileName:=NewName

Dans l'exemple ci dessus les chemins vers les fichiers sont écrits conformément à l'usage sur Mac (Unix), vous ne devriez pas avoir de difficultés pour faire la transformation.

le On Error Resume Next permet de ne pas avoir d'erreur si le répertoire existe déjà.

A+ en cas de Pb