Discussion :

[kayo128]

Bonjour à tous,

J'ai un fichier Excel et j'aimerai bien créer un bouton avec un macro pour le sauvegarder dans 2 endroits différents. La première sauvegarde fichier sera sur le réseau(chemin1) et la deuxième sur le bureau du Pc(chemin2). Et au cas ou l'un de ces chemins ne marche pas, le deuxième marchera sans bloquer le premier. Je veux créer cette macro pour éviter une perte de donnée au cas ou le réseau ne fonctionne pas...

J'ai essayé cette Macro mais elle ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Bouton6_Clic()
''
Dim NomFichier As String, Chemin1 As String, Chemin2 As String
Chemin1 = CStr("C:\Documents and Settings\jfhytf\Desktop\BDD OS")
Chemin2 = CStr("V:\PRODUCTION\COMMUN")
 
Application.DisplayAlerts = False
NomFichier = Format(ThisWorkbook.ActiveSheet.Range("C3").Value)
ActiveWorkbook.SaveAs (Chemin2 & NomFichier)
ActiveWorkbook.SaveAs (Chemin1 & NomFichier)
Application.DisplayAlerts = True
 
'
End Sub

Merci de votre aide.

Cordialement

[BlueMonkey]

Bonjour,

Conseil :
- vérifier que dans la cellule "C3" de la feuille active se trouve bien le nom de fichier.
Il serait préférable de préciser le nom de la feuille contenant cette cellule.
- le temps de comprendre le problème, laissez les messages d'alerte s'afficher.
- commencer un enregistrement en local, puis sur le réseau. (un enregistrement en local à plus de chance de fonctionner.

Code exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim NomFichier As String, Chemin1 As String, Chemin2 As String
CheminLocal = Environ$("USERPROFILE") & "\Desktop\BDD OS\"
CheminReseau = "V:\PRODUCTION\COMMUN\"
'Application.DisplayAlerts = False
NomFichier = Format(ThisWorkbook.ActiveSheet.Range("C3").Value)
ActiveWorkbook.SaveAs (CheminLocal & NomFichier)
'On Error Resume Next
ActiveWorkbook.SaveAs (CheminReseau & NomFichier)
'Application.DisplayAlerts = True

[kayo128]

Merci pour votre réponse c'est bon ça marche ^^

Cordialement,

[BlueMonkey]

Bonsoir,

Content pour vous de voir ça fonctionne
Il ne reste plus qu'a noter le sujet résolu à l'aide du bouton

Bonne soirée.