Discussion :

[keurma]

Bonjour,

Pouvez vous m'indiquer la macro qui permet d'ouvrir la fenetre ENREGISTRER SOUS... dans un dossier specifique.

Je sais que sur EXCEL c'est :

Application.Dialogs(xlDialogSaveAs).Show ("S:\ADMINISTRAT° et TECHNIQUE\TECHNIQUE\GESTION DES SERVICES TECHNIQUES\Suivi des travaux")

D'avance merci

[Heureux-oli]

Bonjour et bienvenue sur le forums Office de DVP.

Pour Word, le plus simple est d'utiliser la bibliothèque Office qui convient aussi pour Excel.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub EnregistrerSous()
Dim dlg As FileDialog
 
Set dlg = Application.FileDialog(msoFileDialogSaveAs)
With dlg
 
    .Show
End With
 
ActiveDocument.SaveAs dlg.SelectedItems(1)
 
 
End Sub

Il y a d'autres moyens, mais celui là me plait bien !

[keurma]

grand merci pour la réponse.
Par contre où positionner "S:\ADMINISTRAT° et TECHNIQUE\TECHNIQUE\GESTION DES SERVICES TECHNIQUES\Suivi des travaux" ?

de plus j'ai une erreur de compilation : type non defini par l'utilisateur quand je met votre formule tel quelle.

Merci pour votre aide

[Heureux-oli]

Quelle est la version de Word ?

Tu dois ajouter une référence à ton projet : Microsoft Office xx.x Object Library