Discussion :

[vaucluseimmo]

Bonjour à tout le forum

Je galére depuis qq heures, car je n'arrive pas à créer une sauvegarde de mon document Word dans le Dossier "Sauvegarde" qui se trouve dans le Dossier de mon Document Word

J'ai ce code, mais il me crée bien ma sauvegarde de mon document Word dans le Dossier "Sauvegarde", mais en plus il me créé un Dossier Vide
"Doc1" dans ce même dossier
je vois pas ou est mon erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub SauvDocument()
Dim Nom As String, Chemin As String, Rep As String
Nom = "Doc1"
Chemin = "Sauvegarde\"
Rep = ActiveDocument.Path & "\" & Chemin
If Dir(Rep & Nom) = "" Then MkDir Rep & Nom
Fichier = Rep & "\" & Trim(Nom) & ".Doc"
If Dir(Fichier) <> "" Then
MsgBox "le fichier existe déjà !"
Exit Sub
End If
ActiveDocument.SaveAs Rep & Nom
End Sub

merci de votre aide par avance

Cordialement

[Heureux-oli]

Salut,

Pour te mettre sur la piste.

Essaie dans ton code de faire un debug.print sur

Code :

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

Rep & Nom

Je pense qu'il manque un \

[vaucluseimmo]

Bonsoir Olivier

Merci de ta réponse
Voici ce que j'ai réussi a faire

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
19
20
21
22
Sub CopieArchivage()
Dim Dossier1 As String, SousDossier2 As String, Nom As String, Nom1 As String
Dim Cible As Object, Dossier As Object
Dim réponse1
    réponse1 = MsgBox("Vous Allez Sauvegarder Votre Fichier ( ATTENTION sauvegarde automatique ! )  ", vbYesNo + vbQuestion, "Validation")
    If réponse1 = vbNo Then Exit Sub
Nom = "Essai"
Nom1 = " Essai3"
Dossier1 = ThisDocument.path & "\" & Nom 'Format(Date, "mmmm yy")
If Dir(Dossier1, vbDirectory) = "" Then MkDir (Dossier1)
SousDossier2 = Dossier1 & "\" & Nom1 'Format(Date, "dd mm yy")
If Dir(SousDossier2, vbDirectory) = "" Then MkDir (SousDossier2)

Set Cible = CreateObject("Scripting.FileSystemObject")
Set Dossier = Cible.GetFolder(SousDossier2)

ThisDocument.SaveAs Filename:=SousDossier2 & "\SauvegardeModéle" & Dossier.Files.Count + 1 & ".doc"
MsgBox "Sauvegarde Effectuée . ", vbInformation, "Message"
Set Cible = Nothing
''''ActiveDocument.Activate '******marche pas
''''ThisDocument.Close '*****marche pas
End Sub

tout fonctionne bien
mais, et oui il y a un mais

je n'arrive pas a fermer le Fichier sauvegardé et laisser l'original ouvert

peut-tu me donner une idée???

Bonne soirée

[Heureux-oli]

Salut,

Il ne faut pas travailler avec ThisDocument ...

Tu dois avoir un objet document que tu remplis.

Code :

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

1
2
3
4
Dim myDoc As Document
 
Set myDoc = documents.Add("   ")
mydoc.SaveAs ...

Et tu auras un document sauvegardé.
L'original reste ouvert, puisqu'au moment de la sauvegarde, ils sont identiques.
Si tu avais deux documents distincts, tu en fermes un et utilises l'autre, mais dans ton cas, au moment de la sauvegarde, ils sont identiques, tu fais juste une sauvegarde.

[vaucluseimmo]

ReOlivier


Ben!!!!!! j'arrive pas a inclure ton idée dans mon code actuel

a voir....

a ++++++++
cdlt

[vaucluseimmo]

Bonjour Olivier

Aucune réaction a mon dernier message??,,,

Peut-être est-tu pas souvent connecté

Bon avec ''''ThisDocument.Close ça me ferme le Document sauvegardé,la c'est bon

Par contre toujour le soucis du premier document ouvert , qui ce ferme aussi,
alors qu'il faut qu'il reste ouvert

avec les infos que tu m'a donné ,j'y arrive pas



Bon week end

[Heureux-oli]

Salut,

Pas besoin de fermer le document sauvegardé.

Code :

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

1
2
3
4
Sub SauverDocument()
ActiveDocument.SaveAs "c:\temp\masauvegarde.doc"
ActiveDocument.SaveAs "c:\temp\monbondoc.doc"
End Sub

en fait, il y a deux sauvegardes.
La première, un backUp et la seconde, le bon document.

Et c'est le bon document qui "reste" ouvert.

[vaucluseimmo]

Bonjour Olivier

Super tout simple
C'est Bon ça fonctionne trés bien
Grand merci a toi
Bon week-end

Cordialement

[vaucluseimmo]

Re Olivier

au fait depuis que je demande le l'aide sur ce forum pour mon fichier Word "Modéle" de lettre
Ce fichier a deux version
une avec connection Base Access
et
l'autre avec connection base Excel

Si toutefois cela peut te servir pour ajouter des Exemples de codes dans tes Tuto, ,dit-le moi je te les enverrais
Bien évidement, faudra arranger mes codes a ton gout,car c'est des codes réalisés a ma sauce, étant novice en la matiére

a plus

[Heureux-oli]

Salut,

Tu peux tout aussi bien faire un tuto !

[vaucluseimmo]

Bonsoir Olivier

Je viens de parcourir le site ,mais j'ai pas trouvé comment faire

pour insérer un tuto Word

Bonne soirée