Discussion :

[Thomas69]

Bonjour

je suis un débutant en VB et excel
mon patron me demande de créer une application qui pour lui est simple

je dois faire apparaitre dans une colonne un nom de produits que je dois allez chercher dans un dossier ou j'ai plusieurs fichier excel
tous ca en menus deroulants

dans un second temps dans une autre colonne
faire apparaitre des parametres de ce produits qui ce trouve dans son fichier

et en dernier le numéro de ce lot qui ce trouve dans le fichier


Pour certain ces simples mais ca fait depuis 3 jours que j'essaye avec aides en ligne et tutoriels et je n'y arrive pas

est ce possible d'avoir un coup de main SVP


Ps:je suis stagiaire et les seules notions que j'ai c'est du GW basic

[yoaugoulo]

est ce possible d'avoir un coup de main SVP

si tu veux tu peux m envoyer les fichiers et je verrais ce que je peux faire

[Thomas69]

ben je ne peux pas la taille de mes fichiers ton trop lours pour le site
envoie moi ton email par MP au pire si tu veux vraiment t'embeter

ce que je recherche ce sont soit des exemples ou autres
qui me permetrons de mieux comprendres

[Thomas69]

Code :

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

1
2
3
4
5
6
7
8
Sub Import()
Workbooks.Open Filename:= _
"C:\........\....\A180.*.xls"
Windows("Monfichier.xls").Activate
Range("B2").Select
ActiveCell.FormulaR1C1 = "=[Monfichier.xls]ENR030!R18C3"
Workbooks("Monfichier.xls").Close
End Sub

est ce code est correcte
pour prendre dans tous les fichiers A180
une valeurs dans la cellule B2

[ouskel'n'or]

J'ai un exemple de création de menu dans la barre de menus.

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
31
Sub CréationMenuGraphes()
Dim MonControl
Dim MonMenu
Set MonControl = CommandBars("Worksheet Menu Bar").Controls _
    .Add(Type:=msoControlPopup)
    With MonControl
        .Caption = "Mise en forme des graphes" ' Nom du menu
        Set MonMenu = MonControl.Controls.Add(msoControlButton)
            With MonMenu
                .Caption = "Barregraphe Dépenses" ' Nom de la commande
                .OnAction = "BarregrapheDépenses"
            End With
        Set MonMenu = MonControl.Controls.Add(msoControlButton)
            With MonMenu
                .Caption = "Camembert Dépenses"
                .OnAction = "GrapheDépensesAnnée"
            End With
        Set MonMenu = MonControl.Controls.Add(msoControlButton)
            With MonMenu
                .Caption = "Barregraphe recettes"
                .OnAction = "Barregrapherecettes"
            End With
        Set MonMenu = MonControl.Controls.Add(msoControlButton)
            With MonMenu
                .Caption = "Camembert recettes"
                .OnAction = "CamembertDépensesAnnuelles"
            End With
    End With
    Set MonMenu = Nothing
    Set MonControl = Nothing
End Sub

où .Caption est le nom affiché dans le menu
et .OnAction = "Nom de la macro associée"
Dans chaque macro, tu mets le code pour afficher les produits dans la bonne colonne.
Tu peux faire différemment mais ça te fait déjà une solution.

[Thomas69]

je te remercie pour ton aide ouskel'n'or

une question dans mon repertoire j'ai plusieurs fois le meme nom du produits mais pas le meme numero de lots

qd je fais une recherche de mon produits
comment je peux faire pour differencier mes produits
car c'est que si je veux faire une comparason de des parametres entres differents de lots du meme produits

[ouskel'n'or]

Donne deux exemples de nom de fichiers, là, comme dans un répertoire tu ne peux avoir qu'un nom de fichier sans homonyme, je ne comprends pas.
(j'ai pris la discussion en route, et t'ai répondu parce que je n'ai pas vue de réponse à ta question du tout début... faut tout m'expliquer )
A+

[Thomas69]

A180_PROD_1_LOT_7083004.xls
A180_PROD_1_LOT_7083005.xls


moi dans ma 1er colonne je cherche a faire apparaitre en menus deroulant le nom de tous les produits
mais comme tu peux voir des fois un produit (PROD_1) existe en plusieurs exemplaires mais avec un lot differents

c'est pour quand dans une autre colone je fais apparaitre le numero de lot pour savoir c'est lequel

mais vu que je veux faire des comparaisons de produits avec des lots differents je sais pas comment faire

car dans une colone je fais apparaitre leurs parametres selon le produit et le lots

[Thomas69]

A180_PROD_1_LOT_7083004.xls
A180_PROD_1_LOT_7083005.xls
A180_PROD_1_LOT_7083006.xls
A180_PROD_2_LOT_7083001.xls
A180_PROD_2_LOT_7083002.xls
A180_PROD_3_LOT_7083003.xls
A180_PROD_4_LOT_7083004.xls
A180_PROD_5_LOT_7083004.xls

voici une partie de mes fichiers
comme tu peux le voir certain produits ce repete mais pas leurs lots
le hic c'est quand je voudrais des comparaisons
entres les produits et leurs parametres

est ce qu'une macro suplementaire est necessaires pour diferencier les lots sur les memes produits et faire un choix


ou tout simplement sur la macro qui existe on peut rajouter une fonction pour choisir plusieurs produits et faire apparaitres leurs parametres a tous en meme temps mais sur des colones differente?

[ouskel'n'or]

Si le n° des lots est formaté (toujours 7 chiffres) c'est facile.
D'un côté tu peux récupérer le N°

Code :

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

NoLot = Left(Right(A180_PROD_1_LOT_7083004.xls,11),7)

et d'un autre côté tu peux reconstituer le nom du fichier

Code :

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

NomFich = NomDuProduit & "_PROD_" & NoDuProduit & "_LOT_" & NoLot

Tu peux aussi faire ainsi

Code :

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

1
2
3
TabProduits = Split(NomFich, "_")
NoLot = Left(TabProduits(UBound(TabProduits)), _
        Len(TabProduits(UBound(TabProduits))) - 4)

Plus long mais aussi plus sûr
A+

[Thomas69]

Ben je te remercie
de toute facon j'ai tous le week pour plancher dessus

des que c'est finis je reviendrais poster pour des ptites verifs

merci pr les infos a tous