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

bob69740 · 29 Octobre 2012

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 · 30 Octobre 2012

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
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 · 30 Octobre 2012

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

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

bob69740

XLDnaute Nouveau

bob69740

XLDnaute Nouveau

bob69740

XLDnaute Nouveau

Discussions similaires