Discussion :

[RENAUDER]

Bonjour,

Pour cela j'utilise la fonction GetShortPath trouvée sur le Web.

Si j'indique mon chemin en dur dans la commande :

Code :

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

GetShortPath ("D:\Archives\Archioutilvalid\8607\8607 0466")

cela fonctionne.

Maintenant je veux utiliser deux variables (nf1 et nf3) pour le chemin

Code :

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

FF="D:\Archives\Archioutilvalid\" & nf1 & "\" & nf3 ' nf1 et nf3 sont des variables

La variable FF me restitue bien le chemin complet que je vérifie avec Debug.Print (D:\Archives\Archioutilvalid\8607\8607 0466)
mais quand je lance :

Code :

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

GetShortPath (FF)

Le chemin au format 8.3 n'est pas restitué, il est vide.
J'ai essayé toutes sortes de combinaisons de syntaxe pour passer la variable FF en argument reconnu mais je ne trouve pas de solution.
Merci d'avance

[Theze]

Bonjour,

Je viens de faire un test avec "GetShortPathName" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Private Declare Function GetShortPathName _
                Lib "kernel32" _
                Alias "GetShortPathNameA" ( _
                ByVal longPath As String, _
                ByVal shortPath As String, _
                ByVal shortBufferSize As Long) As Long
 
Sub Test()
 
    Dim Chemin As String
    Dim CheminDos As String
    Dim Retour As Long
    Dim Chaine1 As String
    Dim Chaine2 As String
    Dim Chaine3 As String
    Dim Chaine4 As String
    Dim Chaine5 As String
 
    Chaine1 = "G:"
    Chaine2 = "Programmation VB"
    Chaine3 = "Diagramme Solaire"
    Chaine4 = "bin"
    Chaine5 = "Debug"
 
    Chemin = Chaine1 & "\" & Chaine2 & "\" & Chaine3 & "\" & Chaine3 & "\" & Chaine4 & "\" & Chaine5
 
    CheminDos = Space(Len(Chemin))
 
    Retour = GetShortPathName(Chemin, CheminDos, Len(Chemin))
 
    Debug.Print Trim(CheminDos)
 
    'retourne --> G:\PROGRA~1\DIAGRA~1\DIAGRA~1\bin\Debug
 
End Sub

J'ai découpé mon chemin en 5 chaînes et la valeur retournée est : G:\PROGRA~1\DIAGRA~1\DIAGRA~1\bin\Debug. On voit bien qu'une variable est répétée deux fois car le sous dossier possède le même nom que le dossier parent (Chaine3) et je pense que tu as oublié de répéter le nom du dossier mais comme je ne connais pas les valeurs de tes variables ?
Je verrai bien ton code comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub Test()
 
    Dim Chemin As String
    Dim CheminDos As String
    Dim Retour As Long
    Dim Chaine1 As String
    Dim Chaine2 As String
    Dim Chaine3 As String
 
    '"D:\Archives\Archioutilvalid\8607\8607 0466"
    Chaine1 = "D:\Archives\Archioutilvalid"
    Chaine2 = "8607"
    Chaine3 = " 0466"
 
    Chemin = Chaine1 & "\" & Chaine2 & "\" & Chaine2 & Chaine3
 
    CheminDos = Space(Len(Chemin))
 
    Retour = GetShortPathName(Chemin, CheminDos, Len(Chemin))
 
    Debug.Print Trim(CheminDos)
 
End Sub

[Marc-L]

Bonjour,

ou bien utiliser directement FSO comme dans DocOpen la ligne n°4 …



______________________________________________________________________________________________________
Je suis Paris, …

[RENAUDER]

Bonjour,

Bizarre car chez moi rien ne fonctionne.
Debug.Print Trim(CheminDos) me retourne RIEN