Erreur de code vb pour un enregistrement

[bellenm]

Bonjour à tous,

je cherche en vain depuis plusieurs jour pour finaliser ce bout de code :

  NomFichier = Replace(Range("y63").Value & ":" & Range("w103") & "-" &  Range("z103"), " ", "")

qui fait partie d'une macro

Sub ZoneImpressionEnPdfMacroChoix4()
Dim ImprActuelle As String, ImprNouv As String, NomFichier As String, ws As Worksheet, Imprimer

Set ws = Worksheets("F4") 'la feuille
ws.PageSetup.PrintArea = "$B$63:$aa$117" ' les cellules

Imprimer = MsgBox("Voulez-vous imprimer (répondre oui) ou créer un pdf (répondre non) ?", vbYesNo)
    If Imprimer = vbYes Then
        'Sub IMPRIMER_Papier() 'placer ici le code qui va bien : regarde le message #3 tu as pratiquement tout ce qu'il faut dedans
ActiveSheet.PrintPreview
    '    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        'End Sub

Else
     chemin = ThisWorkbook.Path & "\"
     ' NomFichier = Replace(Range("y63").Value, " ", "")
   NomFichier = Replace(Range("y63").Value & ":" & Range("w103") & "-" & Range(z103), " ", "")

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

End Sub

En fait ce que j'aurais aimé pour le nom de nom fichier ces des données dans trois cellule différente:
"Y63" (référence de rencontre) + ":" (séparateur) + "W103" (résultat visiteur) + "-" (séparateur) + "Z103" (résultat visité)
PS: le code fonctionne si je laisse la ligne NomFichier = Replace(Range("y63").Value, " ", "") sans le ' et que je le rajoute sur la ligne suivante puisque je teste ce code pour simplifier sa classification future.

Mais ca coince dans mon code certainement pas correct.

Merci de bien vouloir m'aider
MB

 

[Robert]

Bonjour Bellenm, bonjour le forum,

Les deux points ":" font partie des caractères interdits dans le nom d'un fichier. Donc c'est mort !...
Il manque les guillemets à Range(z42). Pourquoi un Replace ?
Je verrais bien :

NomFichier = Range("Y63").Value & "-" & Range("W42").Value & "-" & Range("Z42").value

 

[bellenm]

Bon jour Robert,

Merci pour ta réponse rapide, si les : sont proscrit ; l'est il aussi ou alors quel autre séparateur puis je mettre?

Bien à toi

Marc

 

[Robert]

Re,

Heu... Tu lis jusqu'au bout des fois ?
La solution que je t'ai proposée ne te convient-elle pas ? J'ai utilisé deux traits d'union "-"....

 

[bellenm]

Super Robert

j'ai simplement mis un "=" à la place et le code fonctionne super bien.

Merci donc à toi

 

[bellenm]

re Robert, en effet j'ai bien vu le - mais deux fois pourrait porter à confusion car le fichier devra être envoyé avec comme mention la réfèrence du matche et son résultat donc : A 112-5-3 c'est moins clair que A 112=5-3

Merci beaucoup avec cette modification tu m'a permis d'avancé.

BAT

Marc