Sauvegarde et extraction selon plusieurs cellules

Y compris Power BI, Power Query et toute autre question en lien avec Excel
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 : Sélectionner et copier le code

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