ThisWorkbook.Path sur un réseau

[christophe90]

Bonjour le forum,


J’utilise la fonction : ThisWorkbook.Path pour sauvegarder un fichier dans le même dossier que celui que je traite.
répertoire = ThisWorkbook.Path & "\Répertoire de stockage\"


Mon soucis est que cette commande marche uniquement lorsque je travail sur mon disque dur. Au travail, je travaille sur un réseau qui se nomme P est lorsque j’utilise cette commande ca me dirige automatiquement vers « mes documents » sur mon disque dur.

Est – ce que vous connaissez la commande qui me permettra de sauvegarder mon dossier sur un réseau P :

De plus, j’aimerais avoir en cellule C2, une formule qui me permette de sauvegarder mon fichier sous un nom différent à chaque fois. Avec la fonction : maintenant() qui me conviendrait à merveille, je n’arrive pas car elle contient des symbole / et : qui ne peuvent être utilisé pour enregistrer un dossier et ce même si je change le format de ma cellule ; Avez-vous une solution ??

nom = Range("C24")
numéro = Range("C2").Value
nomfeuille = "Devis simplifié (2)"
répertoire = ThisWorkbook.Path & "\Répertoire de stockage\"
Set fs = CreateObject("scripting.filesystemobject")
If fs.folderexists(répertoire) = False Then
répertoire = ThisWorkbook.Path
End If

Merci d’avance
Cordialement
Christophe

 

[PascalXLD]

Re : ThisWorkbook.Path sur un réseau

Bonjour

Pour le thisworkbook.path je ne vois pas le problème même en réseau il te le donne bien

 

[christophe90]

Re : ThisWorkbook.Path sur un réseau

Oui, c'est bizarre. Je ne comprends pas pourquoi ça ne marche pas et pourquoi il ne me dirige pas au bon endroit. Et pour la deuxième question, quelqu'un aurait une idée ?

 

[Pierrot93]

Re : ThisWorkbook.Path sur un réseau

Bonjour Christophe, Pascal

pour ta 2ème question, regarde le code ci dessous, te renvoie dans la variable x, la valeur de la cellule A1 ou se trouve ta fonction "Maintenant" :

Dim x As String
x = Format(Range("A1").Value, "dd-mm-yyyy hhnn")

bonne journée
@+

 

[kiki29]

Re : ThisWorkbook.Path sur un réseau

Peut-être faire un ChDrive approprié avant ?

 

[christophe90]

Re : ThisWorkbook.Path sur un réseau

Merci de vos réponses,

Je joins un fichier pour exprimer ce que je n'arrive pas faire.
Et je ne sais pas ce qu'un ChDrive

 

[Pierrot93]

Re : ThisWorkbook.Path sur un réseau

Re, bonjour Kiki

pas sur d'avoir tout compris, essaye peut être comme ceci :

Dim x As String
x = Format(Now, "dd-mm-yyyy hhnn")
ChDrive ("P")
fermer = Application.GetSaveAsFilename(x & ".xls", "Fichiers Excel,*.xls")

bon après midi
@+

Edition : "ChDrive" modifie le lecteur courant

 

[christophe90]

Re : ThisWorkbook.Path sur un réseau

Félicitations tout le monde, grâce à vous tous mes problèmes sont résolus, mille mercis à vous tous.

A bientot

 

[C@thy]

Re : ThisWorkbook.Path sur un réseau

Bonjour le forum,

j'ai exactement le même problème,

mon classeur est sur un lecteur réseau, et le thisworkbook.path me renvoie vers C:\

sauf que je ne peux pas faire un chdrive (qui au demeurant fonctionne très bien) car sur certains postes le lecteur réseau est défini comme R: et sur d'autres, R étant pris, le fichier est stocké sur le lecteur W: ou sur Y:,
donc je ne connais pas à l'avance la lettre du lecteur réseau de l'utilisateur...

ça se complique...

Merci et bizz

C@thy​

 

[Pierrot93]

Re : ThisWorkbook.Path sur un réseau

Bonjour Cathy

essaye peut être ceci :

ChDrive Split(ThisWorkbook.Path, ":")(0)

mais bon... sans plus de détails...

bon après midi
@+

 

[C@thy]

Re : ThisWorkbook.Path sur un réseau

oOK Merci vais essayer

Bizz

C@thy

 

[Staple1600]

Re : ThisWorkbook.Path sur un réseau

Bonsoir à tous


A tester également
MsgBox ThisWorkBook.FullName
ou
MsgBox ActiveWorkBook.FullName
Reste ensuite à isoler le Path (sans le nom du fichier) si on ne veut que le path.

 

[C@thy]

Re : ThisWorkbook.Path sur un réseau

Yaisse, merci Jean-Marie

Bizz

C@thy

 

[C@thy]

Re : ThisWorkbook.Path sur un réseau

Bon, j'ai, testé, je ne récupère jamais la lettre de disque réseau



je joins mon fichier...​

la macro est dans la feuille 2 (chemins)

Bizz

C@thy

 

[Pierrot93]

Re : ThisWorkbook.Path sur un réseau

Bonjour Cathy,

bah chez moi, l'instruction :

cheminCourant = ThisWorkbook.Path & "\"

renvoie le bon chemin.. avec lettre du lecteur réseau....
pas top le code dans l'événement "change" de la feuille.... se déclenche à chaque selection....

bonne journée
@+