Utiliser des noms de chemin très long (>260 car)

[Guy_M]

Bonjour,

J'ai toujours cru que la longueur d'un chemin de fichier sous Windows est très limitée (260 caractères). De temps en temps, Workbooks.Open me le rappelle durement (ça plante). En cherchant à gérer au mieux cette limite, je suis tombé sur une page où il y est expliqué que la longueur pouvait être de 32 767 (enfin presque) : Ce lien n'existe plus

Quelqu'un parmi vous sait-il comment dans VBA Excel utiliser cette caractéristique du système de fichier ? L'utilisez-vous régulièrement ?

Par avance, je vous remercie de vos réponses.

A bientôt
Guy

 

[Dranreb]

Re : Utiliser des noms de chemin très long (>260 car)

Bonjour.
Une piste à creuser: utiliser un ChDir, ou plusieurs successifs, et ne plus spécifier ce chemin courant dans les Workbooks.Open et autres. Ne pas oublier un ChDrive prélable si ce n'est plus l'unité courante.
Il y a aussi l'API:

Private Declare Function SetCurrentDirectory Lib "kernel32.dll" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long

 

[Guy_M]

Re : Utiliser des noms de chemin très long (>260 car)

Bonjour,

Il faudrait donc créer une fonction open pour workbooks qui ressemblerait à ça :

'Attention brouillon de code présentant un concept, en pseudo VBA
methode MonOpen(NomFichier)
Morceaux= Split(NomFichier, "\")
    
    'boucle sur le tableau pour changer de répertoire
    chdrive(Morceaux(0)) 'Le premier morceau est le disque
    For i = 1 To UBound(Morceaux)-1
    	ChDIR(Morceaux(i))
    Next i
wokbooks.open(Morceaux( UBound(Morceaux)-1) 'Le dernier morceau est le nom du fichier

end methode

Pourquoi pas, mais n'est-ce pas un peu lourd alors qu'il semble que Windows a déjà tout prévu ?

Merci
Guy

 

[MJ13]

Re : Utiliser des noms de chemin très long (>260 car)

Bonjour Guy, Bernard

Il faudrait voir dans quel cas, cela plante? Est-ce du au type de formatage (Fat32, NTFS..) ou est-ce une incohérence de VBA?

De plus est-ce que VBA trouve et affiche les longs noms de dossiers?

Sinon, il vaut mieux avoir des noms de chemins et de fichiers pas trop long 😱.

On a aussi des choses intéressantes en suivant un lien de ton lien ici:

Ce lien n'existe plus

 

[Guy_M]

Re : Utiliser des noms de chemin très long (>260 car)

Bonjour MJ13,

J'ai un système de fichier NTFS.

J'ai diminué la longueur des noms de fichiers avant de chercher une solution de gestion de ce problème donc je n'ai pas encore fait de tests précis sur les longueurs de nom de fichiers avec Workbooks.Open et VBA en général.

Merci
Guy