Word (resolu) Enregistrer selon le contenu d'une case de tableau word

Keran

XLDnaute Junior
Bonjour voila j'aimerais enregistrer les donner comprise dans une case dans un fichier deja existant qui porte le nom de la case d'audesus le probleme c'est que le chemin est tromper par un retour a la ligne de je ne sais ou je vous joint mon code ... merci :)

VB:
Sub test()
Dim nom
Dim osb1 As String
nom = ActiveDocument.Tables(2).Cell(Row:=1, Column:=1).Range
nom = Left(nom, (Len(nom) - 1))
osb1 = ActiveDocument.Tables(1).Cell(2, 1).Range.Text
 

 
ActiveDocument.Tables(1).Cell(2, 1).Range.Select
Selection.Copy

MsgBox "D:\Downloads\Ressources\Ressources\" & nom & ".docx"

ChangeFileOpenDirectory "D:\Downloads\Ressources\Ressources\" & nom & "\note\"
Documents.Open FileName:="observation " & nom & ".docx", ConfirmConversions:= _
        False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
    
    Selection.InsertDateTime DateTimeFormat:="dddd d MMMM yyyy", InsertAsField _
        :=False, DateLanguage:=wdFrench, CalendarType:=wdCalendarWestern, _
        InsertAsFullWidth:=False
        
    Selection.TypeParagraph
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    ActiveDocument.save
    ActiveWindow.Close
 

 
End Sub