Exporté données d'un classeur à un autre

Bonjour à tous,

Encore un nouveau problème pour le forum !!!!

Je vous explique :

J'ai deux classeur excel, un "Données machine" et l'autre "Données exportées".

C'est très simple je voudrais passer les données de l'un à l'autre des classeurs avec comme difficulté de créer dans le fichier "Données exportée" un nombre de ligne par machine comme montré dans le classeur.

Pour être plus précis si il 3 motos, j'aurais 3 lignes dans le classeur "Données exportées". pour le prix, prendre le prix global du classeur "Données machine" et le divisé par le nombre de machine.

j'arrive à passer d'un classeur à un autre les donnée mais je n'arrive pas à décomposé et créer plusieurs ligne via le nombre de machine.

La macro utilisée est assez complète. j'espère pour arriver à bout.

Merci d'avance au forum.

Bonjour,

une proposition de macro. j'ai fait le choix de mettre cette macro dans "données exportées", d'où le xlsm !

les 2 classeurs doivent être ouverts pour que la macro fonctionne.

Sub exportdonnées()
    Set wbs = Workbooks("Données machine.xlsx")
    Set wbc = Workbooks("Données exportées.xlsm")
    Set wss = wbs.Worksheets("feuil1")
    Set wsc = wbc.Worksheets("feuil1")
    'copie entêtes de colonnes
    For i = 1 To 3
        wsc.Cells(1, i) = wss.Cells(i + 2, 1)
    Next i
    'cree les lignes en fonction de la quantité
    li = 1
    q = wss.Range("B3")
    For i = 1 To q
        li = li + 1
        wsc.Cells(li, 1) = 1
        wsc.Cells(li, 2) = wss.Range("B4")
        wsc.Cells(li, 3) = wss.Range("B5") / q
        wsc.Cells(li, 3).NumberFormat = "#,##0.00 €"
    Next i
    Set wss = Nothing
    Set wsc = Nothing
    Set wbs = Nothing
    Set wbc = Nothing
End Sub

Merci pour l'aide. ça me convient. Je vais essayer d'adapter cette macro.

Bonne journée