Problème d'onglet pour une macro

Salut à tous.

J'avais besoin d'une macro spécifique qu'un membre de votre site m'a donné. En fait cette macro faisait changer des données sur l'onglet feuille 3 à partir de l'onglet de l'onglet feuille 3. J'ai besoin d'avoir ce bouton de commande sur l'onglet feuille 1. J'ai essayé d'en créer un mais une fois le code rentré, il me m'effectue la macro dans l'onglet feuille 1 et pas dans celui feuille 3 (je sais pas si j'ai été très clair).

Je vous laisse les 3 fichiers excel mais c'est le principal qu'il faut changer.

https://www.excel-pratique.com/~files/doc2/Principal_2_.xls

https://www.excel-pratique.com/~files/doc2/dXo6lrennes_secondaire_2_.xls

https://www.excel-pratique.com/~files/doc2/BvTNCnancy_secondaire_2_.xls

Je vous remercie d'avance.

A bientôt.

Djunk.

Bonjour,

Bizarre comme code...

Pourquoi tu ne renommes pas ta feuille 3 en feuille 1 ? (Feuil3 --> Feuil1)

Amicalement

Dan

edit Dan

Où essaie en changeant cette instruction dans la macro LitClasseurFermé

Remplace

onglet = "Feuil1"

par

onglet = activesheet.name

Dan

Salut.

En fait c'est pas ça j'ai besoin du bouton sur la feuille 1 mais que la modification s'effectue sur la feuille 3.

A mon avis le truc à modifier est au niveau de : ChampOuCopier = "C2:D1000" où je pense qu'il faut lui préciser de modifier la feuille 3 une fois le bouton dans la feuille 1 crée mais j'arrive pas à le faire.

Cordialement.

Djunk.

re,

Tu aurais du rester sur le même fil cela m'aurait permis de voir que c'est NAD qui t'a proposé une solution.

Ce que tu veux faire, c'est placé suir la feuille 1 recopier les données de la feuille 1 du classeur (Nancy par exemple) dans la feuille 3 du classeur où se trouve le bouton ?

Dan

edit Dan :

Essaie comme ceci :

• mets ton bouton en feuille 1
• Remplace les deux codes par ceux ci-après :

Sub LitClasseurFermé()
Dim champoucopier, champalire
Dim chemin As String, fichier As String, onglet As String
  champoucopier = "C2:D1000"
  chemin = ThisWorkbook.Path
  fichier = Range("A1") & ".XLS"
  onglet = "Feuil1"
  champalire = "B2:C1000"
  LitChamp champoucopier, chemin, fichier, onglet, champalire
End Sub

Sub LitChamp(champoucopier, chemin, fichier, onglet, champalire)
With Sheets("Feuil3")
    .Range(champoucopier).FormulaArray = "='" & chemin & "\[" & fichier & "]" & onglet & "'!" & champalire
    .Range(champoucopier) = .Range(champoucopier).Value
End With
End Sub

Amicalement

Dan

PS : Si ton pb est terminé, pense à mettre RESOLU sur le fil. Explication ici --> https://forum.excel-pratique.com/viewtopic.php?t=13

Merci de ta participation.

Terrible ça marche c'est exactement ça.

Dsl pour l'organisation de mes messages je ferai pas les mêmes conneries la prochaine fois.

Merci encore à vous deux j'adore ce forum à chaque fois que j'ai un souci vous arrivez à le régler.

Bon courage.

Djunk.