Discussion :

[Rosees]

Bonsoir à tous,

J'ai actuellement à ma disposition un fichier excel sous cette forme :

        A                           B
1) Client 1                  Client 2 ......
2) Commande 1           Commande 2....

J'aimerais ainsi extraire chaque colonne dans un fichier à part du style. Ce qui nous ferait en gros un fichier pour chaque client que j'aimerais également nommé "Client1.xls"

Pour l'instant, voici ce que j'ai écrit dans ma macro :

Code :

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

1
2
3
4
5
6
7
8
9
Sub ExtractionColonnes()
 
Dim Cell As Range
 
Dim R As Range
 
Worksheets("Feuil2").Columns(1).Value = Worksheets("Feuil1").Columns(2).Value
 
End Sub

L'extraction s'effectue mais dans une autre feuille. Hors je souhaiterais que cela se fasse dans un fichier différent. Si quelqu'un pouvait m'aider!

Merci beaucoup!

Update :

Après quelques recherches j'ai remplacé la ligne 7 par ceci :

Code :

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

Workbooks('"Classeur2.xls").Worksheets("Feuil1").Columns(1).Value = ActiveWorkbooks.Worksheets("Feuil1").Columns(2).Value

Cela me donne une erreur :

Erreur d'éxécution 424 : objet requis!

[mercatog]

Exemple

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
20
21
22
23
24
25
26
27
28
29
30
Sub Dispaching()
Dim LastCol As Integer
Dim c As Range
 
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Feuil1")
    LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
 
    For Each c In .Range("A1").Resize(1, LastCol)
        Transfer c
    Next c
End With
End Sub
 
'Procédure qui copie la colonne correspondant à Rng dans un nouveau classeur sauvegardé sous le nom contenu dans Rng
'Attention si Rng contient des caractères non permis dans la nommination des fichier tel /?
Private Sub Transfer(ByVal Rng As Range)
Dim Wbk As Workbook
Dim Chemin As String
 
Chemin = ThisWorkbook.Path & "\"
 
Set Wbk = Workbooks.Add(1)
Rng.EntireColumn.Copy Wbk.Worksheets(1).Range("A1")
Application.DisplayAlerts = False
Wbk.SaveAs Chemin & Rng.Value
Application.DisplayAlerts = True
Wbk.Close
Set Wbk = Nothing
End Sub

[Rosees]

Je te remercie c'est exactement ce que je voulais!
J'aurais toutefois aimé savoir s'il était possible de nommer automatiquement les fichiers avec le nom du client du style : Client1.xls - Client2.xls etc.. ?

[EngueEngue]

Cela a pour effet de nomer ton fichier avec le nom contenu dans rng...

Code :

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

Wbk.SaveAs Chemin & Rng.Value

S'il ne correspond pas change le par le bon range!

[Rosees]

Le problème étant que mes données se trouvent de B1 à B10. Je dois donc faire quelque chose du style :

Code :

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

Wbk.SaveAs Chemin & Rng("B1:K1").Value

N'est-ce pas?

Mais j'obtiens l'erreur suivante :

Erreur d'éxcution 1004 : Erreur définie par l'application ou l'objet.

Et après mes recherches cela peut se résoudre en activant la feuille associée mais elle est déjà activée non?

[Rosees]

C'est bon j'ai trouvé la solution.

Ma dernière demande est désormais de copier la colonne A sur tous les fichiers. Quelqu'un pourrait m'aider?