Bonjour le fil
@Eric Kergresse, aucun besoin de cocher quelque référence que ce soit si on fait du Late binding
Ce que l'on fait avec
Set WordApp = CreateObject("Word.Application")
Voici le code testé et fonctionnel
Sub TestSauvegardeFichierWord()
Dim FichierWord As String, NouvNomFichier As String
'
FichierWord = "C:\Temp\FichierWord1.docx"
NouvNomFichier = "C:\Temp\NewFichierWord.docx"
'
SauvegardeFichierWord FichierWord, NouvNomFichier
End Sub
Sub SauvegardeFichierWord(ByVal FichierWord2 As String, ByVal NouvNomFichier2 As String)
Dim WordApp As Object, WordDoc As Object
Set WordApp = CreateObject("Word.Application")
With WordApp
.Visible = True
Set WordDoc = .Documents.Open(FichierWord2)
End With
With WordDoc
.SaveAs2 Filename:=NouvNomFichier2, FileFormat:=12
' Suite du code
' .....
End With
WordDoc.Close True
WordApp.Quit
Set WordApp = Nothing: Set WordDoc = Nothing
End Sub
Pour celles et ceux qui passeront, attention, il faut que le chemin et le nom de fichier soit bon
A+