Bonjour,
Je voudrais récupérer la valeur d'une cellule d'un autre classeur et l'insérer dans une variable. J'ai tenté cela, mais ça ne marche pas :
Sub detectDerniereCase()
Dim Lig As Long
Dim Lig2 As Long
Lig = 1 'première ligne à vérifier
Do While Not IsEmpty(Range("A" & Lig))
Lig = Lig + 1
Loop
Do While Lig <> [source.xlsm]Feuil1!$K1.Value
Cells(6, 6).Value = Lig
Cells(7, 6).Value = Lig
Cells(Lig, 1).Value = "=[source.xlsm]Feuil1!$A" & Lig
Cells(Lig, 2).Value = "=[source.xlsm]Feuil1!$A" & Lig
Cells(Lig, 3).Value = "=[source.xlsm]Feuil1!$A" & Lig
Cells(Lig, 4).Value = "=[source.xlsm]Feuil1!$A" & Lig
Loop
End Sub
C'est au niveau du Do While Lig <> [source.xlsm]Feuil1!$K1.Value.
Ca me dit erreur de syntaxe.
Merci d'avance pour votre aide !
Vincent Sagnard