Bonjour,


Dans mon fichier excel j'ai une macro de recherche qui en fonction de la marque et de la référence entrées, va rechercher dans un autre fichier (pour le moment ouvert) la designation le prix et tout le tralala qui va bien pour venir après le coller dans mon fichier.
Mon second fichier: Tarifs

Actuellement, a l'ouverture de mon 1er fichier (logiciel), j'ouvre aussi le fichier Tarifs. quand je lance ma macro de recherche tout marche bien.
Ca fait quelques clignotements dû au changement de pages mais rien de bien méchant.

Mon probleme est que j'utilise le fichier tarif que lorque je lance ma recherche, et j'aimerai que soit le fichier tarif ne soit pas visible ou qu'il ne s'ouvre meme pas mais que la recherche soit exécutée.

J'ai deja regarder l'utilisation des classeurs fermés mais un message d'erreur s'affiche.


Mon code actuel
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
 
     Windows("Tarifs.xls").Activate
            Sheets(num_onglet).Select
            derniereligne = Range("A65535").End(xlUp).Row
            For i = 2 To derniereligne
                If Range("A" & i).Value <> "" Then
                    If Range("A" & i).Value = ref Then
                        designation = Cells(i, 2)
                        Windows(nomfichier).Activate
                        Cells(a, 6) = designation
                        Windows("Tarifs.xls").Activate
                        Range("C" & i).Select
                        Selection.Copy
                        Windows(nomfichier).Activate
                        Range("L" & a).Select
                        ActiveSheet.Paste
                        Windows("Tarifs.xls").Activate
                        Range("D" & i).Select
                        Selection.Copy
                        Windows(nomfichier).Activate
                        Range("K" & a).Select
                        ActiveSheet.Paste
                        classe_remise = Range("K" & a).Value
                        Windows("Tarifs.xls").Activate
                        Sheets("Remise").Select
                    End If
                End If
            Next i