BONJOUR?
iL Bloque toujours au même niveau, j'ai modifié le nom de mon word en Relance1 et modificié dans le code VBA mais ca bloque
LORSQUE JE CLIC SUR MON BOUTON D'ACTION MON WORD DOIT ETRE OUVERT OU FERME (J'AI ESSAYE LES 2 FACON MAIS CA BLOQUE TOUJOURS AU MEME ENDROIT.
LE REPERTOIR OU SONT STOCKES LES FICHIERS EST : J:\Cortex\00MyReport Cortex\Compta\CGA
MON CLASSEUR EXCEL A ETE RENOMME GRAND LIVRE CLIENTS ET MON WORD Relance1
DESOLEE DE REFAIRE APPELLE. JE DOIS SUREMENT FAIRE QUELQUE CHOSE QUI N'EST PAS CORRECT.
Sub copier_sur_SignetDocWord()
'necesite d'activer la reference Microsoft Word xx.x Object Library
Dim appWrd As Word.Application
Dim docWord As Word.Document
Dim Fichier As String
Fichier = ThisWorkbook.Path & "\Relance1" 'à adapter
Set appWrd = CreateObject("Word.Application") 'creation session Word
appWrd.Visible = True 'pour que word reste masqué pendant l'operation
Set docWord = appWrd.Documents.Open(Fichier) 'CA BLOQUE ICI
Sheets("TCD").Range("A4").CurrentRegion.Copy
' paste the data into Word at the bookmark, set the arguments as needed
docWord.Bookmarks("iciTCD").Range.PasteExcelTable LinkedToExcel:=False, _
WordFormatting:=True, RTF:=False
Application.CutCopyMode = False
docWord.Save
docWord.Close 'fermer le document Word
appWrd.Quit 'fermer la session Word
End Sub