enregistrement programmé d'un fichier en réseau

[basnyl]

Bonjour,

Je cherche le code en VB pour :
Lors de l'ouverture d'un fichier excel sur un ordi reseau excel 2000, 2003 ou 2007, un enregistrement de ce même fichier s'effectue sur un ordinateur en réseau (le serveur) avec un nom finissant par un chiffre randomisé ou la date et l'heure du jour. Ce système me permettrai de récupérer le fichier précédent si quelqu'un entre des données erronnées et enregistre le fichier.
Actuellement j'utilise:

Sub SetPath()
Dim n As Integer
n = (Rnd * 1) + 10
Application.AutoRecover.Path = ("\\serveur\data\mes docs\chemindemonprog\sauvegarde_" & n)
End Sub

mais rien ne se passe... ;-(
Quelqu'un pourrait m'aider ?

 

[tototiti2008]

Re : enregistrement programmé d'un fichier en réseau

Bonjour basnyl,

Pourquoi utiliser un AutoRecover, pourquoi pas simplement un Workbooks("Nom").SaveAs ?

 

[basnyl]

Re : enregistrement programmé d'un fichier en réseau

Effectivement , pourquoi pas, le code serait :


Sub SetPath()
Dim n As Integer
n = (Rnd * 1) + 10
worbook.saveas("\\serveur\data\mes docs\chemindemonprog\sauvegarde_" & n)
End Sub

Mais une fenetre d'enregistrement va s'ouvrir non ?, j'aimerai que l'enregistrement soit invisible pour l'utilisateur.

 

[tototiti2008]

Re : enregistrement programmé d'un fichier en réseau

je crois que ce serait plutôt :

Sub SetPath()
Dim n As Integer
n = (Rnd * 1) + 10
[COLOR=red]This[/COLOR]workbook.saveas "\\serveur\data\mes docs\chemindemonprog\sauvegarde_" & n
End Sub

et normalement il n'y a aucune confirmation à apporter.

 

[basnyl]

Re : enregistrement programmé d'un fichier en réseau

Merci, mais malheureusement rien ne se passe:
soit mon chemin est mauvais,
soit j'ai un autre soucis.

Il y a-t-il un moyen de savoir si c'est un pb de chemin ?

 

[XL_Luc]

Re : enregistrement programmé d'un fichier en réseau

Non un probleme de chemin donnerai une erreur.
Rien ne se pase tu veux dire à l'ouverture du classeur.
Dans ce cas enregistre la macro comme "Private Sub Workbook_Open()" dans l'objet ThisWorkbook

 

[tototiti2008]

Re : enregistrement programmé d'un fichier en réseau

Bonjour à tous,

chez moi ça marche bien, si ce n'est que ta formule
n = (Rnd * 1) + 10
renvoie toujours 11...
Vérifie bien le chemin...
si tu veux un numéro unique (année-mois-jour-heure-minutes-secondes)
tu pourrait faire :

Dim n As String
n = Format(Now,"YYYY-MM-DD-HH-MM-SS")

 

[kiki29]

Re : enregistrement programmé d'un fichier en réseau

Salut,et une de plus , à adapter et placer dans Module ThisWorkbook

Option Explicit

Private Sub Workbook_Open()
Dim sSauvegarde As String
Dim sChemin As String
    sChemin = ThisWorkbook.Path
    sSauvegarde = Format(Now, "yyyymmdd_hhmmss")
    ThisWorkbook.SaveCopyAs sChemin & "\" & "Essai_" & sSauvegarde & ".xls"
End Sub

N'ayant plus de réseau à dispo je ne peux pas tester,il y aurait peut-être un
ChDir sChemin à placer voire également un ChDrive

 

[basnyl]

Re : enregistrement programmé d'un fichier en réseau

merci à tous de vous pencher sur mon cas,
je suis novice et j'ai toujours un pb, rien ne s'enregistre, même en travaillant de mon disque à mon disque ( dossier de sauvegarde = sChemin = "C:\Users\moi\Desktop\Nouveau)

Je pense que c'est parce que je ne mets peut etre pas l'application au bon endroit (dans module This worbook), je le mets simplement au même endroit que les diff codes des différents boûtons de la première feuille de mon classeur - est ce le bon endroit ?

 

[XL_Luc]

Re : enregistrement programmé d'un fichier en réseau

le "Sub Workbook_Open()" ne fonctionne que dans le ThisWorkBook, il ne faut pas placer le code dans un module "normal"

 

[basnyl]

Re : enregistrement programmé d'un fichier en réseau

désolé pour cette précision, mais ou trouves-t-on le this workbook

 

[XL_Luc]

Re : enregistrement programmé d'un fichier en réseau

apr_s ton ALT+F11, tu déploie le menu "Microsoft Excel Objets" et la tu trouve les feuilles et à la fin le "ThisWorkbook", tu double clique dessus et tu colle le code dedans.

 

[basnyl]

Re : enregistrement programmé d'un fichier en réseau

Merci à ceux qui se sont penchés sur mon cas, cela fonctionne très bien...