Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Word limite de la longueur d'une chaine pour atteindre un dossier

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

2 réponses
Avatar
eddymaue
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:\Users\eddymaue.eddymaue-PC\Documents\OneDrive\ooooooooo oooooooooooo
ooooooo\- Estimation\2018\2018-02 bébé Chiro ooooooo(oooo ooooooo)

et effectivement le bon dossier s'ouvre


mais ca, sa ne passe pas
C:\Users\eddymaue.eddymaue-PC\Documents\OneDrive\Chauffage oooooooooooo
ooooooo\- Estimation\2018\2018-02\bé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:\Users\eddymaue.eddymaue-PC\Documents"

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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Claude M
Le 28.02.2018 à 02:06, eddymaue a écrit :
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

bonjour
une piste je vois une virgule après Morency !!!!!
Claude
Avatar
eddymaue
Effectivement c ca le probleme et donc la solution est
Shell "explorer " & chr(34) & lcPath & chr(34), vbNormalFocus
bonne nuit
:
Le 28.02.2018 à 02:06, eddymaue a écrit :
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

bonjour
une piste je vois une virgule après Morency !!!!!
Claude

--
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