Créer des fichiers CSV en fonction du liste de variables d'une feuille excel

Version imprimable

Bonjour a tous,

j'ai besoin de votre aide pour faire une boucle, j'ai essayé de le faire mais en vain

Je souhaite faire une boucle qui me créer autant de feuilles que variable qui ce trouve dans une colonne d'une autre feuille

Ensuite quand les feuilles sont créer je crée des fichiers CSV en fonction des nouvelles feuilles créer précédemment.

J'ai pour l'instant réussi a faire la création de la nouvelle feuille le Nom de la feuille "NF" + valeur de la cellule A2 (de la feuille F_BdD)

le fonctionnement de la macro:
Etape 1
je crée une config dans la feuille F_BdD l'info de la col0 je prendre la valeur de D2 de la feuille "Donnée Variable" que je colle dans la colonne A et les autre colonnes B à D sont des informations fixe
Ensuite je copie toutes les valeurs de la feuille F_BdD que je colle dans une nouvelle feuille avec le nom de la feuille NF + val A2.
Etape 2
il reste a faire ensuite la conversion en csv le code je trouve dans le module2 mais pour l'instant je n'ai pas encore testé.

ci-dessous le code pour la première étape :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 'Code création des colonnes avec le contenu des cellules fixe Dim Wk1 As Worksheet Dim Wk2 As Worksheet Dim NF As Worksheet ' Une référence à la feuille nouvellement créée Dim x As Integer Set Wk1 = Worksheets("F_BdD") Set Wk2 = Worksheets("Donnée Variable") 'sélection de la page Wk1.Select 'remplissage avec une boucle for For x = 2 To 13 ' cells( ligne , colonne ) la ligne évolue en fonction de x Wk1.Cells(x, 1) = Wk2.Cells(2, 4).Value Wk1.Cells(x, 2) = "CASSETTE" Wk1.Cells(x, 3) = "CASSTETE-" & x - 1 Wk1.Cells(x, 4) = "5600" Next x 'nom des nouvelles colonnes Range("A1").Select ActiveCell.FormulaR1C1 = "Col0" Range("B1").Select ActiveCell.FormulaR1C1 = "Col1" Range("C1").Select ActiveCell.FormulaR1C1 = "Col2" Range("D1").Select ActiveCell.FormulaR1C1 = "Col3" 'Sélection des données pour le copier dans une nouvelle feuil Cells.Select Selection.Copy Set NF = ThisWorkbook.Worksheets.Add ' La référence est posée NF.Name = "NF" & Wk1.Range("A2").Value ' Le nom d'onglet de la nouvelle feuille est posé. ActiveSheet.Paste End Sub
Merci encore pour votre aide.

Fichiers joints dans les discussions

25/10/2015, 19h46
clementmarcotte

Bonjour,

Ton fichier s'est fait mettre dans la filière no 13, pour le plus grand bien de tous. Même que tu as un lien pour que tu puisses savoir pourquoi.

Citation:

Envoyé par undo74

Bonjour a tous,

il reste a faire ensuite la conversion en csv le code je trouve dans le module2 mais pour l'instant je n'ai pas encore testé.

C'est l'enfance de l'art.

1) Tu enregistres une macro Excel en passant par Enregistrer Sous... et tu choisis un format à ton goût.

ou

2) Tu regardes dans l'aide pour saveas ou saveas2 et tu choisis la constante qui correspond au format que tu veux.
25/10/2015, 21h50
patricktoulon

re

:ptdr: clément a manger un lion prends un mars la prochaine fois :mouarf:

en ce qui concerne cette demande
alors en effet j'ai allumé tout mes décodeurs mais sans succès quand au fichier en premier post je dirais que la charte n'a un peu mais pas beaucoup pas du tout regardée
pour commencer rien que la première phrase heu.. comment dire heu....

Citation:

je crée une config dans la feuille F_BdD l'info de la col0

ouais!.. si tu veut et la marmotte elle met le chocolat dans le papier alu hein....
bon quand on va plus loin malgré les bits manquants dans mon décodeurs
je crois comprendre que tu copie des cellules de plusieurs feuille dans une nouvelle que tu aimerais sauvegarder en CSV

moi je dis qu'il n'est pas nécessaire de faire tout ca

1 des variables tableaux

2 la fonction open sur un fichier texte

3 transcription des données tableaux dans ce fichier texte

un indice "close#1"

résultat instantané

a bon entendeur

re
bon malgré tout je me suis permis de regarder xe que tu avais proposé pour démarrer
j'en ai fait ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim x As long ,Wk1 As Worksheet, Wk2 As Worksheet, NF As Worksheet    ' Une référence à la feuille nouvellement créée
Set Wk1 = Worksheets("F_BdD")
Set Wk2 = Worksheets("Donnée Variable")    ' celui la on sait pas a quoi il sert
'sélection de la page
With Wk1
    'Code création des colonnes avec le contenu des cellules fixe
    'nom des nouvelles colonnes
    .Range("A1:D1") = Array("Col0", "Col1", "Col2", "Col3")
    'remplissage avec une boucle for
    For x = 2 To 13
        ligne = Array(Wk2.Cells(2, 4).Value, "CASSETTE", "CASSTETE-" & x - 1, "5600")
        .Cells(x, 1).Resize(1, 4) = ligne
    Next x
 
    Set NF = ThisWorkbook.Worksheets.Add    ' La référence est posée
    NF.Name = "NF" & .Range("A2").Value    ' Le nom d'onglet de la nouvelle feuille est posé.
 
    'Sélection des données pour le copier dans une nouvelle feuil
    .Cells(1, "A").Resize(13, 4).Copy Destination:=NF.Cells(1, 1)
 
End With

;)

25/10/2015, 22h59
undo74

Bonjour patricktoulon,
Merci d'avoir pris connaissance de mon sujet.
J'ai pu avancé de mon coté et je suis arrivé au résultat voulu mais je pense le code fournie dans mon exemple n'est pas très clean:oops:.
je ne suis pas développeur mais j'essaye de faire des choses:?

merci d’avance.
cdt,