Sauvegarde et extraction selon plusieurs cellules

Bonjour,

Je souhaiterai savoir comment extraire le contenu d'une cellule Excel (exemple A1) pour l'extraire en format .txt sur le Bureau et que le nom du fichier .txt créer dépend du contenu de trois autres cellules excel (exemple B2 et H10 et J14)?? Les cellules ne se suivent pas.

J'ai ceci qui m'a permis d'extraire des données et de créer le fichier .txt mais pas de nom de sauvegarde selon des données d'autres cellules.

Sub ExportTxt()
Dim CheminFichierTxt As String
Dim Tablo() As Variant

Tablo = Range("A89:I89").Value
CheminFichierTxt = "C:\Users\Flo\Desktop\Astuce.txt"
NumFichier = FreeFile()

Open CheminFichierTxt For Output As #NumFichier

'tu parcours le tableau
For i = 1 To UBound(Tablo)
    For j = 1 To UBound(Tablo, 2)
        Print #NumFichier, Tablo(i, j)
    Next j
Next i

Close #NumFichier ' Ferme le fichier.
End Sub

Merci d'avance,

Cordialement,

Personne ne sait?

Rechercher des sujets similaires à "sauvegarde extraction"