[Toutes versions] Macro Word pour changer le répértoire par default

[SamSamas]

Bonjour,

Je cherche quel est le code à mettre dans mon fichier Word pour modifier le répertoire par défaut lorsque je veux l'enregistrer.

Cdt.

[Heureux-oli]

Salut,

Un peu de lecture ?
http://word.developpez.com/faq/index...rement_dossier

[SamSamas]

Merci, mais ce n'est pas ce que je cherche.

Je cherche le code VBA pour changer le répértoire par default d'UN fichier doc en particulier qui est situé sur le réseau et utiliser par plusieurs personnes.

[Heureux-oli]

Salut,

Le répertoire par défaut n'appartient pas à un document mais à l'application.
Pour un fichier existant, c'est un répertoire.

[SamSamas]

Alors comment modifier le répértoire par défaut de l'application word à partir d'excel ?

[Heureux-oli]

Salut,

Dans le lien que j'ai donné !

Mais sans bout de code, il est difficile d'être plus précis.
si tu travailles avec un objet ActiveX ce n'est pas la même chose qu'avec un objet application Word.

Mais de toute façon c'est dans le lien.

[SamSamas]

Ah oui merci... mais je n'arrrive pas à faire fonctionner,

dans ma macro excel j'ai mis le code :

Code :

 Application.ChangeFileOpenDirectory "C:\Documents and Settings\...........................\"

que je vien de trouver sur ton lien, mais quand j'ouvre un fichier Word et que j'enregistre il ne me propose pas ce répértoire.

J'oubli quelque chose?

[Heureux-oli]

Salut,

Dans ton code, Application correspond à Excel.

Pour obtenir le changement, il faut utiliser un objet application Word.

[SamSamas]

D'accord j'ai essayer ça :

Code :

1
2
3
Dim WdApp As Object
Set WdApp = CreateObject("Word.application")
 WdApp.ChangeFileOpenDirectory "C:\Documents and Settings\boudjemiasa\My Documents\Procédures\"

mais ça marche pas, je sais bien que c'est faut, il faut que je change quoi?

[Heureux-oli]

Salut,

Le problème c'est que chez moi ça fonctionne.
J'ai essayé au départ d'Excel avec de Early Binding et avec de Late Binding.

Code :

1
2
3
4
5
6
7
Sub chrepwd()
Dim WdApp As Object
Set WdApp = CreateObject("Word.application")
 WdApp.ChangeFileOpenDirectory "c:\temp"
WdApp.Visible = True
 
End Sub

Ou
en Early binding

Code :

1
2
3
4
5
6
7
Sub chrepwd()
Dim WdApp As word.Application
Set WdApp = New Word.Application
 WdApp.ChangeFileOpenDirectory "c:\temp"
WdApp.Visible = True
 
End Sub

[SamSamas]

Exacte! ça marche.

Alors maintenant encore plus dur...

dans ma macro j'ai ce code pour afficher les liens :

Code :

1
2
3
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Chemin & "\" & myFolder.GetDetailsOf(myFile, 0) _
, TextToDisplay:=myFolder.GetDetailsOf(myFile, 0) 'nom et lien

il faut que je rajoute quoi pour que ces liens s'ouvrent dans l'application word qui vient d'être créer par la macro que vous venez d'écrire ?

[Heureux-oli]

Salut,

Le code que tu donnes ne sert pas à afficher un hyperlink mais à ajouter un.

Les hyperlink sont fait pour être cliqué, si tu veux ouvrir un fichier, il y a d'autre méthodes, mais les renseignements sont trop ténus.

[SamSamas]

Erff oui ça va être compliquer pour moi...

Voici tout mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Public Sub CommandButton3_Click()  'Repli Collaborateurs > SVP114 C2
Dim Chemin As String
Dim myShell As Shell
Dim myFolder As Folder
Dim myFile As FolderItem
Dim I As Byte, F As String, lig As Long
Dim Ligne As Long
Dim LigneP
Sheets("Résultat").Unprotect ""
Chemin = Sheets("Feuil1").Range("C2").Value  'Indiquer le chemin du répertoire
 
On Error Resume Next
Set myShell = CreateObject("Shell.Application")
Set myFolder = myShell.NameSpace(Chemin)
Set myFile = myFolder.Items.Item(F)
Application.ScreenUpdating = False
 
 LigneP = "blabla"
Ligne = Sheets("Résultat").Cells.Find(What:=LigneP).Row
Ligne = Ligne + 2
 
  While Cells(Ligne, 1).Interior.ColorIndex = xlNone
    Rows(Ligne).Delete
  Wend
 
F = Dir(Chemin & "\*.doc")
Do While Len(F) > 0
Set myFile = myFolder.Items.Item(F)
 
If myFolder.GetDetailsOf(myFile, I) <> "" Then
 
Sheets("Résultat").Rows(Ligne).Select
Selection.Insert Shift:=xlDown 'Insert ligne à partir de la ligne Ligne
Range("A1").Offset(Ligne - 1, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Chemin & "\" & myFolder.GetDetailsOf(myFile, 0) _
, TextToDisplay:=myFolder.GetDetailsOf(myFile, 0) 'nom et lien
Selection.Font.Bold = True
Sheets("Résultat").Cells(Ligne, 5) = myFolder.GetDetailsOf(myFile, 3) 'date de modif
Sheets("Résultat").Cells(Ligne, 5).Locked = True
Sheets("Résultat").Cells(Ligne, 4) = myFolder.GetDetailsOf(myFile, 31) 'date de création
Sheets("Résultat").Cells(Ligne, 4).Locked = True
Sheets("Résultat").Cells(Ligne, 2) = myFolder.GetDetailsOf(myFile, 9) 'Auteur
Sheets("Résultat").Cells(Ligne, 3) = myFolder.GetDetailsOf(myFile, 11) ' objet
Sheets("Résultat").Cells(Ligne, 3).Locked = True
Sheets("Résultat").Cells(Ligne, 7) = myFolder.GetDetailsOf(myFile, 12) ' proprio
Sheets("Résultat").Cells(Ligne, 7).Locked = True
Sheets("Résultat").Cells(Ligne, 6) = myFolder.GetDetailsOf(myFile, 8) 'lastsaveby
Sheets("Résultat").Cells(Ligne, 6).Locked = True
 
 
Ligne = Ligne + 1
End If
 
F = Dir
Loop
Set myShell = Nothing
Set myFolder = Nothing
Set myFile = Nothing
 
 
 
Columns("A:A").WrapText = True
Columns("C:C").WrapText = True
ActiveSheet.Cells(Ligne - 1, 2).Select
 Sheets("Résultat").Protect "", True, True, True
End Sub

Ce que je veut exactement c'est lorsque j'ouvre via un lien hypertexte un document word, et lorsque je veut l'enregistrer je tombe directement sur un répértoire que j'aurais définit et non sur le répértoire ou se trouve ce document.
(Les document sont ouverts en lectur seul)

C'est possible au moins?

[SamSamas]

Sinon il n'y a pas un moyen de lui dire dans

Code :

1
2
3
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
'Dans l'application Word en cours, changer le répértoire par defaut
End Sub

[Heureux-oli]

Salut,

Le problème est que le changement de répertoire n'est actif que pour l'instance ouverte, dès que l'insatance est fermée, cette modification disparaît.

Une solution serait de mettre du code dans l'ouverture du fichier Word

Code :

1
2
3
Sub Document_Open()
 
End Sub

[SamSamas]

Bonjour!

Je ne peu mettre du code dans mes Documents Word, je dois tous faire à partir d'Excel.
Je ne sais plus quoi faire...

[Heureux-oli]

Salut,

C'est dans les options de Word que tu dois aller changer.
Il faut mémoriser le répertoire de départ, mettre le répertoire de ton choix pour l'exécution de ton code et remmettre le répertoire du départ quand c'est terminé.

[SamSamas]

Bonjour,

Déjà quand je change le répértoire par défaut de Word dans Outil -> Option -> Dossier par defaut -> Documents et que ensuite j'enregistre mon fichier ça ne marche pas, je me retrouve toujours dans le répértoire ou se trouve le doc.

[Heureux-oli]

Salut,

Ce code devrait changer le répertoire par défaut pour l'application et pas la section.

Code :

1
2
 
Application.Options.DefaultFilePath(wdDocumentsPath) = "c:\temp"

[SamSamas]

Merci pour ton aide, mais ce code ne marche pas non plus, ou je dois mal l'utiliser.

Apres tout ce temps sans trouver de réponse je vais passer à autre chose, j'abandonne cette idée.

Mon problème maintenant, que j'avai déjà souligner dans un autre poste :

Envoyer par mail le fichier Word quand on clique sur enregistrer, et ne pas enregistrer bien sur...

(Le code marche mais pas comme je voudrais).