Discussion :

[Mathusalem]

Bonjour à tous !

Je débute totalement en VBA et j'aurais besoin de quelques pistes pour réaliser une macro qui me simplifierait la vie :

J'ai un tableau excel avec N colonnes, et je voudrais à la fin avoir N fichiers excel, chacun avec la Nième colonne. Les fichiers ayant pour nom, le label de la colonne.

Merci si vous pouvez m'aider, je sais que c'est possible, mais VBA est encore assez obscur pour moi.

Cordialement.

[SfJ5Rpw8]

tiens un peu de code à étudier et à adapter .. :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub test()
  Dim C As Range ' Variable range colonne parcourue
  Dim w As Workbook 'Nouveau classeur
  Dim s As Worksheet 'feuille source
  Set s = ActiveSheet ' assigne la s à la feuille en cours
 
  ' Boucle sur toutes les colonnes de la "currentregion" à la cellule A1
  ' (cellules non-vides adjacente à A1.., on peu les visualiser en se positionnant en A1 puis CTRL *
  For Each C In s.Cells(1, 1).CurrentRegion.Columns
   Debug.Print C.Address ' pour le fun Affiche l'adresse de la colonne dans fenêtre exécution
   C.Copy
   Set w = Workbooks.Add ' Création nouveau classeur
   w.Sheets(1).Cells(1, 1).Activate
   w.Sheets(1).Paste
   w.SaveAs C.Cells(1) 'sauve nouveau claseur en utilisant comme nom l'entête de la colone.
   '-- A Voir .. ? rajout de test sur contenu de l'entête .comptaible avac nom de fichier...
   Next ' Fin de la boucle de parcours des colonnes
End Sub

[Elstak]

coucou,

oui c'est possible, alors propose nous un code et montre nous où ca coince

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Ceclasseur.Sheets(Nomfeuille).Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & cells(1,1) & ".xls"

tiens voilà deja ca. Ca devrait enregistrer ta feuille qui s'appele Nomfeuille et elle aura le nom de la ligne 1 colonne 1.

enfin il faudra certainement modifier. Moi je ferais comme ca :

• Copie une colonne dans une nouvelle feuille (toujours dasn ton fichier de base)
• enregistre cette feuille dans un nouveau classeur
• A chaque fois tu ecrase les valeur de cette feuille (il n'y aura qu'une colonne dans cette feuille à chaque fois remplacée par la suivante)

voilà et donc a chaque fois tu prendra la valeur de la ligne 1 colonne 1 (intitulé de la colonne) pour nommer le fichier excel

[Mathusalem]

merci de vos réponses.

Avec de la doc du net, plus vos exemples, j'ai fait ma macro :-)