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 !