En enregistrement sous mypath -1 répertoire..

[jpmasclet]

Bonjour à tous,

Vous allez me dire que mon titre n'est pas explicite et vous avez raison mais j'ia pas trouvé mieux ....

J'ai un souci qui est que je veux faire un enregistrer sous : sous le meme repertoire que le classeur en cours - 1 répertoire en arriere.

En faite mon fichier en cours se trouve dans :

X:/RepertoireDepartement/RepertoireService/RepertoireEquipe/Stats/

Je voudrais faire une sauvegarde dans : X:/RepertoireDepartement/RepertoireService/RepertoireEquipe/Sauvegarde/


Je ne peuxp as mettre reelement les noms de répertoire car j'ia des variables d'equipes.


Merci par avance si vous avez des idées !!

 

[pierrejean]

Re : En enregistrement sous mypath -1 répertoire..

bonjour jpmasclet
A tester pour avoir le repertoire de destination:

mypath = ThisWorkbook.Path
x = InStrRev(mypath, "/")
deb = Left(mypath, x)
rep_dest = deb & "Sauvegarde/"

 

[job75]

Re : En enregistrement sous mypath -1 répertoire..

Bonjour,

Si le dossier dans lequel se trouve le classeur en cours s'appelle bien Stats, enregistrer dans le dossier Sauvegarde avec le chemin :

chemin = Replace(ThisWorkbook.Path, "Stats", "Sauvegarde\")

ou si ce classeur est le classeur actif :

chemin = Replace(ActiveWorkbook.Path, "Stats", "Sauvegarde\")

Edit : bonjour pierrejean, ton code est beaucoup mieux si le nom du dossier Stats est modifié (mais remplace quand même / par \)

A+

 

[smotty]

Re : En enregistrement sous mypath -1 répertoire..

bonjour à tous,

Une idée :

Dim MyP As String
Dim TabM
Dim i As Integer

MyP = ActiveWorkbook.Path

TabM = Split(MyP, "\")

i = UBound(TabM)

ReDim Preserve TabM(i - 1)

MyP = Join(TabM, "\") & "\Sauvegarde\" & activeworkbook.name


activeworkbook.saveas filename:=MyP


A+

smotty

 

[smotty]

Re : En enregistrement sous mypath -1 répertoire..

Bonjour Pierrejean, Job75,

Je suis un peu à la bourre...

 

[tototiti2008]

Re : En enregistrement sous mypath -1 répertoire..

Bonjour à tous,

encore une autre idée :

ThisWorkbook.SaveAs ThisWorkbook.Path & "\..\Sauvegarde\toto.xls"

 

[jpmasclet]

Re : En enregistrement sous mypath -1 répertoire..

Un grand merci à tous, pour info je me suis servi du code de PierreJean, comme toujours ça fonctionne sans souci , un grand merci.

Pour ma connaissance perso ,PierreJean peux tu m'expliquer le InStrRev, chose que je n'ai pas compris.

grand merci !!!

 

[pierrejean]

Re : En enregistrement sous mypath -1 répertoire..

Re

Le InstrRev fait la même chose que le Instr (donner la place du second parametre dans le premier ) mais en commençant par la fin