erreur d'execution 9

[c0uike]

Bonjour à tous,

voilà j'ai codé un code pour copier des valeur vers un classeur mais j'ai une erreur 9

Sub copie_prix_facture()
    Dim fich1 As String, N_FACTURE As Integer
    fich1 = ThisWorkbook.Name

        Workbooks.Open Filename:="C:\b\facture\" & "fils.xlsm"    'chemin à préciser
        N_FACTURE = Sheets("facture").Range("K3")
        Windows("fils.xlsm").Activate
        numero_ligne = Sheets("base_facture").Columns("A:A").Find((N_FACTURE), SearchDirection:=xlNext).Row
        Windows(fich1).Activate
        Sheets("facture").Range("K3").Copy Workbooks("fils.xlsm").Sheets("base_facture").Cells(numero_ligne, 1)
        Sheets("facture").Range("K37").Copy Workbooks("bourbonetfils.xlsm").Sheets("base_facture").Cells(numero_ligne, 5)
        Application.DisplayAlerts = False
        Workbooks("fils.xlsm").Save
        Windows("fils.xlsm").Close
        ThisWorkbook.Save
        Application.DisplayAlerts = True

End Sub

Pouvez vous m'aidé je suis bloqué depuis hier dessus.

 

[Paritec]

Re : erreur d'execution 9

Bonjour Couike le forum
oui il est ou le fichier?
a+
papou

 

[c0uike]

Re : erreur d'execution 9

Tous est dans le dossier C:\b\facture\

 

[Paritec]

Re : erreur d'execution 9

Re Couike le forum
et là c'est quoi ????

Workbooks.Open Filename:="C:\b\facture\" & "fils.xlsm" 'chemin à préciser donc précise!!!

 

[c0uike]

Re : erreur d'execution 9

l'erreur arrive plus tard a partir de cette ligne

numero_ligne = Sheets("base_facture").Columns("A:A").Find((N_FACTURE), SearchDirection:=xlNext).Row

 

[herve62]

Re : erreur d'execution 9

Ajoute le nom de ton classeur de la Sub ca devrait aller mieux
N_FACTURE = Workbooks("Classeur2").Sheets("facture").Range("K3")