Récupérer valeur d'une cellule d'un autre classeur

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

Bonjour

Do While Lig <> workbooks("source.xlsm").sheets("Feuil1").range("K1").Value

Faut que le fichier Source soit ouvert évidemment

Si ok, merci de cocher la case à coté du bouton EDITER afin de cloturer le fil lors de votre réponse

Crdlt

Merci beaucoup pour ton aide ! J'ai un peu adapté mais c'est ce que je cherchais

A +

Rechercher des sujets similaires à "recuperer valeur classeur"