Bonjour,
Merci pour votre aide.
Je n'y arrive toujours pas. Le fichier est le bon mais la longueur s'affiche à 12! alors qu'elle n'est que de 11.
Est-ce que je peux faire un truc comme ça (qui me donne une erreur ) :
NomFichierAConvertir = Trim(sent.Text).Substring(1, 11)
Macro ci-dessous
Sub Relance()
'
' Relance Macro
'
'
'NomFichierAConvertir As String
Dim doc As Document
Set doc = ActiveDocument
Dim paras As Paragraphs
Set paras = doc.Paragraphs
Dim para As Paragraph
Dim sents As Sentences
Dim sent As Range
ChangeFileOpenDirectory "E:\Relance\"
ActiveDocument.SaveAs2 Filename:="NOPIECE.docm", FileFormat:= _
wdFormatXMLDocumentMacroEnabled, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False, CompatibilityMode:=15
For Each para In paras
Set sents = para.Range.Sentences
For Each sent In sents
Debug.Print sent.Text
NomFichierAConvertir = Trim(sent.Text)
ChangeFileOpenDirectory "E:\Relance\pieces\"
MsgBox " Fichier " & NomFichierAConvertir
MsgBox "Longueur" & Len(NomFichierAConvertir)
' ne Fonctionne pas
'Documents.Open Filename:=NomFichierAConvertir, ConfirmConversions:=False, _
'ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
'PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
'WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="", Encoding:=1252
' Fonctionne
Documents.Open Filename:="R000451.TXT", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="", Encoding:=1252
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Font.Size = 14
Selection.TypeText Text:="PIN"
Selection.InsertSymbol Font:="+Corps", CharacterNumber:=199, Unicode:=True
Selection.TypeText Text:="ON S.A.S"
Selection.TypeParagraph
Selection.Font.Size = 12
Selection.TypeText Text:="8, rue de la Vacquerie"
Selection.TypeParagraph
Selection.TypeText Text:="75011 Paris"
Selection.TypeParagraph
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.EscapeKey
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
NomFichierAConvertir, ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
True, UseISO19005_1:=False
ActiveDocument.Close
Windows("NOPIECE").Activate
MsgBox " Fichier inexistant " & NomFichierAConvertir
Next
Next
ActiveDocument.Close
End Sub
C'est juste un fichier "Nopiece.txt" qui contient des no de relances clients "R000451.TXT", "R000482.TXT" .. sur lesquels je fais une mise en page avec ajout d'une entête et PDF pour envoi par mail en auto par la suite (ma macro en VBA est déjà faite heureusement!!!).
Encore merci