Sauvegarde Classeur Dans Dossier

[whooki]

Bonjour à tous.

Je voudrais créer un dossier sous un nom de cellule EN A1 par exemple, à partir d’un classeur nommé classeur1.xls ; sauvegarder ce classeur dans c:\client. Ce qui donnerai c:\client\a1\ classeur1.xls. Jusqu’ici je pourrais me débrouiller avec les exemples déjà présents sur le forum en utilisant la fonction mkdir. Ma question est en faite la suivante, quel code utiliser si le dossier c:\client\ a1 est déjà crée afin que mon classeur soit quand même sauvegardé dedans.
Merci encore de vos réponses.

 

[MichelXld]

Re : Sauvegarde Classeur Dans Dossier

bonjour

cet exemple permet de vérifier si un répertoir existe déja

Dim Chemin As String

Chemin = "C:\Documents and Settings\mimi\excel"

If Dir(Chemin, vbDirectory) > "" Then
    MsgBox "le dossier '" & Chemin & "' existe"
    Else
    MsgBox "le dossier '" & Chemin & "' n'existe pas"
End If

bon apres midi
MichelXld