Récupérer valeurs d'un autre classeur

[kikorun]

Bonsoir à tous 😛

J'ai une petite question qui je pense ne devrait pas poser de problème à la plupart d'entre vous, désolé pour mon piteux niveau !

Je travaille sur la feuille1 de mon classeur Excel (principal.xls);
J'aimerais, sur cette feuille, créer un bouton et y associer une macro qui, lorsqu'elle serait exécutée, irait récupérer des valeurs contenues sur la première feuille d'un autre classeur (secondaire.xls), pour les afficher à un endroit bien précis de mon document courant.

Par exemple, aller récupérer sur secondaire.xls, la valeur des cellules A1, B2, C5 et D7 pour les copier dans ma feuille (principal.xls) dans les cellules A3, B4, C8 et E9.

Merci d'avance pour votre précieuse aide !!

Kikorun 😱

 

[Foufoudora]

Re : Récupérer valeurs d'un autre classeur

Salut IFFIC,

elle sera toujours la bienvenue.
je suis preneur

Cordialement

Foufoudora

 

[kikorun]

Re : Récupérer valeurs d'un autre classeur

bon ! ça sera chacun son tour (mdr)

@foufoudora

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$3" Then
Sheets("Feuil1").Range("A1") = Target.Value
End If
If Target.Address = "$C$2" Then
Sheets("Feuil1").Range("A2") = Target.Value
End If

transfere laes cellules B3 ou C2 de la feuille active aux cellules A1 et A2 de la feuille1

@Kikorun
je jette un oeil

Bonjour et bonne semaine à tous !
Je cherche toujours à récupérer les valeurs via le bouton (macro) mais fichier source fermé. Si la solution est trop complexe à mettre en oeuvre tant pis! Je me contenterai de la première solution qui est déjà trés sympa, en oeuvrant fichier destination ET fichier source!

@ pluche.

 

[michel_m]

Re : Récupérer valeurs d'un autre classeur

Bonsoir,
ci joint proposition, comme je l'avais déjà proposé plus haut (!...) de lecture dans un fichier fermé

La macro:

Sub lire_ferme()
Dim chemin As String
chemin = ThisWorkbook.Path
Range("A3") = ExecuteExcel4Macro("'" & chemin & "\[source.xls]Feuil1'!R1C1")
Range("B4") = ExecuteExcel4Macro("'" & chemin & "\[source.xls]Feuil1'!R2C2")
Range("C8") = ExecuteExcel4Macro("'" & chemin & "\[source.xls]Feuil1'!R5C3")
Range("E9") = ExecuteExcel4Macro("'" & chemin & "\[source.xls]Feuil1'!R7C4")
End Sub