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

[bellenm]

Bonsoir à tous,

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

     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"

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

D'avance je vous remercie pour votre aide.

Marc B

 

[roro69]

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

 

[bellenm]

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]

Bonjour
Je tenterais ceci:

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

a ++

 

[bellenm]

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

     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]

re roro69,

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

Marc B

 

[job75]

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

 

[bellenm]

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