fenetre enregistrer sous document word à partir d'excel [Résolu]

[Australia]

Bonjour,
eh oui, encore moi ,

je modifie un document word à partir d'excel, je souhaiterais ensuite pouvoir demander à l'utilisateur d'enregistrer le fichier word modifié à l'endroit ou il le souhaite avec lenom qu'il veut.
Faire un enregistrer sous du document word mais à partir d'excel, pour récupérer le chemin et le nom du fichier pour ensuite faire un "saveAs" sous word
eh ben devinez quoi ? j'y arrive pas

je sais pas comment faire afficher enregistrer sous d'un document word,
je l'avais fait depuis access (ou plutot on m'avait donné la solution ici) mais depuis excel ca marche pas pareil.

Su qqun comprend mon procblème,Y a t-il une solution ?

Merci d'avance

[ouskel'n'or]

Tu dois l'enregistrer sous l'application word que tu as nécessairement déclarée pour travailler sur le document word.
Un peu de code incluant tes déclarations nous aiderait à t'aider

[Australia]

du code, en voici en voila comme s'il en pleuvait

Code :

1
2
3
4
5
6
7
8
9
10
11
Set appwd = CreateObject("Word.Application")
   With appwd
   '   .Visible = True
      .documents.Open strCheminFichierWord
   End With
 
   appwd.Run "Mise_a_jour_variables", Cells(28, 3), Cells(24, 3), Cells(25, 3), Cells(26, 3), Cells(27, 3)
'c la que je voudrais un équivalent de appwd.GetSaveAsFilename du genre :
  mon_fichier = appwd.GetSaveAsFilename
appwd.run "enregistrer_fichier", mon_fichier
   appwd.Quit

merci de me dire c'est ca vous éclaire

[ouskel'n'or]

Code :

1
2
3
4
5
   With appwd
      .ActiveDocument.saveas filename:=mon_fichier
      DoEvents
      .Quit
   End With

Je ne comprends pas ce que tu fais dans word avec cette ligne

appwd.Run "Mise_a_jour_variables", Cells(28, 3), Cells(24, 3), Cells(25, 3), Cells(26, 3), Cells(27, 3)

Tu t'occupes de la chronologie avec le reste de ton code

[ThierryAIM]

Code :

1
2
3
4
5
6
7
8
FileSaveName = Application.GetSaveAsFilename(fileFilter:="Word Files (*.doc), *.doc")
If FileSaveName <> False Then
    With appwd
      .ActiveDocument.SaveAs Filename:=FileSaveName
      DoEvents
      .Quit
   End With
End If

ça marche pas ça ??

[Australia]

Envoyé par ouskel'n'or

Je ne comprends pas ce que tu fais dans word avec cette ligne

comme son nom l'indique, je mets a jour des variables word avec des valeurs d'excel en appelant une fonction de word depuis excel

[Australia]

Envoyé par ThierryAIM

ça marche pas ça ??

j'essaye en suivant (pas sur le même réseau que le net) mais ca a l'air d'être ca

Merci bien

[Australia]

Ca marche nickel,


ThierryAIM

[ouskel'n'or]

Envoyé par Australia

comme son nom l'indique, je mets a jour des variables word avec des valeurs d'excel en appelant une fonction de word depuis excel

C'est ce qu'il m'avait semblé comprendre. Mais comme la mise à jour automatique d"un tableau Excel dans Word est possible, ça me paraissait... bon, on fait comme on veut.
On fait ça au moment de l'insertion du tableau...
Juste pour dire