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

 

[C@thy]

Re : ThisWorkbook.Path sur un réseau

Merci Pierrot, je devrais faire comment d'après toi?

Bises

C@thy

 

[Pierrot93]

Re : ThisWorkbook.Path sur un réseau

Re,

bah... j'en sais rien... mais logiquement avec un nom de serveur le chemin est valide et tu pourras ouvrir ton fichier.... perso je n'utilise pas les lettres des lecteurs réseau dans ce cas....

\\NomServeur\Dossier\nomClasseur.xls

 

[C@thy]

Re : ThisWorkbook.Path sur un réseau

C'est bien ce que je pensais, normalement ça devrait marcher...

mais a marche pô...

C@thy

 

[C@thy]

Re : ThisWorkbook.Path sur un réseau

OK, ça fonctionne, je n'étais pas dans le bon répertoire...🙄

Bises

C@thy

 

[C@thy]

Re : ThisWorkbook.Path sur un réseau

Donc, si j'ai bien compris, pas moyen de récupérer la lettre du lecteur réseau courant?

Bizz

C@thy​

 

[Pierrot93]

Re : ThisWorkbook.Path sur un réseau

Bonjour Cathy🙂

Donc, si j'ai bien compris, pas moyen de récupérer la lettre du lecteur réseau courant?
Bizz
C@thy​

bah... en adaptant l'instruction donnée post #10 :

MsgBox Split(CurDir, ":")(0)

bonne journée
@+

 

[MJ13]

Re : ThisWorkbook.Path sur un réseau

Bonjour à tous

Pas sur que cela puisse aider, mais j'utilise ce code pour connaître les lecteurs disponibles sur un PC:

Sub recherche_lecteurs_SurFeuille()
'code adapté par MJ issu de [URL]https://www.excel-downloads.com/threads/trouver-un-fichier-sur-le-pc.14470/[/URL]
Derl = Range("A65536").End(xlUp).Rows.Row
Range("A2:B" & Derl).Select
Selection.ClearContents
Dim Fso As Object
Dim Drv As Object
Dim Msg$
Range("A2").Select
Set Fso = CreateObject("Scripting.FileSystemObject")
Msg = "Votre système a " & Fso.drives.Count & " lecteurs :" & vbLf & vbLf
For Each Drv In Fso.drives
With Drv
Select Case .DriveType
Case 0 ' unknown
Msg = Msg & "Lecteur: " & .DriveLetter & " est de type inconnu." & vbLf
ActiveCell.Value = .DriveLetter & ":\"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = "type inconnu"
 ActiveCell.Offset(1, -1).Range("A1").Select
Case 1 ' removable, e.g., zip
Msg = Msg & "Lecteur: " & .DriveLetter & " est un disque amovible." & vbLf
ActiveCell.Value = .DriveLetter & ":\"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = "disque amovible"
 ActiveCell.Offset(1, -1).Range("A1").Select
Case 2 ' fixed, hard drive
Msg = Msg & "Lecteur: " & .DriveLetter & " est un disque dur." & vbLf
ActiveCell.Value = .DriveLetter & ":\"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = "disque dur"
 ActiveCell.Offset(1, -1).Range("A1").Select
Case 3 ' remote
Msg = Msg & "Lecteur: " & .DriveLetter & " est un disque réseau." & vbLf
ActiveCell.Value = .DriveLetter & ":\"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = "disque réseau"
 ActiveCell.Offset(1, -1).Range("A1").Select
Case 4 ' CDROM
Msg = Msg & "Lecteur: " & .DriveLetter & " est un CDROM." & vbLf
ActiveCell.Value = .DriveLetter & ":\"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = "CDROM"
 ActiveCell.Offset(1, -1).Range("A1").Select
Case 5 ' ram disk
Msg = Msg & "Lecteur: " & .DriveLetter & " est un disque virtuel." & vbLf
ActiveCell.Value = .DriveLetter & ":\"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = "disque virtuel"
 ActiveCell.Offset(1, -1).Range("A1").Select
End Select
End With
Next Drv
'MsgBox Msg, , "Lecteurs du système"
End Sub

Sub Trouve_CléUSB()
Dim Fso As Object
Dim Drv As Object
Dim Msg$
Set Fso = CreateObject("Scripting.FileSystemObject")
'MsgBox ("Votre système a " & FSO.drives.Count & " lecteurs :" & vbLf & vbLf)
For Each Drv In Fso.drives
If Drv.DriveType = 1 Then MsgBox (Drv & " est un Disque amovible")
Next

End Sub

 

[C@thy]

Re : ThisWorkbook.Path sur un réseau

Bravo Pierrot,

merci bôcou!

Bonne journée à tutti

C@thy

 

[C@thy]

Re : ThisWorkbook.Path sur un réseau

Merci MJ13 t'avais pas vu passer!

Bises

C@thy

 

[C@thy]

Re : ThisWorkbook.Path sur un réseau

P.S. Pierrot,

y'a pas des problèmes avec curdir? Il ne renvoie pas le lecteur du classeur en cours...

Bizz

C@thy​

 

[Pierrot93]

Re : ThisWorkbook.Path sur un réseau

Re,

bah... post #21 tu parlais du lecteur réseau courant.... et "curdir" renvoie le répertoire courant....

 

[C@thy]

Re : ThisWorkbook.Path sur un réseau

Ah oui,capito!! il te renvoie le lecteur courant mais pas celui du classeur ouvert par la macro... (donc le classeur "en cours")...

C@thy

 

[Pierrot93]

Re : ThisWorkbook.Path sur un réseau

Re,

si classeur actif, regarde activeworkbook.path

 

[C@thy]

Re : ThisWorkbook.Path sur un réseau

Voilà, c'est ça, il faut utiliser activeworkbook.path dans ce cas-là et pas curdir!

Youpi! Je commence à comprendre!!🙄

J'ai eu bien des soucis avec ça!!! Mais maintenant j'ai compris, ton explication est claire!

Bizz

C@thy​