Discussion :

[mxitzny]

Bonjour, j'ai besoin de votre aide s'il vous plait
J'ai fais une macro qui cherche des valeurs d'un autre classeur qui constitue ma base de donnée, don j'ai utilisé une syntaxe qui ouvre qui permet d'ouvrir une fenêtre pour sélectionner le path ( l'endroit de mon fichier excel qui contitue ma BDD).
le problème je veux qu'une fois mon fichier source est ouvert lamacro ne me demande pas de sélectionner mon path
voici mon code

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Private Sub CommandButton1_Click()
Dim Fsource As Excel.Workbook
Dim ws As Worksheet
Dim w As Worksheet
Dim Ref As Long
Dim chemin As String
Dim nb_lig As Integer
Dim Qty As Integer
Dim trouv As Boolean
Dim s As Integer
'For Each Fsource In Application.Workbooks
 
 While ouvert <> True
 
   chemin = Application.GetOpenFilename          'ouvrir une une fenetre qui permet de selectionner le fichier excel
 
 
Set Fsource = Workbooks.Open(Filename:=chemin)       'ouvrir le fichier excel qui contient la BDD
 
Set ws = Fsource.Worksheets("BDD")
ouvert = True
 
Wend
Set w = Workbooks("destination.xlsm").Worksheets("Feuil2")
nb_lig = ws.Range("A" & Rows.Count).End(xlUp).Row                     'compter le nombre des lignes
j = w.Range("A" & Rows.Count).End(xlUp).Row + 1                       'Trouver la cellule active
Ref = Me.TextBox2
Qty = Me.TextBox1
 
 
 
With ws
 
For i = 4 To nb_lig
If Ref = .Cells(i, 3).Value Then       'Si le reference = à la valeur de la troisième colonne dans la feuille des données on remplie le tableau
trouv = True
w.Cells(j, 1) = j - 4
w.Cells(j, 3) = Ref
w.Cells(j, 5) = Qty
w.Cells(j, 2) = .Cells(i, 1)
w.Cells(j, 6) = .Cells(i, 4)
w.Cells(j, 7) = .Cells(i, 5)
w.Cells(j, 8) = .Cells(i, 6)
w.Cells(j, 9) = .Cells(i, 7)
w.Cells(j, 10) = .Cells(i, 8)
w.Cells(j, 11) = .Cells(i, 9)
w.Cells(j, 12) = .Cells(i, 10)
w.Cells(j, 13) = .Cells(i, 11)
 
 
End If
Next i
End With
If trouv = False Then
    MsgBox ("verifiez votre saisie")
End If
 
Unload Me
End Sub

Merci pour votre aide

[unparia]

Bonjour
Pourquoi une boucle là ou suffit une simple expression conditionnelle (if not ouvert then)
A ce propos :
- où et comment as-tu déclaré la variable ouvert ?
- où et comment la passes-tu à True ?

Entre autres car tu pourrais également :
verfier si le classeur source est ou non dans la collection Workbooks
ou encore : déclarer fsource en variable publique et vérifier ni not nothing
les solutions ne manquent vraiment pas ...

[Menhir]

Pourquoi une boucle là ou suffit une simple expression conditionnelle (if not ouvert then)

Expression à placer après le GetOpenFilename qui se contente de tester la variable "chemin" (la variable "ouvert" est inutile).

Code :

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

If Chemin = "" Then Exit Sub

Pour bien faire, il faudrait aussi vérifier qu'il y a bien une feuille "BDD" est bien dans le fichier sélectionné et prévenir l'utilisateur si ce n'est pas le cas.
Dans cette configuration, une boucle pourrait être utile pour permettre à l'utilisateur de sélectionner éventuellement un autre fichier.

[mxitzny]

D'accord merci pour votre aide

[Pierre Fauconnier]

Salut.

Je ne connais pas l'organisation de tes données source, mais je n'ai jamais aimé travailler avec un fichier Excel nécessitant qu'un autre soit ouvert.

Perso, je préfère rapatrier toutes les données source en copie locale dans le classeur de travail et travailler avec cette copie.

Ne pourrais-tu pas importer tes données via les outils de l'onglet Données? Ca permettrait de rafraîchir les données source par simple actualisation, et cela ne demande aucune macro.

Si pour un raison ou une autre, tu ne peux procéder avec les outils natifs d'Excel, tu pourrais alors importer une seule fois les données source dans ton classeur de travail puis travailler en local, quitte à prévoir un rafraîchissement par macro.

L'idée, en tout cas, est de travailler avec une copie locale plutôt que d'aller dans le fichier source chaque fois que tu en as besoin.