Sauvegarde dans 2 endroits différents

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:

---

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

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:

---

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

---

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

Cordialement,

Bonsoir,

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

Bonne soirée.