limite de la longueur d'une chaine pour atteindre un dossier

Bonsoir,

Sub SaveToPdf()
'
' SaveToPdf Macro
'
'
Dim lcPath As String
Dim lcFileName As String

With ActiveDocument
lcPath = .Path
lcFileName = lcPath + "" + .Name + ".pdf"

.SaveAs2 lcFileName, 17

End With

Shell "explorer " & lcPath, vbNormalFocus

End Sub

la problématique est la suivante


' cette commande est supposée ouvrir le répertoire cible 0
Shell "explorer " & lcPath, vbNormalFocus

c'est correcte pour

C:Userseddymaue.eddymaue-PCDocumentsOneDriveooooooooo oooooooooooo
ooooooo- Estimation20182018-02 bébé Chiro ooooooo(oooo ooooooo)

et effectivement le bon dossier s'ouvre


mais ca, sa ne passe pas
C:Userseddymaue.eddymaue-PCDocumentsOneDriveChauffage oooooooooooo
ooooooo- Estimation20182018-02bébé Morency, 78 Belle-terre

il n'y a qu'un répertoire de plus et dû a cela l'exploreur de fichier
s'ouvre sur "C:Userseddymaue.eddymaue-PCDocuments"

que faire ?

merci de votre aide

a+ Eddy

--
a+ Eddy
Merci de partager avec moi votre immense savoir que je me ferai plaisir
d'absorber il va de soi que je vais vous en laisser un peu
Politesse et savoir vivre oblige ;0)


This email has been checked for viruses by AVG.
http://www.avg.com