Chaine de caractere de plusieurs mots

Bonjours,

Je cherche a enregistrer un fichier.txt avec comme nom les deux 1er mots que comporte une cellule défini.

Pour cela il me faut une variable qui va sélectionner ces deux premiers mots.... Ces mots sont séparer par un espace et sont variable.

Ma sélection effectue en H1.

Voici le début de mon code :

Sub Bouton_Enregistrer()
    Dim Chemin As String, Fichier As String
    Chemin = "C:\Users\GROSCACAKIPU\Documents\"
    Fichier = "EXPORT_" & Format(Date, "dd-mm-yy") & "_" & NOM-VARIABLE & ".TXT"
    ActiveWorkbook.SaveAs Chemin & Fichier, _
    FileFormat:=xlText, CreateBackup:=False
    Application.Quit
    Application.DisplayAlerts = False
End Sub

Exemple du fichier.txt Final : EXPORT_05-10-12_VALEUR1 VALEUR2.txt

Bonjour,

Si la variable à mettre à la place NOM-VARIABLE se trouve en H1, suffit de le remplacer par Range("H1")

A+

Oui, mais quand je fait cela ça prend tout la valeur de la cellule H1. ET le problème c'est que dans Cette cellule, il y a des caractère Interdit pour l'enregistrement de fichier : "/" et ":". De plus je ne veut que les deux premiers Mots de la Cellule.

Donne un exemple du contenu de la cellule H1

Exemple contenu Cellule H1 Variable suivant le fichier importer dans Excel :

• "PIED CARRE TRALALA S70 H:15cm"
• "CAISSE TROLOLO 26 LATTES"
• "SOMMIER CACA PIPI 4mm VERT"

A tester...

Sub Bouton_Enregistrer()
    Dim Chemin As String, Fichier As String
    Dim TB, VarH1 As String
    TB = Split(Range("H1"), " ")
    VarH1 = TB(0) & TB(1)
    Chemin = "C:\Users\GROSCACAKIPU\Documents\"
    Fichier = "EXPORT_" & Format(Date, "dd-mm-yy") & "_" & VarH1 & ".TXT"
    ActiveWorkbook.SaveAs Chemin & Fichier, _
    FileFormat:=xlText, CreateBackup:=False
    Application.Quit
    Application.DisplayAlerts = False
End Sub

A+

Merci, Cela fonctionne Sujet Résolu

Je le suis permis de modifier ton Code pour ajouter un "-" entre les deux mot pour améliorer la lecture du fichier.txt.

    Dim Chemin As String, Fichier As String
    Dim TB, VarH1 As String
    TB = Split(Range("H1"), " ")
    VarH1 = TB(0)
    Var1H1 = TB(1)
    Chemin = "C:\Users\CLOART\Documents\"
    Fichier = "EXPORT_" & Format(Date, "dd-mm-yy") & "_" & VarH1 & "-" & Var1H1 & ".TXT"
    ActiveWorkbook.SaveAs Chemin & Fichier, _
    FileFormat:=xlText, CreateBackup:=False
    Application.Quit
    Application.DisplayAlerts = False