Discussion :

[srig974]

Bonjour à tous,
Je me permets de vous expliquer mon problème tout en sachant que j'ai n'ai aucune connaissance de la programmation.

On a décidé avec des amis, de partager nos cours grace à skydrive, mais j'aurai aimé sauvegarder mes documents à 2 emplacements, l'un dans le dossier skydrive, et l'autre sur mon ordinateur pour plus de sécurité.

J'ai cherché sur internet, et j'ai trouvé une macro qui permettait de faire cette action ( j'utilise word 2007):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Sauvegarde2endroits()
'
' Sauvegarde2endroits Macro
'
'
Dim strFichierA, strFichierB, strFichierC
ActiveDocument.Save
strFichierA = ActiveDocument.Name
strFichierB = "E:\Skydrive\L3 droit\" & strFichierA
strFichierC = ActiveDocument.FullName
ActiveDocument.SaveAs FileName:=strFichierB
ActiveDocument.SaveAs FileName:=strFichierC
End Sub

Elle a marché une fois, tout a bien fonctionné. Mais après la 2nd fois, j'ai un message d'erreur
"Run-time error " 5152": this is not a valid file name
et il me proprose comme solutions:
- Check the path to make sure it was typed correctly
- Select a file from the list of files and folders

Quand je clique sur débugger, c'est l'avant derniere ligne qui a l'air de poser problème parce qu'elle est soulignée en jaune.

Code :

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

"ActiveDocument.SaveAs FileName:=strFichierB"

J'espère que vous pourrez m'aider, et je suis vraiment confus de venir vous demander de l'aide en sachant que je n'ai presque aucune connaissance.

[Heureux-oli]

Salut,

Essaie de faire un MsgBox

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 Sauvegarde2endroits()
'
' Sauvegarde2endroits Macro
'
'
Dim strFichierA, strFichierB, strFichierC
ActiveDocument.Save
strFichierA = ActiveDocument.Name
strFichierB = "E:\Skydrive\L3 droit\" & strFichierA
'Ajout Oli
MsgBox strFichierB
strFichierC = ActiveDocument.FullName
ActiveDocument.SaveAs FileName:=strFichierB
ActiveDocument.SaveAs FileName:=strFichierC
End Sub

Donne nous ce qui est affiché dans la boîte de message.

[srig974]

En cliquant sur cette macro, ça me fait une sauvegarde d'abord, puis j'ai une fenêtre qui apparaît avec le chemin d'accès du fichier " E:\Skydrive\L3 droit\Abcd.docx" (j'avais créé un nouveau document).

EDIT: C'est bon, je pense avoir trouvé, je lui indiquais un mauvais chemin d'accès pour mon emplacement personnel.

Merci beaucoup en tout cas de votre aide!