Répondre à la discussion

Message

<blockquote data-quote="marine_volria" data-source="post: 20454339" data-attributes="member: 355853">Bonjour,Pourriez vous me dire pourquoi j'ai un bug sur la ligne 141 &quot;&quot;&quot;&quot;&quot;&quot;shortsn = Left(strTEMP, InStr(strTEMP, &quot;-&quot;) - 1)&quot;&quot;&quot;&quot;&quot;&quot; on me dit argument ou appel de procédure incorrect je comprends pas trop pourquoi.Merci d'avance pour votre aide.&nbsp;&nbsp; [CODE]Sub Docx_en_P_pdf()&nbsp; &nbsp; ActiveDocument.Save&nbsp;&nbsp; 'sauvegarde doc&nbsp;&nbsp; &nbsp; path1 = ActiveDocument.Path&nbsp; &nbsp; FileName = ActiveDocument.Name&nbsp;&nbsp; 'Chemin prendre doc actif&nbsp;&nbsp; 'Nom du doc prendre le doc actif&nbsp;&nbsp; &nbsp; FileName = Left(FileName, Len(FileName) - 5)&nbsp;&nbsp; &nbsp; ChangeFileOpenDirectory path1 &amp; &quot;\&quot;&nbsp; &nbsp; ActiveDocument.SaveAs2 FileName:=FileName &amp; &quot;.docx&quot;, _&nbsp; &nbsp; &nbsp; &nbsp; FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:=&quot;&quot;, _&nbsp; &nbsp; &nbsp; &nbsp; AddToRecentFiles:=True, WritePassword:=&quot;&quot;, ReadOnlyRecommended:=False, _&nbsp; &nbsp; &nbsp; &nbsp; EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _&nbsp; &nbsp; &nbsp; &nbsp; :=False, SaveAsAOCELetter:=False, CompatibilityMode:=15&nbsp; &nbsp; 'prendre le docx&nbsp;&nbsp; &nbsp;&nbsp; &nbsp; &nbsp; ActiveDocument.ExportAsFixedFormat OutputFileName:= _&nbsp; &nbsp; &nbsp; &nbsp; path1 &amp; &quot;\&quot; &amp; FileName &amp; &quot;-P.pdf&quot;, ExportFormat:=wdExportFormatPDF, _&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _&nbsp; &nbsp; &nbsp; &nbsp; wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _&nbsp; &nbsp; &nbsp; &nbsp; IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _&nbsp; &nbsp; &nbsp; &nbsp; wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _&nbsp; &nbsp; &nbsp; &nbsp; True, UseISO19005_1:=False&nbsp; &nbsp; 'transformer en -P.pdf&nbsp;&nbsp; &nbsp; &nbsp; ActiveDocument.Save&nbsp; &nbsp; ' sauvegarder le docuement actifEnd SubSub Docx_en_R0_docx()&nbsp; &nbsp; ActiveDocument.Save&nbsp;&nbsp; &nbsp; path1 = ActiveDocument.Path&nbsp; &nbsp; FileName = ActiveDocument.Name&nbsp;&nbsp; &nbsp; FileName = Left(FileName, Len(FileName) - 5)&nbsp;&nbsp; &nbsp; ChangeFileOpenDirectory path1 &amp; &quot;\&quot;&nbsp; &nbsp; ActiveDocument.SaveAs2 FileName:=FileName &amp; &quot;.docx&quot;, _&nbsp; &nbsp; &nbsp; &nbsp; FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:=&quot;&quot;, _&nbsp; &nbsp; &nbsp; &nbsp; AddToRecentFiles:=True, WritePassword:=&quot;&quot;, ReadOnlyRecommended:=False, _&nbsp; &nbsp; &nbsp; &nbsp; EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _&nbsp; &nbsp; &nbsp; &nbsp; :=False, SaveAsAOCELetter:=False, CompatibilityMode:=15&nbsp; &nbsp;&nbsp; &nbsp; &nbsp; ActiveDocument.ExportAsFixedFormat OutputFileName:= _&nbsp; &nbsp; &nbsp; &nbsp; path1 &amp; &quot;\&quot; &amp; FileName &amp; &quot;-R0.docx&quot;, ExportFormat:=wdExportFormatPDF, _&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _&nbsp; &nbsp; &nbsp; &nbsp; wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _&nbsp; &nbsp; &nbsp; &nbsp; IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _&nbsp; &nbsp; &nbsp; &nbsp; wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _&nbsp; &nbsp; &nbsp; &nbsp; True, UseISO19005_1:=False&nbsp; &nbsp;&nbsp; &nbsp; &nbsp; ActiveDocument.SaveEnd SubSub insérerfilename()&nbsp; &nbsp; Selection.InsertBefore Text:=Left(ActiveDocument.Name, _&nbsp; &nbsp; &nbsp; Len(ActiveDocument.Name) - 5)End SubSub Pied_de_page_auto()&nbsp; &nbsp; If ActiveWindow.View.SplitSpecial &lt;&gt; wdPaneNone Then&nbsp; &nbsp; &nbsp; &nbsp; ActiveWindow.Panes(2).Close&nbsp; &nbsp; End If&nbsp; &nbsp; If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _&nbsp; &nbsp; &nbsp; &nbsp; ActivePane.View.Type = wdOutlineView Then&nbsp; &nbsp; &nbsp; &nbsp; ActiveWindow.ActivePane.View.Type = wdPrintView&nbsp; &nbsp; End If&nbsp; &nbsp; ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter&nbsp; &nbsp; Selection.TypeBackspace&nbsp; &nbsp; Selection.HomeKey Unit:=wdLineEnd SubSub Insertion_date_auto()&nbsp; &nbsp; If ActiveWindow.View.SplitSpecial &lt;&gt; wdPaneNone Then&nbsp; &nbsp; &nbsp; &nbsp; ActiveWindow.Panes(2).Close&nbsp; &nbsp; End If&nbsp; &nbsp; If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _&nbsp; &nbsp; &nbsp; &nbsp; ActivePane.View.Type = wdOutlineView Then&nbsp; &nbsp; &nbsp; &nbsp; ActiveWindow.ActivePane.View.Type = wdPrintView&nbsp; &nbsp; End If&nbsp; &nbsp; ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter&nbsp; &nbsp; Selection.InsertDateTime DateTimeFormat:=&quot;dddd d MMMM yyyy&quot;, InsertAsField _&nbsp; &nbsp; &nbsp; &nbsp; :=True, DateLanguage:=wdFrench, CalendarType:=wdCalendarWestern, _&nbsp; &nbsp; &nbsp; &nbsp; InsertAsFullWidth:=FalseEnd SubSub Rapports_automatiques_génération_Par_appel()'Macro d'éxécution généraleDocx_en_P_pdfDocx_en_R0_docxinsérerfilenamePied_de_page_autoInsertion_date_autoEnd SubFunction IsNumeric1(LeMot As String)&nbsp; &nbsp; Dim i As Integer&nbsp; &nbsp; i = Len(LeMot)&nbsp; &nbsp; Dim test As Boolean&nbsp; &nbsp; test = True&nbsp;&nbsp; '&nbsp;&nbsp; chh = Asc(Mid(LeMot, i))&nbsp; &nbsp; While i &lt;&gt; 0 And test&nbsp; &nbsp; &nbsp; &nbsp; test = Asc(Mid(LeMot, i)) &gt; 47 And Asc(Mid(LeMot, i)) &lt; 58&nbsp; &nbsp; &nbsp; &nbsp; i = i - 1&nbsp; &nbsp; Wend&nbsp;&nbsp; &nbsp; &nbsp; IsNumeric1 = (i = 0)'&nbsp; &nbsp; With ActiveDocument.Range(Start:=deb, End:=fin) 'emplacement du signet&nbsp;'&nbsp; &nbsp; &nbsp;&nbsp; .Bookmarks.Add Name:=Nom 'ajoute le signet&nbsp; '&nbsp; End WithEnd FunctionSub filen()&nbsp; &nbsp; 'ggggf&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; parts = Split(Inputfolder, &quot;\&quot;)&nbsp; &nbsp;&nbsp; '&nbsp;&nbsp; a = parts(UBound(parts()))&nbsp;&nbsp; ' MsgBox (&quot;File is: &quot; &amp; a)&nbsp; &nbsp; Dim strFileName As String&nbsp; &nbsp; Dim strTEMP As String&nbsp; &nbsp; Dim shortsn As String&nbsp; &nbsp; Dim longsn As String&nbsp; &nbsp; Dim dateinter As String&nbsp; &nbsp; Dim dateinterlabel As String&nbsp;&nbsp; &nbsp; strFileName = ThisDocument.Name&nbsp; &nbsp; strTEMP = Right(strFileName, Len(strFileName) - InStr(strFileName, &quot;-&quot;))&nbsp; &nbsp; shortsn = Left(strTEMP, InStr(strTEMP, &quot;-&quot;) - 1)&nbsp; &nbsp; strTEMP = Right(strTEMP, Len(strTEMP) - InStr(strTEMP, &quot;-&quot;))&nbsp; &nbsp; longsn = Left(strTEMP, InStr(strTEMP, &quot;-&quot;) - 1)&nbsp; &nbsp; strTEMP = Left(strTEMP, InStrRev(strTEMP, &quot;.&quot;) - 1)&nbsp; &nbsp; dateinter = Right(strTEMP, Len(strTEMP) - InStrRev(strTEMP, &quot;-&quot;))&nbsp; &nbsp; While Len(dateinter) &lt;&gt; 6 Or Not (IsNumeric1(dateinter))&nbsp; &nbsp; &nbsp; &nbsp; strTEMP = Left(strTEMP, Len(strTEMP) - Len(dateinter) - 1)&nbsp; &nbsp; &nbsp; &nbsp; dateinter = Right(strTEMP, Len(strTEMP) - InStrRev(strTEMP, &quot;-&quot;))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; Wend&nbsp; &nbsp; yearinter = Left(dateinter, 2)&nbsp; &nbsp; dayinter = Right(dateinter, 2)&nbsp; &nbsp; monthinter = Right(Left(dateinter, 4), 2)&nbsp; &nbsp; dateinterlabel = Format(CDate(dayinter &amp; &quot;/&quot; &amp; monthinter &amp; &quot;/&quot; &amp; yearinter), &quot;dddd d mmmm yyyy&quot;)&nbsp; &nbsp; TextBox1.Font.Size = 10&nbsp; &nbsp; TextBox2.Font.Size = 10&nbsp; &nbsp; TextBox3.Font.Size = 10&nbsp; &nbsp; TextBox3.Text = dateinterlabel&nbsp; &nbsp; TextBox2.Text = longsn&nbsp; &nbsp; TextBox1.Text = shortsn&nbsp;'&nbsp; &nbsp; TextBox1000.Font.Size = 10&nbsp;&nbsp;&nbsp; &nbsp;'&nbsp;&nbsp; TextBox1016.Font.Size = 7&nbsp; '&nbsp; TextBox1018.Font.Size = 7&nbsp;&nbsp; ' TextBox1020.Font.Size = 7&nbsp;&nbsp; '&nbsp; &nbsp; TextBox1017.Font.Size = 8&nbsp;'&nbsp;&nbsp; TextBox1019.Font.Size = 8&nbsp; '&nbsp; TextBox1021.Font.Size = 8&nbsp;&nbsp; &nbsp;&nbsp; End SubPrivate Sub Document_Open()filenEnd Sub[/CODE]</blockquote>

[QUOTE="marine_volria, post: 20454339, member: 355853"] Bonjour, Pourriez vous me dire pourquoi j'ai un bug sur la ligne 141 """"""shortsn = Left(strTEMP, InStr(strTEMP, "-") - 1)"""""" on me dit argument ou appel de procédure incorrect je comprends pas trop pourquoi. Merci d'avance pour votre aide. [CODE]Sub Docx_en_P_pdf() ActiveDocument.Save 'sauvegarde doc path1 = ActiveDocument.Path FileName = ActiveDocument.Name 'Chemin prendre doc actif 'Nom du doc prendre le doc actif FileName = Left(FileName, Len(FileName) - 5) ChangeFileOpenDirectory path1 & "\" ActiveDocument.SaveAs2 FileName:=FileName & ".docx", _ FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", _ AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _ EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _ :=False, SaveAsAOCELetter:=False, CompatibilityMode:=15 'prendre le docx ActiveDocument.ExportAsFixedFormat OutputFileName:= _ path1 & "\" & FileName & "-P.pdf", 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 'transformer en -P.pdf ActiveDocument.Save ' sauvegarder le docuement actif End Sub Sub Docx_en_R0_docx() ActiveDocument.Save path1 = ActiveDocument.Path FileName = ActiveDocument.Name FileName = Left(FileName, Len(FileName) - 5) ChangeFileOpenDirectory path1 & "\" ActiveDocument.SaveAs2 FileName:=FileName & ".docx", _ FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", _ AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _ EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _ :=False, SaveAsAOCELetter:=False, CompatibilityMode:=15 ActiveDocument.ExportAsFixedFormat OutputFileName:= _ path1 & "\" & FileName & "-R0.docx", 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.Save End Sub Sub insérerfilename() Selection.InsertBefore Text:=Left(ActiveDocument.Name, _ Len(ActiveDocument.Name) - 5) End Sub Sub Pied_de_page_auto() 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 = wdSeekCurrentPageFooter Selection.TypeBackspace Selection.HomeKey Unit:=wdLine End Sub Sub Insertion_date_auto() 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 = wdSeekCurrentPageFooter Selection.InsertDateTime DateTimeFormat:="dddd d MMMM yyyy", InsertAsField _ :=True, DateLanguage:=wdFrench, CalendarType:=wdCalendarWestern, _ InsertAsFullWidth:=False End Sub Sub Rapports_automatiques_génération_Par_appel() 'Macro d'éxécution générale Docx_en_P_pdf Docx_en_R0_docx insérerfilename Pied_de_page_auto Insertion_date_auto End Sub Function IsNumeric1(LeMot As String) Dim i As Integer i = Len(LeMot) Dim test As Boolean test = True ' chh = Asc(Mid(LeMot, i)) While i <> 0 And test test = Asc(Mid(LeMot, i)) > 47 And Asc(Mid(LeMot, i)) < 58 i = i - 1 Wend IsNumeric1 = (i = 0) ' With ActiveDocument.Range(Start:=deb, End:=fin) 'emplacement du signet ' .Bookmarks.Add Name:=Nom 'ajoute le signet ' End With End Function Sub filen() 'ggggf parts = Split(Inputfolder, "\") ' a = parts(UBound(parts())) ' MsgBox ("File is: " & a) Dim strFileName As String Dim strTEMP As String Dim shortsn As String Dim longsn As String Dim dateinter As String Dim dateinterlabel As String strFileName = ThisDocument.Name strTEMP = Right(strFileName, Len(strFileName) - InStr(strFileName, "-")) shortsn = Left(strTEMP, InStr(strTEMP, "-") - 1) strTEMP = Right(strTEMP, Len(strTEMP) - InStr(strTEMP, "-")) longsn = Left(strTEMP, InStr(strTEMP, "-") - 1) strTEMP = Left(strTEMP, InStrRev(strTEMP, ".") - 1) dateinter = Right(strTEMP, Len(strTEMP) - InStrRev(strTEMP, "-")) While Len(dateinter) <> 6 Or Not (IsNumeric1(dateinter)) strTEMP = Left(strTEMP, Len(strTEMP) - Len(dateinter) - 1) dateinter = Right(strTEMP, Len(strTEMP) - InStrRev(strTEMP, "-")) Wend yearinter = Left(dateinter, 2) dayinter = Right(dateinter, 2) monthinter = Right(Left(dateinter, 4), 2) dateinterlabel = Format(CDate(dayinter & "/" & monthinter & "/" & yearinter), "dddd d mmmm yyyy") TextBox1.Font.Size = 10 TextBox2.Font.Size = 10 TextBox3.Font.Size = 10 TextBox3.Text = dateinterlabel TextBox2.Text = longsn TextBox1.Text = shortsn ' TextBox1000.Font.Size = 10 ' TextBox1016.Font.Size = 7 ' TextBox1018.Font.Size = 7 ' TextBox1020.Font.Size = 7 ' TextBox1017.Font.Size = 8 ' TextBox1019.Font.Size = 8 ' TextBox1021.Font.Size = 8 End Sub Private Sub Document_Open() filen End Sub [/CODE] [/QUOTE]

Vérification