Sous excel 97, win98, j'ai un fichier de base, qui doit, a la fermeture
s'enregistrer dasn un repertoire distant, sous un nom definit par des
cellules nommees.
J'ai donc, dans le ThisWorkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Nom As String
Nom = "\\ORDI\REP\" & Range("dept") & "_" & Range("et") & "_" & Range("da")
& "_" & Range("ec") & ".xls"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Nom
Application.DisplayAlerts = True
End Sub
Ca a bien fonctionne, mais maintenant que le repertoire a changer
d'ordinateur, a la fermeture, j'obtiens des noms de fichiers de ce genre,
dans le bon repertoire sur le bon ordi :
2F832200 ou 98B9F100 (ca ressemble bcp a du nom
8+3 mais sans le 3 :-( )
et ceci uniquement avec des ordinateurs distants, a partir du PC qui heberge
le fichier modele et les "creations", tt ce passe bien.
J'ai deja tente de mettre ORDI et REP en majuscules ou miniscules, ca ne
change rien.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
zorroider
PS : j'avais deja soumis ce probleme il y a quelques mois, mais je n'ai pas retrouve de trace du thread sur le groupe et l'ordi qui hebergeait le modele et les enregistrements, et les notes prises pour la resolution de ce pb ayant "crashe" je n'ai plus aucune trace de ce qui s'etait dit a l'epoque.
Merci
PS : j'avais deja soumis ce probleme il y a quelques mois, mais je n'ai pas
retrouve de trace du thread sur le groupe et l'ordi qui hebergeait le modele
et les enregistrements, et les notes prises pour la resolution de ce pb
ayant "crashe" je n'ai plus aucune trace de ce qui s'etait dit a l'epoque.
PS : j'avais deja soumis ce probleme il y a quelques mois, mais je n'ai pas retrouve de trace du thread sur le groupe et l'ordi qui hebergeait le modele et les enregistrements, et les notes prises pour la resolution de ce pb ayant "crashe" je n'ai plus aucune trace de ce qui s'etait dit a l'epoque.
Merci
gilbert
Bonjour
essaie ceci pour savoir si cela correspond à ton chemin
Sub essai() nom = "ORDIREP" & Range("dept") & "_" & Range("et") & "_" & Range("da") & "_" & Range("ec") & ".xls" MsgBox nom End Sub
Gilbert "zorroider" a écrit dans le message de news:ckg27h$26q$
PS : j'avais deja soumis ce probleme il y a quelques mois, mais je n'ai pas
retrouve de trace du thread sur le groupe et l'ordi qui hebergeait le modele
et les enregistrements, et les notes prises pour la resolution de ce pb ayant "crashe" je n'ai plus aucune trace de ce qui s'etait dit a l'epoque.
Merci
Bonjour
essaie ceci pour savoir si cela correspond à ton chemin
Sub essai()
nom = "\ORDIREP" & Range("dept") & "_" & Range("et") & "_" & Range("da")
& "_" & Range("ec") & ".xls"
MsgBox nom
End Sub
Gilbert
"zorroider" <aa@aa.fr> a écrit dans le message de
news:ckg27h$26q$1@s5.feed.news.oleane.net...
PS : j'avais deja soumis ce probleme il y a quelques mois, mais je n'ai
pas
retrouve de trace du thread sur le groupe et l'ordi qui hebergeait le
modele
et les enregistrements, et les notes prises pour la resolution de ce pb
ayant "crashe" je n'ai plus aucune trace de ce qui s'etait dit a l'epoque.
essaie ceci pour savoir si cela correspond à ton chemin
Sub essai() nom = "ORDIREP" & Range("dept") & "_" & Range("et") & "_" & Range("da") & "_" & Range("ec") & ".xls" MsgBox nom End Sub
Gilbert "zorroider" a écrit dans le message de news:ckg27h$26q$
PS : j'avais deja soumis ce probleme il y a quelques mois, mais je n'ai pas
retrouve de trace du thread sur le groupe et l'ordi qui hebergeait le modele
et les enregistrements, et les notes prises pour la resolution de ce pb ayant "crashe" je n'ai plus aucune trace de ce qui s'etait dit a l'epoque.
Merci
zorroider
Merci gilbert,
en attendant de trouver une solution plus appropriée, ca fonctionne en partageant le repertoire en acces complet !!!!!!!!! ce qui n'est pas genial :-( @+
"gilbert" a écrit dans le message de news:uhu2$
Bonjour essaie ceci pour savoir si cela correspond à ton chemin Sub essai() nom = "ORDIREP" & Range("dept") & "_" & Range("et") & "_" & Range("da")
& "_" & Range("ec") & ".xls" MsgBox nom End Sub Gilbert
Merci gilbert,
en attendant de trouver une solution plus appropriée, ca fonctionne en
partageant le repertoire en acces complet !!!!!!!!!
ce qui n'est pas genial :-(
@+
"gilbert" <stpspamgilbert.roinel@wanadoo.fr> a écrit dans le message de
news:uhu2$lFsEHA.3076@TK2MSFTNGP10.phx.gbl...
Bonjour
essaie ceci pour savoir si cela correspond à ton chemin
Sub essai()
nom = "\ORDIREP" & Range("dept") & "_" & Range("et") & "_" &
Range("da")
& "_" & Range("ec") & ".xls"
MsgBox nom
End Sub
Gilbert
en attendant de trouver une solution plus appropriée, ca fonctionne en partageant le repertoire en acces complet !!!!!!!!! ce qui n'est pas genial :-( @+
"gilbert" a écrit dans le message de news:uhu2$
Bonjour essaie ceci pour savoir si cela correspond à ton chemin Sub essai() nom = "ORDIREP" & Range("dept") & "_" & Range("et") & "_" & Range("da")
& "_" & Range("ec") & ".xls" MsgBox nom End Sub Gilbert
