Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…