Discussion :

[mikadoo57]

Bonjour,
je suis en train de réaliser un formulaire et, pour faciliter le travail de l'utilisateur, je place 2 boutons en haut de page : l'un pour "enregistrer sous" et le second pour imprimer à partir de l'aperçu.
Mon souci est le suivant :
- je n'arrive qu'à enregistrer le document avec un nom prédéfini alors que je veux pouvoir passer par la fenêtre habituelle permettant de choisir l'emplacement.
- la macro "ActiveDocument.PrintPreview" me retourne une "erreur 5895 - l'affichage demandé n'est pas disponible".

Avez-vous des pistes de solution pour m'aider ?
Merci

[Heureux-oli]

Salut,

Quel code utilises-tu pour l'enregistrement?

Pour l'afichage en mode preview, possible que le fait d'avoir un formulaire en mode design pose problème.

[mikadoo57]

J'ai placé sur le formulaire un bouton avec le code

Code :

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

1
2
3
Private Sub CommandButton1_Click()
ActiveDocument.PrintPreview
End Sub

Pour être certain, j'ai confirmé avec l'enregistreur de macro qui me donne le même code.
J'ai même testé avec une feuille contenant seulement du texte et le résultat est le même
Pour "enregistrer sous", j'ai essayé cela :

Code :

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

1
2
3
Private Sub CommandButton4_Click()
Application.Dialogs(xlDialogSaveAs).Show
end sub

mais cela retourne l'erreur "5941-le membre de la collection requis n'existe pas".
Par défaut j'ai pris celui-ci mais il ne laisse pas de choix à l'utilisateur:

Code :

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

1
2
3
4
5
Private Sub CommandButton4_Click()
ChangeFileOpenDirectory "F:\"
ActiveDocument.SaveAs FileName:="Fiche" & "-" & Format(Date, "yyyy") & "-" & Format(Date, "mm") & "-" & Format(Date, "dd") & "-" & Format(Time, "hh") & "H" & Format(Time, "nn") & ".doc"
ActiveDocument.Close
End Sub

[Heureux-oli]

Salut,

En Wordn c'est normal que tu reçoives ce message d'erreur.

Code :

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

xlDialogSaveAs

C'est une constante Excel.

Pour avoir une boîte de dialogue Word.

Code :

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

Application.FileDialog(msoFileDialogSaveAs).Show

Par contre, pas besoin de change l'openfiledirectory

[mikadoo57]

Impec ! je viens de tester et cela fonctionne comme je le souhaitais. Pourtant j'ai parcouru, via Google, pas mal de forum et je n'ai jamais trouvé cette syntaxe.
Encore merci pour ton coup de main
Pendant que j'y suis, j'ai un petit souci avec une combobox : dans mon formulaire, l'utilisateur appuie sur un bouton qui ouvre un UF avec une combobox comprenant un certain nombre d'entrées. Une fois qu'il clique sur l'entrée recherchée, l'entrée se place dans un champ texte de mon formulaire. Donc tout va bien.
Par contre, lorsque la combobox s'ouvre, la fenêtre est vide et si je tape un caractère, la combobox se ferme immédiatement et inscrit la première entrée commençant par le caractère tapé dans la combobox.
J'ai essayé de modifier la propriété MatchEntry, sans succès.
voici les codes du UF

Code :

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

1
2
3
4
Private Sub userForm_Initialize()
Me.ComboBox1.List() = Array("1 R", "2 R", "3 R", "3 B", "3 BT", "4 R", "5 R", "6 R", "7 RM", "8 R", "9 R", "10 R", "511 R")
 
End Sub

Code :

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

1
2
3
4
5
Private Sub ComboBox1_Change()
ActiveDocument.FormFields(3).Result = Me.ComboBox1.Value
UserForm1.Hide
 
End Sub

Edit : et je n'ai toujours pas réglé mon problème d'aperçu avant impression

[mikadoo57]

Aïe! je me suis un peu emballé. Lorsque j'ai essayé ton code, je me suis arrêté à l'apparition de la fenêtre "enregistrer sous".
Là, je viens de faire un essai d'enregistrement sur le bureau et...rien. Il n'y a pas de document enregistré !
J'ai aussi essayé, mais sans plus de succès, avec le code donné par l'aide MS :

Code :

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

1
2
3
4
5
6
Private Sub CommandButton6_Click()
'Sub ShowSaveAsDialog()
    Dim dlgSaveAs As FileDialog
    Set dlgSaveAs = Application.FileDialog(FileDialogType:=msoFileDialogSaveAs)
    dlgSaveAs.Show
End Sub

[Heureux-oli]

Salut,

Il faut l'exécuter.

Ce que je t'ai donné était une piste, pas un code complet.

Comme code complet, on a per exemple :

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 MonFileDialog()
Dim oDlg As FileDialog
 
Set oDlg = Application.FileDialog(msoFileDialogSaveAs)
 
With oDlg
    .Show
    .Title = "Mon titre"
End With
 
oDlg.Execute
 
Set oDlg = Nothing
 
End Sub

Mais il faut gérer les erreurs et çà quelque que soitla voie que tu choisis.
si l'utilisateur clique sur Annuler, il faut le gérer.

Pour ton combo, il faut utiliser un autre évènement que change.

Change se produit lors de chaque changement et donc à chaque lettre tapée au clavier.

Si tu utilises AfterUpDate, ce serait plus pratique.

[mikadoo57]

Pour le combo, cela fonctionne comme je le souhaite. Il me faut juste rajouter un bouton "OK" pour valider la sélection. Merci.
Je creuse maintenant sur le SaveAs

[mikadoo57]

Bon, j'ai joué les fainéants et recopié ton code et cela fonctionne parfaitement. J'ai juste ajouté Application.Quit en fin d'exécution.
A quoi sert la ligne ".Title = ..." ? j'ai essayé de mettre entre "" le nom de fichier souhaité (FichVisit-date-heure) mais cela ne produit rien, il faut rentrer un nom pour accéder au bouton enregistrer.
Je te remercie de ton aide. Je suis familiarisé avec le VBA mais sur Excel. C'est ma première sur Word !

[Heureux-oli]

Salut,

Title met un titre à la boîte de dialogue obtenue.

Pour le nom de fichier par défaut Initialfilename


http://heureuxoli.developpez.com/off...-word/#LII-A-5

[mikadoo57]

Encore merci pour ton aide. Je rame un peu avec le VBA Word, d'autant qu'il est moins répandu que celui d'Excel (y compris sur les sites US).