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

Fermé
devinsty - 20 août 2010 à 12:09
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 20 août 2010 à 17:19
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
A voir également:

10 réponses

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
20 août 2010 à 13:44
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
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
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
20 août 2010 à 14:06
Faut sélectionner ta feuille..
    WB.Sheets("Feuil1").Select

et ensuite copier..
0
je veux copier certaines valeurs et non toutes la feuille
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
20 août 2010 à 14:09
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
le classeur existe déjà
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
20 août 2010 à 14:31
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
ok j'essai et je te fè sign
0
ok ne pass pas sa marque une erreur d'exécution 9
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
20 août 2010 à 17:19
Met le code sur un poste suivant
0