Macro - Enregistrer Fichier Avec Nom de Cellule (Sans Saut de Ligne)

Y compris Power BI, Power Query et toute autre question en lien avec Excel
J
JukeBoX
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 23 août 2019
Version d'Excel : 2016

Message par JukeBoX » 27 août 2019, 20:45

Finalement j'ai isolé le NOM DU CLIENT dans une cellule (plus simple)
Par contre je pense que le problème vient du fait qu'il y a un retour à la ligne Chr(10) Alt+Entrée dans la cellule.
Est-ce qu'en spécifiant .Value cela supprime les Chr(10) ?

Merci :)
J
JukeBoX
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 23 août 2019
Version d'Excel : 2016

Message par JukeBoX » 27 août 2019, 21:51

J'ai trouvé ce bout de code :
For Each MyRange In ActiveSheet.UsedRange
        If 0 < InStr(MyRange, Chr(10)) Then
            MyRange = Replace(MyRange, Chr(10), "")
        End If
    Next
Est-il possible de l'adapter sur le nom du fichier pour supprimer les retours chariots ?
fichier = Sheets("Feuille1").Range("C1").Value".xlsx"
With ActiveWorkbook: .SaveAs chemin & fichier: .Close: End With
J
JukeBoX
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 23 août 2019
Version d'Excel : 2016

Message par JukeBoX » 28 août 2019, 02:11

J'ai trouvé ce que je cherchais mais je n'arrive pas à l'appliquer pour le mettre seulement dans le nom du fichier enregistré...
Range("C1").Value = Application.WorksheetFunction.Substitute(Range("C1"), Chr(10), " ")
Désormais ça m'enlève bien les retours chariots et du coup j'aimerai avoir ce résultat comme nom de fichier pour la sauvegarde.
fichier = Range("C1").Value & ".xlsx"
With ActiveWorkbook: .SaveAs chemin & fichier: .Close: End With
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message