Sauvegarde simultanée fichier excel

Résolu
Arielle31 Messages postés 26 Statut Membre -  
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je travaille actuellement sur Excel 3. Au boulot, j'ai un fichier excel sur mon disque dur et je dois le mettre également sur le réseau afin que tous les autres employés puissent le consulter.

Donc, je voudrais, lorsque je le mets à jour, le sauvegarder en même temps sur mon disque dur et sur le réseau - en lecture seule - en une seule manipulation.

Je suppose qu'il faut faire une macro mais je suis un peu limitée dans ce domaine.

Merci de votre aide :)
A voir également:

2 réponses

Réponse 1 / 2
néné
 
Bonjour

Voici une macro

Pour enregistré en même temps sur ton disque dur et sur ton réseau


Sub SaveCopyAs()
ActiveWorkbook.SaveCopyAs "f:\reseau\tonfichier.xls" 'a adapter 'sur ton reseau
ActiveWorkbook.SaveCopyAs "c:\excel\tonfichier.xls" 'a adapter 'sur ton disque dur
End Sub
0
Réponse 2 / 2
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 730
 
bonjour

je voudrais, lorsque je le mets à jour, le sauvegarder en même temps sur mon disque dur et sur le réseau - en lecture seule - en une seule manipulation.

Pour cela, il faut effectivement mettre une macro et autant que possible une macro qui se lance toute seule lorsque tu sauvegardes.

Ce que je te propose sera transparent une fois mis en place et chaque fois que tu sauvegardes, le réseau est à jour et le classeur réseau est en lecture seule.

Je suppose qu'il faut faire une macro mais je suis un peu limitée dans ce domaine.

Pour rajouter la macro regardes la procédure ICI

Cette macro est à copier / coller dans Thisworkbook et il ne faut pas oublier de renseigner le nom du fichier réseau en remplaçant
X:\chemin\nom.xls par le chemin complet de ton fichier réseau. 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim fs As Object                            ' système fichier
Dim f As Object                             ' fichier
Dim fich As String                          ' chemin du fichier du réseau
fich = "X:\chemin\nom.xls"                  ' mettre le nom complet du fichier réseau
Application.EnableEvents = False            ' les événements sont en silence
Set fs = CreateObject("Scripting.FileSystemObject") ' système fichier
On Error Resume Next                        ' si fichier absentl'erreur ne bloque pas
Set f = fs.GetFile(fich)                    ' recherche du fichier
f.Attributes = 0                            ' fichier en écriture
On Error GoTo 0                             ' test des erreurs remis
ActiveWorkbook.SaveCopyAs Filename:=fich    ' sauvegarde réseau
Set f = fs.GetFile(fich)                    ' recherche du fichier
f.Attributes = 1                            ' Lecture Seule
Application.EnableEvents = True             ' les événements sont actifs
End Sub
0