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