Sauvegarde et extraction selon plusieurs cellules

Forum pour toutes vos questions à propos d'Excel (avec ou sans macros) ...
Nevasane
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 4 avril 2017
Version d'Excel : 2010

Message par Nevasane » 20 avril 2017, 20:50

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.

Code : Tout sélectionner

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,
Nevasane
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 4 avril 2017
Version d'Excel : 2010

Message par Nevasane » 25 avril 2017, 20:44

Personne ne sait?
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message