Modifications

;NB: si Si vous voulez éviter une intrusion dans le disque '''C:\''', remplacez {{coloré|red|c}} par {{coloré|red|d}} la lettre du disque indiquée dans les 2 ocurences le nom du dernier paragraphe de fichier sur la macropremière ligne du code VBA.<br /> <nowikicode> Set fs = CreateObject("Scripting.FileSystemObject") </nowikis><br /><nowiki> Set a Private Const LeFichier As String = fs.CreateTextFile("</nowiki>{{coloré|red|c}}<nowiki>:\excel-to-mediawiki.txt", True) </nowiki><br /s>...<br /><nowiki> MsgBox Private Const LeFichier As String = "La feuille Excel " & Sheets(nom).Name & " a été transformée en fichier WikiGenWeb sour le nom </nowikib>{{coloré|red|c}}<nowikiu>D:\excel-to-mediawiki.txt que vous devez copier dans votre article." & vbCrLf _ </nowikiu><br /b><nowiki> & ncols & " colonnes." & vbCrLf & nrows & " lignes." </nowiki><br /><nowiki> End Sub </nowiki> ;Rédiger:{{coloré|red|d}}:\excel-to-mediawiki.txt"</code>