Macro pour copie avec mot de passe.

Bonjour à tous,

Vous allez peut être pouvoir m'aider à finaliser une macro.

En fait j'ai crée une macro pour faire une copie d'un fichier (pour éviter le perte de données des autres utilisateurs), mais je n'arrive pas à la finaliser pour que tout fonctionne correctement.

J'ai fais une première macro que voici :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Sauve()   Dim Fichier$, WbDest$, RepDest$   Application.ScreenUpdating = False   RepDest = ThisWorkbook.Path & "\Sauv\" WbDest = "Sauvegarde.xlsm" Fichier = RepDest & WbDest   Application.DisplayAlerts = False   ThisWorkbook.SaveAs Fichier, , "1234"   End Sub

---

Sur celle ci j'enregistre le fichier dans le bon dossier et avec un mot de passe, mais c'est pas une copie comme je le souhaite.

Donc j'ai adapté et changé certaines choses de la macro pour que j'ai un backup et l'original :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Sauve2()   Dim Wb$, WbDest$, TWay$, TDest$   Application.ScreenUpdating = False   Wb = ThisWorkbook.Name TWay = ThisWorkbook.Path & "\Sauv\" WbDest = "Sauvegarde.xlsm" TDest = RepDest & WbDest   Application.DisplayAlerts = False   Workbooks(Wb).SaveCopyAs TDest   End Sub

---

Le problème sur celle ci est double. D'une la copie ne se mets pas dans le dossier spécifié, de deux je n'arrive pas à intégrer l'argument mot de passe comme dans la première macro (erreur "trop d'arguments")

Auriez vous une piste peut être ?

Merci d'avance à tous :lol:

Bonjour,

Ici : https://msdn.microsoft.com/fr-fr/lib.../ff835014.aspx, tu vois qu'il n'y a qu'un seul argument pour la méthode SaveCopyAs (pas de mdp). Il faut utiliser SaveAs. Voici une idée pour détourner ton problème (c'est du brouillon à re-travailler !). Je sais pas si ça marche : à tester !!

Code:

---

1 2 3 4 5 6

Dim wbIni As String, wbCopie As String wbIni = ThisWorkbook.FullName 'nom avec chemin wbCopie = ThisWorkbook.Path\Sauv\Sauvegarde.xlsm" Workbooks.SaveAs wbCopie, ,"1234" Workbooks.Open wbIni Workbooks(wbCopie).Close

---

Citation:

---

la copie ne se mets pas dans le dossier spécifié

---

Elle se met où et où la veux-tu ? Vérifie le nom de tes variables !! Tu utilises des nom différents de la première macro et tu n'attribue pas une valeur à toutes tes variables.

Code:

---

1 2 3

TWay = ThisWorkbook.Path & "\Sauv\" WbDest = "Sauvegarde.xlsm" TDest = RepDest & WbDest '----> pas de valeur attribuée à RepDest, donc TDest = WbDest

---

Bonjour,

Merci pour ton retour.

Alors alors, pour cela :

Code:

---

1 2 3

TWay = ThisWorkbook.Path & "\Sauv\" WbDest = "Sauvegarde.xlsm" TDest = RepDest & WbDest '----> pas de valeur attribuée à RepDest, donc TDest = WbDest

---

[/QUOTE]

Effectivement c'est de ma faute, j'ai utilisé une ancienne macro que j'ai mal réadapté. Merci pour avoir souligné l'erreur :D

Pour ton code, j'ai fais des tests, et en adaptant un peu ça fonctionne, la voici :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Sauve3()   Dim Wb$, WbDest$, TWay$, wbIni$, wbCopie$   Application.ScreenUpdating = False   wbIni = ThisWorkbook.Name 'nom avec chemin TWay = ThisWorkbook.Path & "\Sauv\" WbDest = "Sauvegarde.xlsm" wbCopie = TWay & WbDest   Application.DisplayAlerts = False   Workbooks(wbIni).SaveAs wbCopie, , "1234" Workbooks.Open wbIni Workbooks(WbDest).Close   End Sub

---

Merci beaucoup en tout cas pour l'idée d'ouvrir et fermer. Ca résolu pas mal mon problème ;)