Transfert de donnée d'un classeur vers un aut

devinsty -  
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour, a tous je suis un débutant en vba excel ,j'ai un ptit problème.
j'ai un feuille dans laquelle j'ai enregistrer des valeurs et j'enregistre ces valeurs a l'aide d'un bouton enregistrer. lorsque je finis de saisie les données dans ma feuille je clique sur le bouton enregistrer et aussi tôt une feuille d'un autre classeur que j'ai definis dans mon code enregistrer s'ouvre.Dans cette dernier feuille ,je veux que certaines valeurs de ma première feuille se stocks automatiquement dans la second.
par exemple si j'entre 2 dans la cellule A5 par exemple je veux que cette valeur affiche automatiquement dans la cellules B2 DE LA SECONDE FEUILLE.
je ne sert comment aidez moi svp.

voici le bouton enregistrement sur lequel je clique pour ouvrir ma second feuille
Private Sub Cmbenrg_Click()
Dim WB As Workbook
Set WB = Workbooks.Add(ThisWorkbook.Path & "\rme.xlsx")

End Sub

10 réponses

  1. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonjour,
    Comprend pas.. tu dis,
    voici le bouton enregistrement sur lequel je clique pour ouvrir ma second feuille
    Mais ton code n'ouvre pas une feuille il crée un autre classeur ?
    A+
    0
  2. devinsty
     
    exactement il créer un autre classeur ds lequel je veux que certaines valeurs de la feuille précèdent se retrouve dans la feuille du nouveau classeur
    0
  3. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Faut sélectionner ta feuille..
        WB.Sheets("Feuil1").Select

    et ensuite copier..
    0
  4. devinsty
     
    je veux copier certaines valeurs et non toutes la feuille
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Et ce classeur... ThisWorkbook.Path & "\rme.xlsx
    il existe déjà ?
    Sinon, en mettant le nom en "dur" dans le code tu va avoir des problèmes si tu veux créer une deuxième fois ce classeur ???
    0
  7. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    M'en doutais...
    Alors tu ne doit pas ajouter un classeur mais l'ouvrir...
        WorkBooks(ThisWorkbook.Path & "\rme.xlsx").Open

    Note : après cette ligne c'est le classeur qui vient d'être ouvert qui est actif je verrais donc pour copier une cellule...
        Sheets("NomDeLaFeuilleOuCopier").Range("A2") = Workbooks(NomDeL'autreClasseur.xlsx").Sheets("Feuille").Range("Z100")

    A toi d'adapter les noms et adresses des cellules.
    Attention au extention de classeur.. xlsx..xlsm..
    0
  8. devinsty
     
    ok ne pass pas sa marque une erreur d'exécution 9
    0
  9. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Met le code sur un poste suivant
    0