Copier des valeurs variables d'un classeur à un autre

Bonjour,

Tout d'abord désolé pour ce titre horrible mais je ne saurais absolument pas trouver de mots différents.

J'ai un tableau qui me fait l'inventaire classé par services et il faudrait que j'exporte les réferences et les quantités (2 colonnes) sur un autre fichier au format .csv.

J'ai tenté l'enregistreur de macro mais il s'avère que le nombre de produits peut varier, ce qui implique que la plage ou l'on veut coller les données va varier également (sans quoi on risque d'écraser des données). Je vous joins tout de même le code :

Sub Auto_REQ()
'
' Auto_REQ Macro
'

'
    Workbooks.Open Filename:="G:\COST CONTROL\IV_REQ.csv"
    Windows("Réquisition Micros Journalière.xlsm").Activate
    Range("M79:O111").Select
    Selection.Copy
    Windows("IV_REQ.csv").Activate
    Range("A8").Select
    ActiveSheet.Paste
    Windows("Réquisition Micros Journalière.xlsm").Activate
    ActiveSheet.Range("$F$3:$Q$163").AutoFilter Field:=2, Criteria1:="Mini Bar"
    Range("M112:O186").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("IV_REQ.csv").Activate
    Range("A30").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=21
    Windows("Réquisition Micros Journalière.xlsm").Activate
    ActiveSheet.Range("$F$3:$Q$163").AutoFilter Field:=2, Criteria1:= _
        "RELAIS MARTINEZ/0011"
    Range("M81:O125").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("IV_REQ.csv").Activate
    Range("A31").Select
    ActiveSheet.Paste
    Windows("Réquisition Micros Journalière.xlsm").Activate
    ActiveSheet.Range("$F$3:$Q$163").AutoFilter Field:=2, Criteria1:= _
        "RESTAURANT PLAGE/0011"
    Range("M75:O142").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("IV_REQ.csv").Activate
    Range("A45").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=30
    Windows("Réquisition Micros Journalière.xlsm").Activate
    ActiveSheet.Range("$F$3:$Q$163").AutoFilter Field:=2, Criteria1:= _
        "Room Service"
    Range("M143:O152").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("IV_REQ.csv").Activate
    Range("A76").Select
    ActiveSheet.Paste
    Windows("Réquisition Micros Journalière.xlsm").Activate
End Sub

Ce qu'il faudrait c'est ajouter une formule qui place la sélection suivante après la dernière ligne remplie.. Mais je ne sais pas du tout quel code utiliser.

Par avance merci.

Cordialement.

Bonjour

C'est bien de joindre le code mais ce serait mieux de joindre le fichier complet.

Bye !

Re !

Je ne peux pas joindre le fichier pour des raisons de confidentialité...

En fait il me faudrait simplement le code qui permette de copier sous la dernière valeur copiée.

Par exemple si la dernière valeur du Bar est copiée en A28, comment faire pour que la prochaine sélection soit copiée en A29 (sachant que ça varie d'un jour à l'autre).

Par avance merci !

Bonjour

gmb a écrit :

Par exemple si la dernière valeur du Bar est copiée en A28, comment faire pour que la prochaine sélection soit copiée en A29 (sachant que ça varie d'un jour à l'autre).

Si cela varie d'un jour à l'autre, comment pourrais-je te donner la solution...

Essaie de simplifier ton fichier, de le rendre anonyme et de le joindre sans danger...

Bye !

Re,

Finalement j'ai fait plusieurs fichiers, un pour chque service, c'est plus précis pour l'inventaire.

Merci !