Sauvegarde automatique quelque soit le chemin

[WDAndCo]

Bonjour le Forum

Voici mon problème j'ai un classeur Excel AutoCrus qui est dans le dossier 2013
Ce classeur génère toutes les semaine un autre classeur S01, S02 etc. ses classeurs ce rangent dans un dossier Semaines Crus qui est lui même dans le dossier 2013.

Voici ma question, quel est le code à mettre pour réaliser cela quelque soit la lettre du DD ou le chemin.
Ou comment sauvegarder ce classeur dans le dossier Semaine Crus qui trouve dans le dossier 2013 ou a été ouvert le classeur AutoCrus ?

D'avance merci.

Dominique

 

[tototiti2008]

Re : Sauvegarde automatique quelque soit le chemin

Bonjour WDAndCo,

Thisworkbook.Path te renvoie l'adresse où est enregistré le classeur contenant le code
sur base de ça, il suffira d'ajouter les dossiers "Semaines Crus" et "2013" au chemin obtenu, je suppose

 

[WDAndCo]

Re : Sauvegarde automatique quelque soit le chemin

Bonjour le Forum

Je peux mettre cela ?

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Semaines CRU 2013\CRU SM " & Semaine & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

D'avance merci.
Dominique

 

[Pierrot93]

Re : Sauvegarde automatique quelque soit le chemin

Bonjour,

bah... en testant tu vas vite le savoir.... A voir comment ta variable "semaine" est initialisée...

bonne journée
@+

 

[Orodreth]

Re : Sauvegarde automatique quelque soit le chemin

Bonjour,

De mes vieux souvenirs de l'époque où j'ai travaillé sur la problématique des chemins d'accès, il me semble que tu dois créer le chemin AVANT d'y sauvegarder ton fichier.
Et AVANT de créer le chemin, il faut vérifier qu'il existe.

Vois du côté des instructions Dir, MkDir entre autres ...

Sinon, pour la sauvegarde en elle-même, ton code est bon.

Cordialement,
Orodreth