merci a skooby
mercui de ta réponse en fait ca al'air de marcher mais aprés ca plante sur d'autres chemin d'accés je te file la macro en entier et si tu peut rectifie moi la car je vois que tu as compris le probléme
Sub IDENTITE()
'
' IDENTITE Macro
' Macro enregistrée le 04/10/2006 par
Range("C1").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
On Error Resume Next
Workbooks.Open Filename:= _
"C:\BASES DEVIS\Base_clients2008"
If Err.Number <> 0 Then
Workbooks.Open Filename:= _
"C:\direction\BASES DEVIS\Base_clients2008"
End If
On Error GoTo 0
Windows("Base_clients2008.xls").Visible = True
ActiveSheet.ShowDataForm
Range("L2").Select
Selection.Copy
Windows("DEVIS COMPLET1").Activate
Range("C19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Base_clients2008.xls").Activate
Application.CutCopyMode = False
ActiveWorkbook.Save
Windows("DEVIS COMPLET1").Activate
Temp = "C:\CUISINES ARTISANALES\DOSSIERS 2008\" & Range("C3").Value
ActiveWorkbook.SaveAs Filename:=Temp, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Sheets("CLIENT").Select
MsgBox " Enregistré dans DOSSIERS 2008 Sous nom " & Sheets("CLIENT").Range("C3").Value, vbOKOnly + vbInformation, Title:="Enregistrement"
Sheets("RECAP DEVIS").Select
Range("D26:Al26").Select
Selection.Copy
Windows("Base_clients2008.xls").Activate
Range("M1").Select
Range("M" & Range("M65536").End(xlUp)(2).Row).Select
ActiveSheet.Paste Link:=True
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("RECAP DEVIS").Select
Sheets("CLIENT").Select
ActiveSheet.Shapes("Button 56").Select
Selection.Cut
End Sub
merci de ton aide