[VBA-E] Base de donnees routine

Version imprimable

05/02/2007, 18h38
Manu_111

[VBA-E] Base de donnees routine

Bonjour,
Voici mon probleme,
J'ai dans un dossier plusieurs fichiers Excel qui ont exactement le mm format

J'ai cree une petite routine qui permet de recuperer les donnees (leur nombre de lignes varie selon les fichiers) qui minteressent pour creer une base de donnees.
(produits commandes, volumes…)

Cependant, dans chaque classeur, j'ai un numero client.
J'aimerais que la routine recupere ce numero pour le coller en face de chaque produit commande

Merci pour votre aide si vous connaissez la ligne de commande. Moi je suis bloque!
05/02/2007, 18h44
SfJ5Rpw8

:koi: tu est sur de nous avoir tout dit ..?

voici ma routine:

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
Monfichier = Dir("E:\Test\*.xls", vbReadOnly)
 
While Monfichier <> ""
    Workbooks.Open "E:\Test\" & Monfichier
    Sheets("Export").Select
 
ligne = 14
 
    Do Until Sheets("Export").Cells(ligne, 1) = "Grand Total"
        ligne = ligne + 1
        Range("A14").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
    Loop
    Workbooks(2).Close SaveChanges:=False
 
    GoSub coller
    Monfichier = Dir()
 
Wend
    Cells(ligne + 1, 2).Select
Exit Sub
 
coller:
    ligne = 4
    Do While Sheets("Sheet1").Cells(ligne, 2) <> ""
        ligne = ligne + 1
    Loop
    Cells(ligne, 2).Select
    ActiveSheet.Paste
 
    Return
 
End Sub

05/02/2007, 19h01
SfJ5Rpw8

et il est ou le n° de client ..?
07/02/2007, 10h31
ouskel'n'or

Ensuite, ton N° de client doit bien aller sur la ligne que tu copies
Tu le mets dans quelle colonne ?
A+

Base de données

Bonjour,
Voici mon probleme,
J'ai dans un dossier plusieurs fichiers Excel qui ont exactement le mm format

J'ai cree une petite routine qui permet de recuperer les donnees (leur nombre de lignes varie selon les fichiers) qui minteressent pour creer une base de donnees.
(produits commandes, volumes…) (a partir de la colonne B)

Cependant, dans chaque classeur, j'ai un numero client.
J'aimerais que la routine recupere ce numero pour le coller en face de chaque produit commande (en colonne A)

Merci pour votre aide si vous connaissez la ligne de commande. Moi je suis bloque!
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 While Monfichier <> "" Workbooks.Open "E:\Test\" & Monfichier Sheets("Export").Select ligne = 14 Do Until Sheets("Export").Cells(ligne, 1) = "Grand Total" ligne = ligne + 1 Range("A14").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Loop Workbooks(2).Close SaveChanges:=False GoSub coller Monfichier = Dir() Wend Cells(ligne + 1, 2).Select Exit Sub coller: ligne = 4 Do While Sheets("Sheet1").Cells(ligne, 2) <> "" ligne = ligne + 1 Loop Cells(ligne, 2).Select ActiveSheet.Paste Return End Sub

[vba-E] Routine: recuperer donnees fichiers

Bonsoir,

J'ai cree une petite macro qui ouvre automatiquement tous les classeurs excel d'un dossier pour récuperer des données (le nombre de lignes varie: produits commandes...) et les coller dans un fichier central à partir de la colonne B

Cependant, dans chaque classeur, j'ai un numero client.
J'aimerais que la routine recupere ce numero pour le coller en face de chaque produit commande (en colonne A)

Merci pour votre aide si vous connaissez la ligne de commande. Moi je suis bloque!
Ci joint, voici le code qui me permet de recuperer les donnees de chaque classeur excel du dossier pour les coller a partir de la colonne B

Si vous pouviez maider, ca serait cool, je suis bloque depuis un moment et je n'en vois plus la fin etant loin detre un programmateur professionnel !
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 While Monfichier <> "" Workbooks.Open "E:\Test\" & Monfichier Sheets("Export").Select ligne = 14 Do Until Sheets("Export").Cells(ligne, 1) = "Grand Total" ligne = ligne + 1 Range("A14").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Loop Workbooks(2).Close SaveChanges:=False GoSub coller Monfichier = Dir() Wend Cells(ligne + 1, 2).Select Exit Sub coller: ligne = 4 Do While Sheets("Sheet1").Cells(ligne, 2) <> "" ligne = ligne + 1 Loop Cells(ligne, 2).Select ActiveSheet.Paste Return End Sub

10/02/2007, 22h06
SfJ5Rpw8

Citation:

Envoyé par bbil

et il est ou le n° de client ..?
11/02/2007, 10h53
Manu_111

Bonjour,
dsl, je ne me suis pas bien expliqué...
En fait, j'ai un dossier (Test) qui contient plusieurs fichiers excel ayant tous exactement le mm format. L'idée serait de creer un fichier central qui consolide les donnees de tous ces fichiers.

J'ai donc crée cette petite routine qui me permet de récupérer les produits commandés de chaque fichier excel pour les rapatrier automatiquement dans un fichier central (le collage de ces données se fait en colonne B)

Mon probleme, c'est que j'aimerais rapatrier le code client (qui se trouve sur une feuille differente des quantités commandées).
En gros, a chaque fois que ma macro colle les produits commandés dans mon fichier central, j'aimerais qu'elle colle en colonne A le code client en face de chaque produit commandé.

Connaissez vous un moyen ? Ca fait un moment que je planche dessus et je n'ai pas trouvé la solution !!!
Merci d'avance

Dans chaque classeur excel, il y a 2 feuilles:
- Export: où je rapatrie les produits commandés
- Client: disons qu'il se trouve en cellule G10. J'aimerais le coller en face de chaque ligne de produit commandé.
11/02/2007, 10h57
SfJ5Rpw8

ben tu nous dis toujours pas comment l'on doit trouver ton code client... qu'el est le lien avec les données copiées...?
11/02/2007, 11h22
Manu_111

Dans un dossier, j'ai plusieurs classeurs excel contenant 2 feuilles:
-"Export" = je récupère les quantités commandées (a partir de la ligne 14 en colonne A)
- "Client" = toutes les infos concernant le client (le code client se trouve en G10)

Le macro que j'ai faite ne récupère pour l'instant que les données de la feuille Export.

Le lien:
un classeur excel = un client. Tu as la feuille "Client" qui concerne les données client et la feuille "Export" qui concerne tous les produits commandés que le client a commandé

bon une solution pour ton problème .... création d'une variable pour mémoriser le n° de client , au début de ta procédure
Code:

1 2 3 Dim stNoClient as string
mémorisation du numéro de client au moment du "copy"...
Code:

1 2 3 4 5 6 7 8 ... Range(Selection, Selection.End(xlDown)).Select Selection.Copy Loop stNoClient = sheets("Client") .range("G10") '<<<<<<<<<<<<<< Ligne à rajouter pour mémoriser le numéro de client ... Workbooks(2).Close SaveChanges:=False ...
pose de numéro de client dans la feuille destinataire au moment du "paste"...
Code:

1 2 3 4 5 6 7 8 ... Loop Cells(ligne, 2).Select ActiveSheet.Paste Sheets("Sheet1").Cells(ligne, 1) = stNoClient ' <<< Ligne à rajouter pour poser le numéro de client... Return ...
voilà .. sinon ce code n'est qu'un "emplatre" à ton code qui demanderai à être ré-écrit....

tiens un peu de lecture
Programmer efficacement avec Excel en VBA
y voir par exemple comment utiliser une variable de type Workbook pour référencer tes classeurs......avec ta méthode que ce passe-t'il par exemple si avant d'ouvrir tes classeurs tu en ouvre un autre...? l'index 2 utilisé : dans

Code:

Workbooks(2).Close SaveChanges:=False

..est-il alors le bon ..?

voir aussi l'utilisation de méthode .. qui est préférable à l'utilisation des goto et goSub qui ne sont que des "restes" d'anciens basics..

Merci pour ton aide!
C'est vrai que mon code devrait etre réécrit mais je suis novice.

J'ai ajouté les lignes de code que tu m'as indiqué, cependant, la macro plante pour paster le code client.

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
Sub Base()
 
Application.ScreenUpdating = False
 
Dim stNoClient As String
 
Monfichier = Dir("C:\Test\*.xls", vbReadOnly)
 
While Monfichier <> ""
    Workbooks.Open "c:\test\" & Monfichier
    Sheets("D1").Select
 
Trouver:
    ligne = 14
    Do While Sheets("D1").Cells(ligne, 1) <> ""
        ligne = ligne + 1
        Range("A14").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
    Loop
    stNoClient = Sheets("Client").Range("G10")
 
    Workbooks(2).Close SaveChanges:=False
    GoSub coller
    Monfichier = Dir()
 
Wend
    Cells(ligne + 1, 2).Select
Exit Sub
 
coller:
    ligne = 4
    Do While Sheets("Feuil1").Cells(ligne, 2) <> ""
        ligne = ligne + 1
    Loop
    Cells(ligne, 2).Select
    ActiveSheet.Paste
    Sheets("Sheet1").Cells(ligne, 1) = stNoClient
    Return
 
 
End Sub

11/02/2007, 12h42
Manu_111

cool merci !;)
11/02/2007, 12h43
ouskel'n'or

Tu ne dois pas avoir de code entre copier et coller.
Je regarde (si bbil ne donne pas la solution avant ;) )
A+

Tu es sûr d'avoir une feuille qui se nomme "Sheet1" ?
Tu en as une qui s'appelle "Feuil1", mais Sheet1 est généralement issu de l'aide
Tu dis
11/02/2007, 12h48
Manu_111

Sheet1, c'est parce que j'ai acheté mon PC kan j'etais a l'etranger, donc g office en anglais.
11/02/2007, 13h16
ouskel'n'or

Ce qui importe, c'est le nom de tes feuilles. Dans ton code, tu emploies "Feuil1" et "Sheet1"
Les deux feuilles existent-elles ?
A+
11/02/2007, 13h22
Manu_111

oui bien sur
Renomme les a ta guise si tu veux. Je pourrais les changer après
11/02/2007, 13h27
ouskel'n'or

Ma question : Est-ce la même feuille ? Tu utilises les deux noms
A+
11/02/2007, 13h35
Manu_111

pardon,
non, sheet1 = fichier qui récupère les données

Feuil1 = feuille des fichiers excel du dossier

Bon , alors déjà, là il y a un pb
Code:

1 2 3 4 5 6 7 Do While Sheets("Feuil1").Cells(ligne, 2) <> "" ligne = ligne + 1 Loop Cells(ligne, 2).Select ActiveSheet.Paste Sheets("Sheet1").Cells(ligne, 1) = stNoClient Return
Tu cherches la première ligne vide dans Feuil1 et tu utilises le N° de ligne dans Sheet1
Tu peux expliquer ?
A+

11/02/2007, 13h43
Manu_111

merde, dsl, jme perds un peu avec toutes ces versions d'excel, j'ai un peu bossé sur la francaise et anglaise pour tester ma macro...

Feuil1 = feuille de regroupement des données
Sheet1 = feuille des classeurs excel
11/02/2007, 13h47
ouskel'n'or

Pour qu'on se comprenne bien,
1 - Tu colles tes données dans "Feuil1" ?
2 - Tu places le nom du client dans "Sheet1" ?
3 - Ces feuilles ne sont pas dans le même classeur ?
Tu es dur avec moi ;)
A+
11/02/2007, 13h51
Manu_111

je suis vraiment pas clair aujourdhui lol.
Donc on va changer les noms.

dans le classeur Excel de cconsolidation:
Regroupement = feuille qui regroupera le code client + les produits commandés sous forme de petite base de données

Dans tous les classeurs a consolider:
Export = feuille qui contient les produits commandés
Client = feuille contenant les données client dont le numéro client (G10)

Encore merci pour ton aide!
11/02/2007, 14h46
Manu_111

;)
11/02/2007, 15h18
Manu_111

Dsl, c vrai que pour moi c clair...
Alors dans le code,

Export = feuille ou les produits commandés se trouvent en colonne A a partir de la ligne 14
Client = feuille ou se trouve le code client en G10 (je ne l'ai pas mentionné dans mon code car je n'ai pas trouvé la ligne de commande)

Sheet1 = Feuille qui récupère les données de Export et Client
Dis moi si je nesuis pas clair
d'avance merci

Bon, je corrige le code en conséquence. Dans le tien, NomClient et données étaient dans deux feuilles séparées, CE QUE JE NE COMPRENAIS PAS :mouarf:

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
Option Explicit
Sub Baseb()
Dim Monfichier, PremLigneVideFeuil1 As Long, PremLigneVideFeuil1Sheet1 As Long
Application.ScreenUpdating = False
Dim stNoClient As String
    Monfichier = Dir("C:\Test\*.xls", vbReadOnly)
    While Monfichier <> ""
        'Recherche de la 1ère ligne vide dans la feuille où on COLLE
        PremLigneVideFeuil1 = ThisWorkbook.Sheets("Sheet1").Range("A65535").End(xlUp).Row + 1
        'Ouverture du fichier où on copie les données trouvées
        Workbooks.Open "c:\test\" & Monfichier
        Sheets("D1").Activate
        stNoClient = Sheets("Client").Range("G10")
'On copie 'on est dans Sheets("Export")
        Worksheets("Export").Range(Cells(14, 1), Cells(Range("A14").End(xlDown).Row, 1)).Copy
'on colle dans Feuil1 de "thisworkbook" : Classeur contenant les macros
        ThisWorkbook.Sheets("Sheet1").Activate
        Cells(PremLigneVideFeuil1, 2).Select
        ActiveSheet.Paste
'On place dans Sheet1 "thisworkbook" le nom du client ???????
        ThisWorkbook.Sheets("Sheet1").Cells(PremLigneVideFeuil1, 1) = stNoClient
'Fermeture de Monfichier
        'Workbooks(Monfichier).Close False
        Monfichier = Dir()
    Wend
End Sub

Tu dis
A+

11/02/2007, 15h27
Manu_111

2 pièce(s) jointe(s)

Pour que tout soit plus clair, je t'ai joint un exemple.

Le fichier "Regroupement" est celui qui doit servir a tout consolider en base de données

Le fichier "Données" est un exemple de fichier que j'aimerais consolider. J'en ai plusieurs présents dans un dossier. Les données se trouvent au mm endroit dans chaque fichier.

En fait, l'idée c'est koi:

Un client commande plus ou moins de produits dans la feuille Export (il peut en commander 1 comme plusieurs = dans ce cas, il y aura plus ou moins de lignes)

Cependant, dans le fichier Regroupement, j'aimerais qu'a chaque nom de produit commandé que l'on a rapatrié, indiquer en face le numéro du client concerné.

Tout ce que j'ai réussi (c sur ke c pas le top de la programmation) a faire pour le moment, c'est rapatrier les noms de produits commandés. Je suis bloqué pour coller le numéro du client en face de chaque produit commandé.
11/02/2007, 16h54
Manu_111

j'ai essayé d'avancer avec la macro que tu as modifié, cependant, le code client ne se colle pas bien.

Je n'arrive pas a affecter le code client correspondant aux noms des produits commandés

J'espère que tu ne t'es pas impatienté, je m'étais absenté :mouarf:
J'ai ouvert tes fichiers et voici le code.
Dans ton code tu avais une feuille D1... elle est passé où :aie:

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
Option Explicit
Sub Base()
Dim Monfichier, PremLigneVideFeuil1 As Long, PremLigneVideFeuil1Sheet1 As Long
Application.ScreenUpdating = False
Dim stNoClient As String
    Monfichier = Dir("C:\Test\*.xls", vbReadOnly)
    While Monfichier <> ""
        'Recherche de la 1ère ligne vide dans la feuille où on COLLE
        PremLigneVideFeuil1 = ThisWorkbook.Sheets("Sheet1").Range("B65535").End(xlUp).Row + 1
        'Ouverture du fichier où on copie les données trouvées
        Workbooks.Open "c:\test\" & Monfichier
        Sheets("Export").Activate
        stNoClient = Sheets("Client").Range("G10")
'On copie 'on est toujours dans Sheets("D1")
        Range(Cells(14, 1), Cells(Range("A14").End(xlDown).Row, 1)).Copy
'on colle dans Feuil1 de "thisworkbook" : Classeur contenant les macros
        ThisWorkbook.Sheets("Sheet1").Activate
        Cells(PremLigneVideFeuil1, 2).Select
        ActiveSheet.Paste
'On place le nom du client dans Sheet1 de "thisworkbook"
        ThisWorkbook.Sheets("Sheet1").Cells(PremLigneVideFeuil1, 1) = stNoClient
'Fermeture de Monfichier
        'Workbooks(Monfichier).Close False
        Monfichier = Dir()
    Wend
End Sub

Ainsi c'est plus adapté ;)
A+

11/02/2007, 17h39
Manu_111

Merci bcp Ouskel, ca marche !! Depuis le temps ke j'étais bloqué!

Juste un dernier truc, j'ai testé avec ta macro, le code client apparait en face du premier produit kil a commandé, mais en face de toutes les lignes.

Je vais y aller a la barbare, c'est à dire faire une macro qui sélectionne la colonne A > F5 > Cellules vides > = cellule du dessus.

Si tu as une meilleure idée, n'hésite pas, enttk, encore merci pour ton aide!
11/02/2007, 17h41
ouskel'n'or

Non, je n'ai pas ce phénomène.
Efface toutes les données dans ton fichier regroupement et relance ta macro ;)
Tu dis
A+
11/02/2007, 17h44
Manu_111

j'ai réessayé, et j'ai toujours ce pb.... De tte facon, c pas très grave, je sais comment faire maintenant pour empecher ce phénomene
11/02/2007, 18h22
ouskel'n'or

Mon code ne fait pas "ça", en fait, il ne peut pas faire ça, tu es sûr de n'avoir rien changé ?
A+

Fuseau horaire GMT +2. Il est actuellement 10h31.