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