Mystère et boule de gomme...

[Fab291]

Bonjour le forum,
Réussiras-tu à résoudre le mystère...

J'ai deux macro :
- Une qui enregistre une impression en pdf
- L'autre qui envoi un mail avec pour fichier joint l'impression pdf.

Le problème que j'ai réside dans le nom de mon fichier pdf :

En fait, pour le nom, les deux macro reprennent le texte d'une cellule. Seulement un des caractère de ma cellule est un slash "/" (caractère qui est interdit pour nommé un fichier).
La 1ère macro (enregistrement en PDF) fonctionne quand même et me converti (remplace) mon slash en un "_".

Seulement la deuxième macro (envoi d'un mail) reprend le texte de la cellule elle aussi. Donc d'une part le fichier que le code tente de joindre n'as pas le même nom que celui qui à été enregistré en pdf ( puisque le slash à été converti en "_") et en plus de sa un caractère au sein du fichier recherché n'est pas conforme...

Y a-t-il un moyen de remplacer le "/" en "_" dans ma deuxième macro?

Merci

 

[Staple1600]

Re : Mystère et boule de gomme...

Bonjour


Sans avoir sous les yeux le code de ta macro, ton mystère restera un mystère


Quoique .... il existe en VBA la fonction Replace ...

 

[Robert]

Re : Mystère et boule de gomme...

Bonsoir Fab, Jean-Marie, bonsoir le forum,

Titre hautement humoristique mais qui n'apportera rien à quelqu'un qui pourrait rencontrer le même problème que toi Fab... Jette un coup d'œil à la Lien supprimé du forum tu comprendras mieux ce que je veux dire !

 

[Fab291]

Re : Mystère et boule de gomme...

Oups, désolé Robert pour le titre... J'avais pas pensé à ce genre de problème...
ça ne se renouvellera pas

J'ajoute mon fichier rien que pour toi staple1600

 

[tototiti2008]

Re : Mystère et boule de gomme...

Bonjour Fab, Bonjour Staple, Bonjour Robert,

Chez moi, il me dit que le zip n'est pas valide

Edit : ah ben si, après un 2ème essai, c'est passé

 

[Staple1600]

Re : Mystère et boule de gomme...

Re, bonsoir Messieurs Robertototiti2008


Comme je le disais plus bas

Sub a()
Dim PJ$
PJ = "C:\Users\Patrick & Monique\Desktop\" _
& Range("A6").Text & " " _
& Replace(Range("B10"), "/", "_") & ".pdf"
MsgBox PJ
End Sub

A introduire et adapter dans ton vrai code

PS: Chez moi pas de prob avec le zip (ouvert avec Izarc)

 

[Fab291]

Re : Mystère et boule de gomme...

Nickel !

Merci