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,