Discussion :

[lavalois]

Bonjour,

Je suis débutant vba,. Je cherche depuis un certains temps par un inputbox, d'ouvrir un fichier (formulaire) excel dans un répertoire selon le numéro d'article dans le inputbox. Je ne trouve rien. Le même fichier peux s'ouvrir pour des numéro d'article différent.

Merci d'avance!

[Invité]

Bonjour

Un peu plus de détails seraient nécessaires :

Où se trouve le numéro d'articles ? Dans le nom du fichier ? Dans le fichier ?
Les répertoires sont-ils ordonnés ?

Peux-tu nous montrer ce que tu as essayé de faire ?

Starec

[lavalois]

Je n' ai rien de fait.

Je peux faire faire un fichier dans le même répertoire que les fichiers (formulaire). Ce fichier pourrait contenir soit inputbox et la on pourrait choisir le numéro d'article ou une liste déroulante pour choisir mon article.

Mais je n'est rien de fait car je ne sais pas comment faire ma structure.
Je suis débutant, mais si tu me donnes une idée pour commencer, je vais pouvoir commencer ce projet, faire des recherche pour avancer. Et par la suite je pourrais te le montrer. Je ne veux pas le faire faire par un autre, je veux juste un idée pour savoir par quoi commencer et comment le structurer.

Merci d'avance pour ton aide.

[lavalois]

J' ai fait ceci en copiant un truc sur internet

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
Sub Macro1()
'
' Macro1 Macro
'
Dim Num_Article As String, Stockage As String
'définir le répertoire de stockage des fichiers
Stockage = "C:\Documents and Settings\HP_Administrateur\Bureau\testvba\"
'demande le numéro d'article
 
Num_Article = Application.InputBox(prompt:="Entrez le numéro d'article", Type:=2)
If Num_Article > "" Then
'teste l'existence du fichier avant de l'ouvrir
If Not (Dir$(Stockage & Num_Article & ".xls", vbDirectory) = "") Then
Workbooks.Open Filename:=Stockage & Num_Article & ".xls"
Else
MsgBox "Fichier " & Stockage & Num_Article & ".xls" & " non trouvé"
End If
End If
End Sub

cela fonctionne bien mais je ne sais pas comment faire une liste déroulante dans un inputbox pour un choix plus facile. Aussi je ne sais pas comment faire pour que 2 numéros d'articles différent ouvre le même formulaire (fichier).

merci encore pour votre aide

[JackOuYA]

Bonjour,


Tu ne peu pas rajouter, une liste à une "input box" une input box est plus où moins figée ..

Utilise un UserForm , il y as plein d'exemble sur ce forum, voir aussi :

http://excel.developpez.com/cours/?page=prog#userform