Discussion :

[maketossss]

Bonjour,

Je souhaites créer un bouton de commande "sauver" dans un document word permettant de sauvegarder le doc (qui est un formulaire) dans un autre fichier sous un autre nom.

Est ce réalisable ?

[Xo]

Salut, et bienvenue sur ce forum,

Est ce réalisable ?

Oui, bien sûr. Tu peux chercher un peu dans les nombreux exemples qui existent sur ce forum avec CommonDialog

[Megaxel]

Sinon, tu peux aussi faire "Fichier", "Enregistrer sous..." dans la barre de menu de Word...

Non, je rigole...

[maketossss]

Est ce que je peux utiliser les commondialog avec l'editeur VB de word ?

[ouskel'n'or]

Code :

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

  Application.Dialogs.Item(WdDialogSaveAs).Show

Regarde si ça te convient.

A+

[ouskel'n'or]

Si ça ne marche pas, j'ai retrouvé ça dans une macro qui marche.../\.../\

Code :

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

        dlgAnswer = Dialogs(wdDialogFileSaveAs).Show

A+

[maketossss]

Je clic droit sur mon bouton => visualiser le code et j'insère comme cela ?

Private Sub CommandButton1_Click()
Application.Dialogs.Item(WdDialogSaveAs).Show
End Sub

[ouskel'n'or]

Prends le deuxième code, la première syntaxe est fausse (manque le "Line") et puis tu essaies... "En essayant continuellement, on finit par réussir, donc, plus ça rate, plus t'as de chances d'y arriver..." (devise Shadok)

Là, je dois partic, ce sera pour plus tard...

A+

[maketossss]

Le code ne fonctionne pas (rien ne se passe)

Est ce qu'il est possible d'attribuer une macro à un bouton de commande ?

[ouskel'n'or]

Pourquoi faire simple quand.... compliqué ?

Code :

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

1
2
3
4
5
CheminComplet = "C:\Documents and Settings\Maketos\Mes documents\Altis\Novellus\" + "Check list Wet Clean Sequel1.htm"
ActiveDocument.SaveAs FileName:=CheminComplet, _ 
FileFormat:=wdFormatHTML, LockComments:=False, Password:="", _ 
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _ 
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False

Tu essaies et tu nous dis

A+

[ouskel'n'or]

Ne mélangeons pas tout...
Deuxième question :

Est ce qu'il est possible d'attribuer une macro à un bouton de commande ?

Oui !

Tu veux le placer où ?

A+

[ouskel'n'or]

Pendant que j'y pense, tu peux suppprimer tout ce qui se fait par défaut dans ta ligne de commande. Ce qui donne :

Code :

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

1
2
ActiveDocument.SaveAs FileName:=CheminComplet, _ 
FileFormat:=wdFormatHTML, AddToRecentFiles:=True

A+

[maketossss]

quand je passe par la macro cela fonctionne bien, mais quand je met le code que tu m'a donné pour le CommandButton1_Click() rien ne se passe, je voulais donc essayer d'attribuer la macro "save as" au bouton de commande...

Merci

[zazaraignée]

Salut

CheminComplet est un nom de variable de type String. Tu dois la déclarer et lui affecter une valeur, soit un chemin d'accès à un répertoire. Tu peux utiliser un InputBox ou un UserForm. Avec un InputBox, l'utilisateur doit connaitre par coeur le chemin d'accès de son répertoire, ce qui n'est pas très pratique. Avec un UserForm, tu peux ajouter des contrôles du File System Object, soit les DirListBox, DriveListBox et FileListBox et créer ainsi une boite de dialogue Enregistrer sous "old fashion".

Il y a une autre méthode pour appeler la boîte de dialogue Enregistrer sous de Word mais malheureusement, je l'ai juste vu passer sur ce forum sans l'avoir jamais utilisé.

[ouskel'n'or]

Tu dis :

mais quand je met le code que tu m'a donné pour le CommandButton1_Click() rien ne se passe,

Mets-nous ta ligne de commande.
Pour affecter une macro dans BoutonCommande_click, par exemple, tu dois nommer le classeur.
Où mets-tu ton bouton de commande ? Dans la feuille, dans une barre d'outil, dans un form ?
Il a trois façons de faire les choses et chacune d'elles utilise une méthode différente.
Si c'est dans le document word lui-même, tu dois placer ta macro dans la fenêtre de code "ThisDocument (code)"
En mode création : Deux clics sur ton bouton de commande ouvre cette fenêtre de code sur "Private Sub CommandButton1_Click()"
Là, tu places ton code. dans l'évènement MouseUp
Ce qui doit donner :

Code :

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

1
2
3
4
5
Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CheminComplet = "C:\Documents and Settings\Maketos\Mes documents\Altis\Novellus\" + "Check list Wet Clean Sequel1.htm" 
ActiveDocument.SaveAs FileName:=CheminComplet, _ 
FileFormat:=wdFormatHTML, AddToRecentFiles:=True
End Sub

A+

PS - Si ça ne marche toujours pas, donne ton code tel que tu le mets.

[maketossss]

Re,

Est qu'un bouton de commande est sensé fonctionné quand le document est enregistré en tant qe page web ?