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