excell en reseau

[shadows31]

bonjour a tous
J'ai une macro nommée IDENTITE, dans un modélede devis que j'ai crée et qui fonctionne a merveille depuis lgts.
Je veut maintenant mettre mon poste en réseau et du coup celle-ci ne fonctionne plus car le chemin d'accés aux fichiers depuis le poste "secrétariat" s'en trouve modifié.
J'ai eu un début de solution par le forum avec une modif qui recherche le chemin en fonction du poste sur lequel on travaille, mais ca plante apres a chaque commande.
Quelqu'un peut il içi me modifier ça ?
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

ca plante içi dessous

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

MERCI DE VOTRE AIDE