PeteToulon
XLDnaute Nouveau
Bonjour,
J'ouvre un fichier Word à partir d'Excel avec la macro ci-après.
Mon fichier Word génère un publipostage lié à mes données Excel.
Comment afficher la fenêtre de mise à jour des données devant la page Excel ?
Ma macro:
Private Sub ACCESDAC_Click()
Dim Fichier, Chemin As String
If Worksheets("Paramètres").ToggleButton1.Value = True Then
Fichier = Worksheets("Paramètres").Range("SUPP_" & ActiveSheet.Name) & ".docx"
Else: Fichier = Worksheets("Paramètres").Range("MAIRE_" & ActiveSheet.Name) & ".docx"
End If
Chemin = Worksheets("Paramètres").Range("PATH_" & ActiveSheet.Name)
ActiveWorkbook.FollowHyperlink Chemin & Fichier
End Sub
Les variables Fichier et Chemin me permettre de définir le chemin complet d'accès à mon en fonction de paramètres internes (le fichier à ouvrir change en fonction de ces paramètres.
Merci d'avance.
J'ouvre un fichier Word à partir d'Excel avec la macro ci-après.
Mon fichier Word génère un publipostage lié à mes données Excel.
Comment afficher la fenêtre de mise à jour des données devant la page Excel ?
Ma macro:
Private Sub ACCESDAC_Click()
Dim Fichier, Chemin As String
If Worksheets("Paramètres").ToggleButton1.Value = True Then
Fichier = Worksheets("Paramètres").Range("SUPP_" & ActiveSheet.Name) & ".docx"
Else: Fichier = Worksheets("Paramètres").Range("MAIRE_" & ActiveSheet.Name) & ".docx"
End If
Chemin = Worksheets("Paramètres").Range("PATH_" & ActiveSheet.Name)
ActiveWorkbook.FollowHyperlink Chemin & Fichier
End Sub
Les variables Fichier et Chemin me permettre de définir le chemin complet d'accès à mon en fonction de paramètres internes (le fichier à ouvrir change en fonction de ces paramètres.
Merci d'avance.