enregistrement d'un fichier

[plumazon]

Bonjour,

Je voudrais historiser un fichier excel puis le remettre dans le dossier initial pour cela je fais le code suivant qui fonctionne tres bien:
Sub SaveFile()
'
Dim FileName, Rep, Rep2 As String
Dim LaDate As Date
' Macro2 Macro
'
Rep = ThisWorkbook.Path & "\Hist_Valo\2013\" & Range("e1").value & "\"

LaDate = Range("e2").value
'
FileName = "NewVL_v12_" & Format(LaDate, "ddmm") & ".xlsm"
ActiveWorkbook.SaveAs FileName:=Rep & FileName

ChDir "H:\Varenne Capital\Front_Middle\Valeur_Selection"
ActiveWorkbook.SaveAs FileName:=Rep
'"H:\Varenne Capital\Front_Middle\Valeur_Selection\NewVL_v12.xlsm", FileFormat _
:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Mais
dans la deuxieme partie si j'utilise un autre ordi le reseau nest plus H mais Z et donc la macro bug..
Comment faire pour que le code soit "universel" ?

Merci d'avance

 

[Pierrot93]

Re : enregistrement d'un fichier

Bonjour,

essaye avec ceci :

"\\NomServeur\Varenne Capital\Front_Middle\Valeur_Selection\NewVL_v12.xlsm"

bonne journée
@+

 

[plumazon]

Re : enregistrement d'un fichier

Non ça ne fonctionne pas..

 

[Pierrot93]

Re : enregistrement d'un fichier

Re,

Non ça ne fonctionne pas..

ca veut dire quoi ? message d'erreur ou pas le résultat attendu ? A voir dans quelle instruction et si le nom est correct....

 

[plumazon]

Re : enregistrement d'un fichier

'ChDir "H:\Varenne Capital\Front_Middle\Value_Active_Fund\Hist_Valo\2013\" & Rep
Bonjour,

ça ne fait rien juste un message d'erreur avec la ligne

ChDir "\\NomServeur\Varenne Capital\Front_Middle\Valeur_Selection"
qui apparait en jaune..

Merci

 

[Pierrot93]

Re : enregistrement d'un fichier

Re,

"NomServeur" doit être remplacer par le NOM de TON SERVEUR... perso je ne peux pas le connaître...

 

[plumazon]

Re : enregistrement d'un fichier

..aie quel idiot



Merci