M
manwholooklikedude
Guest
Bonjour les cops, ça baigne ?
j'ai une macro que voici, elle n'est certainement pas optimisée mais en gros elle va chercher des infos dans un classeur et les colle dans un autre avec l'ajout d'une recherchev
Mais elle bugue et je ne comprend pas pourquoi.... Si quelqu'un voit le truc....
Merci d'avance
j'ai une macro que voici, elle n'est certainement pas optimisée mais en gros elle va chercher des infos dans un classeur et les colle dans un autre avec l'ajout d'une recherchev
Mais elle bugue et je ne comprend pas pourquoi.... Si quelqu'un voit le truc....
Code:
Dim derligne As Long
derligne = Range("A65536").End(xlUp).Row 'trouve la dernière ligne remplie
Cells.Select
Selection.ClearContents ' RAZ
Dim wb As Workbook, classeursource As Workbook
For Each wb In Workbooks
If wb.Name Like "*appro*" Then Set classeursource = wb
Next wb 'regarde si un classeur contenant le mot appro dans le titre est ouvert (extraction)
'copie le détail appro :
classeursource.Activate
Range("C5").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'colle dans la feuille
Windows("BDC MAGASIN.xls").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Localisation"
Range("J2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-8],MAPU!C[-9]:C[-1],9,FALSE)"
Selection.AutoFill Destination:=Range("J2:J" & derligne), Type:=xlFillDefaultMerci d'avance