Discussion :

[matimatfr]

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 :

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

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 :

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

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

[riaolle]

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 :

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

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

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 :

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

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

[matimatfr]

Bonjour,

Merci pour ton retour.

Alors alors, pour cela :

Code :

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

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

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

Code :

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

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