Modifications

:::::::::::::pour la bonne raison que je préfère que le pipe soit en colonne 1. :::::::::::::mediawiki peut évoluer et offrir une série de bugs, un jour ou l'autre.:::raymond - [[Utilisateur::::::::::raymond - [[Utilisateur:Raymond SÉNÈQUERaymond SÉNÈQUE|Raymond SÉNÈQUE]] - Jeudi 24 Février 2011 14:31::::::::::::::Je comprends.::::::::::::::voilà une voilà une autre solution qui garde |- en début.::::::::::::::Dans Notepad++::::::::::::::<nowiki>{| <nowiki>{| class=wikitable</nowiki>::::::::::::::|-::::::::::::::<nowiki><<nowiki><!-- (L 1) --></nowiki>|Acte||Date||NOM Prénom||S||Age||PÈRE||MERE||CJT||LIEU::::::::::::::|-::::::::::::::<nowiki><!<nowiki><!-- (L 2) --></nowiki>|D||26/06/1763||TALON Barthélémy||M||80 ans|| || ||DUMAS Marie Jeanne||Alès::::::::::::::|-::::::::::::::<nowiki><<nowiki><!-- (L 3) --></nowiki>|D||26/07/1801||DUMAS Marie Jeanne||F||19 mois||DUMAS Claude||MARTIN Delphine||TALON Barthélémy||Alès::::|}::::<br />::::::|}Et la macro modifiée::::<br />::::::Sub xls_to_wgw()::::<br />:::: On Error Resume Next:::: TC = WorksheetFunction.CountA(Columns(1))::::::Et la macro modifiée::::::::::::::<br />::::::::::::::Sub xls_to_wgw()::::::::::::::<br />:::::::::::::: On Error Resume Next:::::::::::::: TC = WorksheetFunction.CountA(Columns(1)):::::::::::::: NC = TC - 1:::::::::::::: TR = WorksheetFunction.CountA(Rows(1)):::::::::::::: NR = TR - 1:::::::::::::: nom = ActiveSheet.Name:::::::::::::: Sheets("xls_to_wgw").Select:::::::::::::: ActiveWindow.SelectedSheets.Delete:::::::::::::: Sheets(nom).Select:::::::::::::: ActiveSheet.Copy After:=ActiveSheet:::::::::::::: ActiveSheet.Name = "xls_to_wgw":::::::::::::: Sheets("xls_to_wgw").Select:::::::::::::: <br />:::::::::::::: Columns("A:A").Select:::::::::::::: Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove:::::::::::::: Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove:::::::::::::: Rows("1:1").Select:::::::::::::: Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove:::::::::::::: <br />:::::::::::::: Range("A2").Select:::::::::::::: ActiveCell.FormulaR1C1 = "1":::::::::::::: Range("A3").Select:::::::::::::: ActiveCell.FormulaR1C1 = "2":::::::::::::: Range("A2:A3").Select:::::::::::::: Selection.AutoFill Destination:=Range("A2:A" & TC + 1), Type:=xlFillDefault:::::::::::::: Range("A2:A" & NC).Select::::::::::::::<br />:::::::::::::: Range("A1").Select:::::::::::::: ActiveCell.FormulaR1C1 = "<!-- (L ":::::::::::::: Range("B1").Select:::::::::::::: ActiveCell.FormulaR1C1 = ") -->":::::::::::::: Range("C1").Select:::::::::::::: ActiveCell.FormulaR1C1 = "|-":::::::::::::: Range("D1").Select:::::::::::::: ActiveCell.FormulaR1C1 = "|":::::::::::::: Range("E1").Select:::::::::::::: ActiveCell.FormulaR1C1 = "||":::::::::::::: Range("I1").Select:::::::::::::: ActiveCell.FormulaR1C1 = "{|":::::::::::::: Range("B2").Select:::::::::::::: Columns("B:B").ColumnWidth = 120:::::::::::::: Range("B2").Select:::::::::::::: ActiveCell.FormulaR1C1 = _:::::::::::::: "=CONCATENATE({{coloré|blue|R1C3}},{{coloré|red|R1C1,RC[-1],R1C2}},R1C4,RC[1],R1C5,RC[2],R1C5,RC[3],R1C5,RC[4],R1C5,RC[5],R1C5,RC[6],R1C5,RC[7],R1C5,RC[8],R1C5,RC[9])":::::::::::::: <br /> :::::::::::::: Selection.AutoFill Destination:=Range("B2:B" & TC + 1), Type:=xlFillDefault:::::::::::::: Cells.Select:::::::::::::: Cells.EntireRow.AutoFit:::::::::::::: <br />:::::::::::::: Set fs = CreateObject("Scripting.FileSystemObject"):::::::::::::: Set a = fs.CreateTextFile("c:\excel-to-mediawiki.txt", True):::::::::::::: a.WriteLine ("{| class=wikitable"):::::::::::::: Range("B2:B" & NC).Select:::::::::::::: For Each cell In Selection:::::::::::::: texte = Replace(cell.Value, "|-", {{coloré|red|vbCrLf & }}"|-"{{coloré|red| & vbCrLf}}):::::::::::::: a.WriteLine (texte):::::::::::::: Next cell:::::::::::::: a.WriteLine ("|}"):::::::::::::: a.Close:::::::::::::: <br />:::::::::::::: Range("B2").Select:::::::::::::: Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(NC, 0)).Select:::::::::::::: <br />::::::::::::::End Sub::::::::::::::<br />::::::::::::::Cordialement,::::::::::::::Sandy-Pascal Andriant - [[Utilisateur:Conil26|Conil26]] - Jeudi 24 Février 2011 14:58