conversion macro XL2000 -> XL97

[zrd]

conversion macro XL2000 -> XL97

Bonjour,

Voici la macro qui focntionne impeccable sous XL2000 mais qui pose pb sous XL97, je ne connais pas assez VBA pour savoir ou se situe le pb.
Sous XL97 le nom du fochier devient par ex : 41dc1000 OU F7081000 sans extension.

La macro :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Nom As String
Nom = "\\Jerry\ici\" & [dept] & "_" & [et] & "_" & [DA] & "-" & [RA] & "_" & [rs] & ".xls"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Nom
Application.DisplayAlerts = True
End Sub

Meci de vote aide
@+

 

[Zon]

Re: conversion macro XL2000 -> XL97

Salut,

ton chemin me semnle incorrect ? "\\Jerry\ici\", sinon je ne vois pas pourquoi tu aurias cela..

A+++