Discussion :

[goby45]

Bonjour,

Petite erreur avec cette macro :

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
Private Sub CommandButton1_Click()
Dim Model As String
Dim derniere_ligne, derniere_ligne_correspondance, i, j As Long
Dim wkb_correspondance As Workbook
 
Set wkb_correspondance = Workbooks("Y:\Bastien Le Guennec\Correspondance fiches outillage produits.xls")
derniere_ligne_correspondance = wkb_correspondance.Worksheets(1).Range("A65536").End(xlUp).Row
derniere_ligne = ThisWorkbook.Worksheets(7).Range("A65536").End(xlUp).Row
 
For i = 3 To derniere_ligne
    For j = 3 To derniere_ligne_correspondance
        If ThisWorkbook.Worksheets(7).Range("E" & i) = wkb_correspondance.Worksheets(1).Range("A" & j) Then
           If wkb_correspondance.Worksheets(1).Range("A" & j) = "9" Then
               If ThisWorkbook.Worksheets(7).Range("F" & i) = wkb_correspondance.Worksheets(1).Range("B" & j) Then
 
               End If
            End If
        End If
        ThisWorkbook.Worksheets(7).Range("H" & i).Value = wkb_correspondance.Worksheets(1).Range("H" & j)
    Next j
Next i
End Sub

L'erreur au débogage est sur la ligne :

Code :

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

Set wkb_correspondance = Workbooks("adresse_classeur.xls")

Pourtant, j'ai bien vérifié l'adresse de mon classeur, mais rien n'y fait, quelque chose m'échappe !

Si quelqu'un peut m'éclairer ça serait cool !
Merci beaucoup

[Minick]

Salut,

Je suppose que le classeur n'est pas ouvert.

Il te manque donc un Open

Code :

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

Set wkb_correspondance = Workbooks.Open("Y:\Bastien Le Guennec\Correspondance fiches outillage produits.xls")

[goby45]

Merci pour ta réponse !
Ca fonctionne, mais on pourrait pas faire ça sans ouvrir le classeur ?

[Minick]

Re,

C'est possible regarde ce tuto pour savoir comment faire

[goby45]

Merci beaucoup pour la réactivité