Problème : incompatibilité de type

Bonjour à tous et à toutes.

Le titre est explicite, voici le code :

Dim TabFinal(), nbL
Dim wB as Workbook

For Each fichier In Workbooks
    If fichier.Name = "SDA.xlsx" And Not ouvert Then ouvert = True: Set wB = fichier
Next fichier
If Not ouvert Then Set wB = Workbooks.Open(Filename:=stfile)

nbL = 1
While wB.Sheets(1).Cells(nbL, 1) <> ""
     nbL = nbL + 1
Wend
nbL = nbL - 1

TabFinal = wB.Sheets(1).Range("A2", "C" & nbL) 

Et c'est sur cette dernière ligne de code que ça le met une erreur : incompatibilité de type

Merci de votre aide.

Cordialement.

Bonjour,

Essaie : TabFinal = wB.Sheets(1).Range("A2:C" & nbL)

Gelinotte

Non gelinotte, ça ne marche pas. Mes cellules sont bien du même type, certaine sont vide, mais que je prends que les non-vide ça marche pas.

D'autres idées ?

Bonjour,

test avec : TabFinal = wB.Sheets(1).Range("A2:C" & nbL) .value

Ah oui merci ça marche bien

merci beaucoup minanse et à toi aussi gelinotte pour la volonté de vouloir m'aider