Copie des donnes d'une ficher a un autre

Bonjour,

c'est urgent, Avec mes recherches par tous j'ai pas trouve la solution de mon probleme

si vous avez des idees ou meme des sujet qui ressemble a mon demande n'hesitez pas.

j'ai deux classeurs excel , je souhaite copier les donnes de colonnes B et D du fichie "base" dans les colonnes A et B des feuilles du fichier "zone prod" avec les condition suivantes :

les feuille du "zone prod" sont nommées par le nom du service qui se trouve dans le feuille " base" colonne K

par exemple je voulais copier le nom et le matricule des gens qui ont service "oppb" (dans colonnes k) dans la feuille qui est nomee "oppb" .

et en meme temps d'avoir le possibilites de choisis pour quelle type il faut copier les données ( avec un input par exp)

merci en avance.

Bonjour

apres recherche code que j'avais fais

sub recupere ()
'Récupération des informations dans le fichier de gestion des opérateurs

    Workbooks.Open Filename:= _
        "\\caracas\qualif_op\Personnel_Controle\Base-competences_pers_ctrl.xls"
        Windows("Base-competences_pers_ctrl.xls").Activate

        'feuil OPPA

        Sheets("tableau qualif").Select
       ActiveSheet.ShowAllData
       Selection.AutoFilter Field:=1, Criteria1:="Autocontrôle"
        Selection.AutoFilter Field:=11, Criteria1:="OPPA"
        DerCell1 = Range("A10").End(xlDown).Address
    Range(DerCell1).Select              'DerCell correspond à la dernière cellule du tableau
    Selection.Offset(0, 0).Activate
    fin_tableau_op = ActiveCell.Row
    Range("B10:B" & fin_tableau_op).Select
    'Sélection du tableau qualifs opérateurs
    Selection.Copy
     'Retour à la feuille d'origine
    Windows("Zones de production.xls").Activate
    'Selection de la dernière ligne du tableau "Base-competences_pers_ctrl", et copie des infos
   Sheets("OPPA").Select
    Range("A3").Select
    ActiveCell.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False       'Collage spécial (seulement les valeurs des cellules)

  Windows("Base-competences_pers_ctrl.xls").Activate
Range("D10:D" & fin_tableau_op).Select
    'Sélection du tableau qualifs opérateurs
    Selection.Copy
     'Retour à la feuille d'origine
    Windows("Zones de production.xls").Activate
    'Selection de la dernière ligne du tableau "Base-competences_pers_ctrl", et copie des infos
  Sheets("OPPA").Select
    Range("B3").Select
    ActiveCell.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False       'Collage spécial (seulement les valeurs des cellules)
 end sub ()
               

Cordialement