Ouvrir, mettre à jour, sauvegarder un fichier Word à partir d'Excel

bob69740

XLDnaute Nouveau
Bonjour à tous,

J'ai cherché sur le fofo pour effectuer une macro sous excel me permettant d'ouvrir un fichier word situé dans le même répertoire, mais je n'ai rien trouvé me satisfaisant exactement :S

Mon but est en cliquant sur un bouton, d'ouvrir un fichier word, de mettre à jour des texte avec les cellules (Liaisons), et de le sauvegarder sous un nom présent dans une cellule de mon fichier excel.

J'arrive à ouvrir le fichier et le mettre à jour, mais pas à l'enregistrer :/

J'utilise ce code pour l'ouvrir et le mettre à jour :

Sub Macro1()
'
ThisWorkbook.FollowHyperlink "XXXXXXXXXX.doc"
End Sub

Comment faire pour "l'enregistrer sous" le même dossier, avec le nom de la cellule A3 par exemple.

Merci à vous :)

Bob
 

bob69740

XLDnaute Nouveau
Re : Ouvrir, mettre à jour, sauvegarder un fichier Word à partir d'Excel

J'ai pas mal avancé et changer de solution :

Sub Vers_Word()
Dim NDF As String, NDF1 As String, NDF2 As String
Dim WordApp As Word.Application
Dim WordDoc As Word.Document

'NDF = ActiveWorkbook.Path & "\MTECH-PFO-1009 - BL"
'NDF1 = ActiveWorkbook.Path & "\MTECH-PFO-1011 - PVA"
NDF2 = ActiveWorkbook.Path & "\" & Sheets("Documents").Range("C11").Text & ".doc"

On Error Resume Next
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(NDF, ReadOnly:=False)
Set WordDoc = WordApp.Documents.Open(NDF1, ReadOnly:=False)

If Range("B11").Value = "BL" Then
NDF = ActiveWorkbook.Path & "\MTECH-PFO-1009 - BL"
End If

If Range("B11").Value = "PVA" Then
NDF = ActiveWorkbook.Path & "\MTECH-PFO-1011 - PVA"
End If

Je ne suis pas sur de mes deux IF...

En fait si... je suis sur que cela ne marche pas :D
Mais je ne sais pas comment écrire cela correctement ^^

En gros,

"Si, cellule B11 = PVA (texte) alors NDF = MTECH-PFO-1011 - PVA(documents word)"
"Si, cellule B11 = BF (texte) alors NDF = MTECH-PFO-1009 - BL(documents word)"


Une petite aid svp :)
 

bob69740

XLDnaute Nouveau
Re : Ouvrir, mettre à jour, sauvegarder un fichier Word à partir d'Excel

Haaaa Trouvé :)

Sub Vers_Word()
Dim NDF As String, NDF1 As String, NDF2 As String, NDF3 As String
Dim WordApp As Word.Application
Dim WordDoc As Word.Document

NDF = ActiveWorkbook.Path & "\MTECH-PFO-1009 - BL"
NDF1 = ActiveWorkbook.Path & "\MTECH-PFO-1011 - PVA"
NDF2 = ActiveWorkbook.Path & "\" & Sheets("Documents").Range("C11").Text & ".doc"

On Error Resume Next
Set WordApp = CreateObject("Word.Application")


If Range("B11").Value = "BL" Then
NDF3 = NDF
Set WordDoc = WordApp.Documents.Open(NDF3, ReadOnly:=False)
End If

If Range("B11").Value = "PVA" Then
NDF3 = NDF1
Set WordDoc = WordApp.Documents.Open(NDF1, ReadOnly:=False)
End If
 

Discussions similaires

Haut Bas