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
A voir également:

10 réponses

lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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
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
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Faut sélectionner ta feuille..
    WB.Sheets("Feuil1").Select

et ensuite copier..
0
devinsty
 
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 9042 Statut Contributeur 1 191
 
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
devinsty
 
le classeur existe déjà
0
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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
devinsty
 
ok j'essai et je te fè sign
0
devinsty
 
ok ne pass pas sa marque une erreur d'exécution 9
0
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Met le code sur un poste suivant
0