Discussion :

[gangsterus]

Bonjour,

J'ai inséré le code suivant dans ma macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
ChDir (ThisWorkbook.Path)
ChDir ".."
vDossierSource = CurDir & "\"
 
Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True
Set wordDoc = wordApp.Documents.Add(Template:=vDossierSource & "courrier.dot", NewTemplate:=False, DocumentType:=0)

Lorsque j'enregistre les fichiers dans mes documents, ça fonctionne, par contre, si je les mets sur un lecteur réseau, ça me dit: Erreur d'éxecution '75' Erreur d'accès Chemin/Fichier.
Je précise que j'ai bien vérifié que le fichier était bien présent au bon endroit!
Si, au lieu de mettre le code ci-dessus, je mets le chemin absolu, ça fonctionne...

Quelqu'un a-t-il une solution à m'apporter?

Merci beaucoup d'avance

[casefayere]

Bonsoir,

Je ne sais pas s ça peut t'aider mais j'avais construit une procédure avec mon début comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
racine = Workbooks(ActiveWorkbook.Name).Path
 
Dir Workbooks(ActiveWorkbook.Name).Path
ChDir racine 'se place sur le repertoire du programme
 
If (verif = Dir(racine & "\" & nomdossier & "\", vbDirectory)) = vbEmpty Then 'On teste l'existence du répertoire nomdossier
    repert = racine & "\" & nomdossier
    Else
    MkDir racine & "\" & nomdossier 'on le crée s'il n'existe pas
    repert = racine & "\" & nomdossier
End If

bonne soirée

[gangsterus]

Bonjour,

Merci pour ta réponse. Mon problème est que ce code fonctionne quand le fichier est enregistré sur le disque dur du PC, mais ne fonctionne pas quand il est enregistré sur un lecteur réseau... à moins de mettre le chemin absolu, ce qui ne me convient pas car je souhaite que le fichier soit "déplaçable".

[Godzestla]

Bonjour,

une autre technique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub parent()
Dim tablo() As String
If ThisWorkbook.Name <> ThisWorkbook.FullName Then 'file has already been saved
    racine = ThisWorkbook.Path
    tablo = Split(racine, "\")
    racine = Mid(racine, 1, Len(racine) - (Len(tablo(UBound(tablo))) + 1))
 
    MsgBox racine
End If
End Sub

[ouisansdoute]

Bonjour,

je ne sais pas si ça peut aider mais il existe une commande pour changer de lecteur. Pour aller sur le lecteur H:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ChDrive "H"

[casefayere]

je pense que le problème n'est pas d'identifier le chemin ou on enregistre le fichier, ça serait plutot de l'ouvrir à partir de n'importe quel poste avec une recherche programmée du fichier en incluant de rechercher sur les lecteurs réseaux, mais je dis peut-être des bétises

Bonne journée à tous

[gangsterus]

Bonjour,

Merci pour cette réponse. Cette solution fonctionne. Je ne sais pas exactement comment fonctionne un tableau, mais j'ai recopié le code, adapté à mon cas, et visiblement, c'est bon!

Merci beaucoup, vous restez les kings!

[Godzestla]

Re,

regarde l'aide en ligne pour split et tu comprendras.

Le principe est de repérer le dernier "\" et d'extraire ce qui est devant.

Pour ce faire on calcule la longueur de ce qui suit le dernier "\", càd la longueur du dernier élément de Tablo, repérable par tablo(ubound(tablo)) et on prend le string de départ depuis la gauche, moins la longueur de ce qui suit le dernier slash moins 1 pour le dernier slash, et hop, cela fait le répertoire parent.

cqfd.

Pense à ci c'est le cas.