Récupérer valeurs d'un autre classeur

kikorun · 21 Septembre 2006

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 · 22 Septembre 2006

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

Salut IFFIC,

elle sera toujours la bienvenue.
je suis preneur

Cordialement

Foufoudora

kikorun · 25 Septembre 2006

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

pierrejean à dit:
bon ! ça sera chacun son tour (mdr)

@foufoudora

Code:

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 · 25 Septembre 2006

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

Récupérer valeurs d'un autre classeur

kikorun

XLDnaute Nouveau

Foufoudora

XLDnaute Occasionnel

kikorun

XLDnaute Nouveau

michel_m

XLDnaute Accro

Discussions similaires

Récupérer valeurs d'un autre classeur

kikorun

XLDnaute Nouveau

Foufoudora

XLDnaute Occasionnel

kikorun

XLDnaute Nouveau

michel_m

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency