Re : Copier d'un fichier connu et coller sur un autre fichier qui ne sera jamais le m
Super ça marche mais j'ai un autre problème. Je copie mon tableau avant d'ouvrir l'autre et je colle ensuite mais ça ne fonctionne pas. Je suppose que dans l'opération il perd la copie mais je ne vois pas comment faire. merci pour votre aide
Sub dd()
Dim Retour As Variant
Retour = Application.GetOpenFilename("Fichier Excel(*.xls*),*.xls*")
Range("C11:AE63").Select
Selection.Copy
Workbooks.Open Retour
Sheets("Suivi absences").Select
ActiveSheet.Unprotect ("0000")
ActiveSheet.Paste
ActiveCell.FormulaR1C1 = _
"=IF('Y:\Siege\RH-paye\SUIVI TEMPS TRAVAIL DOCS VIERGES\STT\DEFINITIF\2015\[STT NC M2 2015.xls]Janvier'!R14C3=0,"""",'Y:\Siege\RH-paye\SUIVI TEMPS TRAVAIL DOCS VIERGES\STT\DEFINITIF\2015\[STT NC M2 2015.xls]Janvier'!R14C3)"
Selection.Replace What:= _
"Y:\Siege\RH-paye\SUIVI TEMPS TRAVAIL DOCS VIERGES\STT\DEFINITIF\2015\[STT NC M2 2015.xls]" _
, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _
False, SearchFormat:=False, ReplaceFormat:=False
ActiveSheet.Protect ("0000")
End Sub