Discussion :

[ingft]

Bonjour à tous,

Je suis un gros débutant en VBA word ( et je me débrouille bien en VBA Excel)
J'ai un soucis je n'arrive pas sauvegarder de façon automatique un fichier word avec excel.
Avec mon code j'arrive toujours sur la fenetre SaveFile mais c'est tjs à moi de donner le nom du fichier et son emplacement...
l'objectif c'est que le fichier s'enregistre au nom indiqué dans l'emplacement indiqué
J'ai parcouru plein de forum et je ne comprend pas pourquoi cela ne marche pas chez moi.

Je ne comprend pas voici le code qui est tous simple :

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 word_avec_excel()
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
Set WordApp = CreateObject("Word.Application")     '-- ouvre une session Word
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Add    '-- crée un nouveau document
 
    WordApp.Selection.TypeText "Test de fonctionnement"
 
newName = "Test"
WordApp.ActiveDocument.SaveAs Filename:="C:\" & newName & ".docx"
 
End Sub

Merci par avance pour votre aide !

[clementmarcotte]

Bonjour,

Bonjour à tous,

Je suis un gros débutant en VBA word ( et je me débrouille bien en VBA Excel)
J'ai un soucis je n'arrive pas sauvegarder de façon automatique un fichier word avec excel.
Avec mon code j'arrive toujours sur la fenetre SaveFile mais c'est tjs à moi de donner le nom du fichier et son emplacement...
l'objectif c'est que le fichier s'enregistre au nom indiqué dans l'emplacement indiqué
J'ai parcouru plein de forum et je ne comprend pas pourquoi cela ne marche pas chez moi.

Je ne comprend pas voici le code qui est tous simple :

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 word_avec_excel()
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
Set WordApp = CreateObject("Word.Application")     '-- ouvre une session Word
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Add    '-- crée un nouveau document
 
    WordApp.Selection.TypeText "Test de fonctionnement"
 
newName = "Test"
WordApp.ActiveDocument.SaveAs Filename:="C:\" & newName & ".docx"
 
End Sub

Merci par avance pour votre aide !

As-tu Word 2010 ?

Je pose la question très sérieusement, parce que c'est le genre de situation où j'ai remarqué les caprices de VBA Office 2010 par rapport à VBA OfficeXP

Par exemple, sans utiliser automation, comme enregistrer dans Word à partir de VBA Word, ou dans Excel à partir de VBA Excel:

Ceci fonctionne:

Code :

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

1
2
newName = "Test"
ActiveDocument.SaveAs Filename:="C:\" & newName & ".docx"

Mais ceci plante joyeusement, alors que cela passait comme du beurre dans la poêle avec VBA Word 2002:

Code :

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

1
2
newName = C:\Test.docx
ActiveDocument.SaveAs(newname)

ou même avec

Code :

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

ActiveDocument.SaveAs("C:\test.docx")

c'est pareil.

Et c'est là que ma question prend tout son sens, parce que Automation dans VBA Office 2010 oblige de faire exactement le contraire, du moins chez-moi:

Ceci plante joyeusement

Code :

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

WordApp.ActiveDocument.SaveAs Filename:="C:\test.docx"

mais ceci fonctionne:

Code :

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

WordApp.ActiveDocument.SaveAs ("C:\test.docx")

C'est con, mais c'est comme cela. Je ne sais pas si cela peut avoir une influence quelconque, mais j'utilise Office à 64 bits.

[ingft]

Bonsoir,

J'ai effectivement word 2010 en 64 bit et aucun codes ne passe... c'est dingue quand même...
Il n'existe pas de correctif à ce bug ?

[clementmarcotte]

Bonjour,

À ma grande surprise, j'ai dû littéralement travailler en "Early Binding" et ajouter la référence à Word, sinon, impossible de juste exécuter la première ligne. (Message d'horreur de l'objet sans référence ou inexistant.) En fait, cela fonctionne quand même avec la référence et CreateObject, mais, de prime abord, cela n'a aucun sens. La procédure suivante "marche" sur ma machine. (Excel 2010, 64 bits.) Fais quand même attention au nom du dossier que j'ai dû modifier.

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
16
17
18
19
20
21
Sub word_avec_excel()
    'J'ai dû ajouter la référence à
    'Microsoft Word 14.0 Object Library
    'Sinon impossible de compiler
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    'Avec la référence cochée, Create Object ne sert plus à rien
    'Set WordApp = CreateObject("Word.Application")     '-- ouvre une session Word
    Set WordApp = New Word.Application
        WordApp.Visible = True
        Set WordDoc = WordApp.Documents.Add    '-- crée un nouveau document
        WordApp.Selection.TypeText "Test de fonctionnement"
    'J'ai changé le nom du dossier
    'parce que mon Windows 7 ne veut pas que mon VBA enregistre
    'mes fichiers dans la racine de mon disque dur.
    'Cela me rappelle la chanson avec le refrain "Je ne suis plus maître chez-moi,
    'c'est mon chien qui fait la loi."
    newName = "Test"
    WordApp.ActiveDocument.SaveAs Filename:="C:\temp\" & newName & ".docx"
    WordApp.Quit
End Sub

[ingft]

Bonjour,

Malgré ce nouveau code cela ne fonctionne toujours pas. J'ai bien essayé également de changer la destination du fichier mais cela ne change rien...
Merci quand même pour tes efforts !

[Bpack33]

Bonjour, pour ceux qui tomberaient sur ce sujet lors d'une recherche et se posent la question.

Dans les versions récentes, la méthode ActivementDocument.SaveAs n'existe plus, il faut utiliser:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Save()
Dim cHemin As String
Dim mOndoc As String
 
cHemin = "C:\Users\All Users\Desktop"
mOndoc = "mon document"
 
ActiveDocument.SaveAs2 FileName:=cHemin & "\" & mOndoc 
MsgBox ("Votre fichier est sauvegardé dans le dossier suivant : " & cHemin & "\" & mOndoc )
 
End Sub

https://msdn.microsoft.com/fr-fr/lib...ffice.15).aspx