XL 2016 Problème de code lorsque je l'enregistre en PDF "%20"

bellenm · 24 Octobre 2018

Bonsoir à tous,

sûrement un petit problème de code!
Avec ce code pas de problème:

Code:

     chemin = "m:\AC GRACE\COPIE CARTE\AC GRACE\PDF\"
NomFichier = "Equipe 3 " & Range("y2").Value

Le fichier s'inscrit correctement et ce met bien dans le répertoire choisi.

Mais ce que j'aimerais dans le code c'est que le chemin soit le disque source du fichier.
Donc si je lance le fichier via une clé USB que le chemin de sauvegarde soit la clé.

Via le code si dessous, si le résultat en "y2" est "A 123", j'ai comme nom de fichier "Equipe%203%20%A%123" comment faire disparaître les "%20"

Code:

      chemin = ThisWorkbook.Path
      NomFichier = "Equipe 3" & Range("y2").Value

D'avance je vous remercie pour votre aide.

Marc B

roro69 · 25 Octobre 2018

Bonjour
la cause vient des espaces dans tes chaines de caractère; soit les supprimer ; ou faire un replace
A++

bellenm · 25 Octobre 2018

Bonjour roro69 ,

Oui il y a effectivement des espace dans la cellule "Y2" mais où dois je mettre et comment faire pour le replace?

Marc B

roro69 · 25 Octobre 2018

Bonjour
Je tenterais ceci:

VB:

chemin = ThisWorkbook.Path
      NomFichier =  "Equipe3" & Replace(Range("y2").Value, " ", "")

a ++

bellenm · 25 Octobre 2018

Re
J'ai essayer plusieurs solution mais toujours pas ok
voici la formule dans sa totalité:

Code:

     chemin = ThisWorkbook.Path
      NomFichier = Range("y2").Value

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
   chemin & NomFichier, Quality:=xlQualityStandard, _
   IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

Où ais je fait l'erreur, le fichier pdf est bien crée mais avec "%20" à la place de l'espace .

Merci pour votre aide

Marc B

bellenm · 25 Octobre 2018

re roro69,

merci le code fonctionne, mais pourquoi je ne peux pas mettre d'espace?

Marc B

job75 · 25 Octobre 2018

Bonjour, manque un antislash => chemin = ThisWorkbook.Path & "\"

bellenm · 25 Octobre 2018

Bonjour job75,

ouii l'ajout "& \" fonctionne bien c'était l'erreur, merci beaucoup du coup de pouce job75.

Mais pour quoi dans le nom du fichier crée il ne peux y avoir d'espace?

Marc B

XL 2016 Problème de code lorsque je l'enregistre en PDF "%20"

bellenm

XLDnaute Impliqué

roro69

XLDnaute Impliqué

bellenm

XLDnaute Impliqué

roro69

XLDnaute Impliqué

bellenm

XLDnaute Impliqué

bellenm

XLDnaute Impliqué

job75

XLDnaute Barbatruc

bellenm

XLDnaute Impliqué

Discussions similaires