Erreur d'execution '9

Bonjour,

Une erreur d'éxecution 9 intervient dans mon programme sans que je sache pourquoi.

Voici mon code :

Dim wkDest As Workbook

Dim Tablo

'******Recopie classeur --> classeur

Set wkDest_1 = Application.Workbooks.Open("C:\Users\baptiste.moulin\Desktop\BS CABLE\Test\SIGNAL CABLE TEST SHEET.xlsx")

'ThisWorkbook.Sheets("MCC - INS - CABLES").Range("B16:B18").Copy wkDest.Sheets("Feuil1").Range("A1")

'wkDest.Close True

'***** tant que cellule pleine recopie

'Application.ScreenUpdating = False

With ThisWorkbook.Sheets("MCC - INS - CABLES")

Num_Doc = .Range(.Cells(16, 4), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 4))

Tag = .Range(.Cells(16, 2), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 2))

Brins = .Range(.Cells(16, 6), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 6))

Section = .Range(.Cells(16, 7), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 7))

Typ_Cab = .Range(.Cells(16, 5), .Cells(.Cells(.Rows.Count, 5).End(xlUp).Row, 5))

With wkDest_1.Sheets("Sheet1")

For i = LBound(Num_Doc, 1) To UBound(Num_Doc, 1)

For j = LBound(Num_Doc, 2) To UBound(Num_Doc, 2)

If Num_Doc(i, j) <> "" Then .Cells(2 + i, 7 + j) = Num_Doc(i, j)

If Tag(i, 2 - j) <> "" Then .Cells(4 + i, 1 + j) = Tag(i, j)

If Typ_Cab(i, 1 + j) <> "" Then .Cells(4 + i, 3 + j) = Typ_Cab(i, j) If Brins(6 + i, j) <> "" Then .Cells(1 + i, 1 + j) = Brins(i, j) If Section(i, 3 + j) <> "" Then .Cells(1 + i, 1 + j) = Section(i, j)

Next j

Next i

End With

L'erreur concerne les lignes typ_cab, Brins et section.

Les lignes Num_Doc et Tag fonctionnent parfaitement.

Merci pour votre aide.

Cordialement.

Bonjour,

difficile de voir sans le fichier, notamment si ce sont des indices hors limite, voire négatifs

dans ce genre de cas, comment à mettre des debug.print suivies des valeurs ad hoc et ouvre le débogueur avec Ctrl+G dans l'éditeur de macro

bonjour

salut Steelson

pour mon info, à quoi sert la macro ?

Bonjour, Salut à tous !

Alors là, tu fais fort ! Trois fois le même sujet avec des titres différents :

Boucle imbriquée - hier à 16h09

Erreur d'exécution 9 - hier à 19h26

Problème de For - hier à 23h30

J'ai répondu sur le dernier, espérant t'inciter à réfléchir sur ton code et ta façon de le contruire. Il serait temps de le faire ! A quoi pensais-tu donc ?