1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
|
' déclaration des valeur à mettre à jour
Dim nom_complet_fichier As String
Dim titre_documentAs String
Dim phase As String
' indexation des valeurs
nom_complet_fichier = ActiveCell.Offset(0, 40).Value 'nom complet du fichier à mettre à jour
titre_document = ActiveCell.Value 'nom du fichier à mettre à jour
phase = ActiveCell.Offset(0, -8)
' vérification que le fichier existe
If dir(nom_complet_fichier) = "" Then
' si non on lancement la création_document
MsgBox "le fichier à mettre à jour n'a pas été retrouvé"
Exit Sub
End If
' déclaration diverses
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim cc As ContentControl
On Error Resume Next
ActiveWorkbook.FollowHyperlink Address:=ActiveCell.Offset(0, 40), NewWindow:=True
' Si une erreur est renvoyée, c'est que le fichier n'a pa pu être ouvert
If err.Number <> 0 Then
MsgBox "un problème est survenu lors de l'ouverture ce fichier est peu-être déjà ouvert par quelqu'un d'autre"
Exit Sub
End If
' mise à jour du controle de contenu par la balise
Set docCCs = ActiveDocument.SelectContentControlsByTag("phase")
If docCCs.Count <> 0 Then
For Each cc In docCCs
cc.Range.Text = phase
Next
End If
' mise à jour du controle de contenu par la balise
Set docCCs = ActiveDocument.SelectContentControlsByTag("titre_document")
If docCCs.Count <> 0 Then
For Each cc In docCCs
cc.Range.Text = titre_document
Next
End If
End
End Sub |
Partager