Récupérer valeur d'une cellule d'un autre classeur Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
d
daxx42
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 15 juillet 2015
Version d'Excel : 2010

Message par daxx42 » 15 juillet 2015, 09:20

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
Avatar du membre
Dan
Modérateur
Modérateur
Messages : 6'280
Appréciations reçues : 106
Inscrit le : 27 avril 2007
Version d'Excel : 2010, 2000, Mac 2011

Message par Dan » 15 juillet 2015, 12:39

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
@+ Dan ;)
d
daxx42
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 15 juillet 2015
Version d'Excel : 2010

Message par daxx42 » 15 juillet 2015, 13:04

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

A + :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message