MsgBox "Choisissez le fichier PRODUCTION"
'ouvre le fichier de production
filenew = Application.GetOpenFilename("Fichiers Excel (*.*), *.txt", , "Ouvrir le fichier Production ")
If filenew = "Faux" Then End
Range("a1").Value = ActiveWorkbook.Name
MsgBox "Choisissez le fichier ANALYSE REBUTS correspondant à l'année étudiée"
Application.Dialogs(xlDialogOpen).Show ("C:\Repertoire\")
Dim x As Range
With ActiveWorkbook.Sheets("SYNTHESE").Range("L1:L600")
'Set x = .Find(Workbooks(110401 PRODUCTION.xls").Sheets("Paramètre").Range("C2").V alue, , xlValues, xlWhole, , , False)
x.Select
End With
nomProduction = Range("a1").Value
Selection.Offset(1, 8).Select
Selection.Copy
Windows(nomProduction).Activate
Range("G13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("110125 ANALYSE REBUTS.xls").Activate
Selection.Offset(0, -7).Select
Selection.Copy
Windows(nomProduction).Activate
Range("G15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub