[VBA-E] Base de donnees routine

Version imprimable

Voir 40 message(s) de cette discussion en une page

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+

Voir 40 message(s) de cette discussion en une page