Traduction macro VBA

Question

J'ai la macro ci-dessous et pourriez-vous la traduire en langue excel ? Merci pf_chemin = Cells(3, 2).Value + "\" pf_numfich = InputBox("numero de fichier à transformer?") For i = 6 To (pf_numfich + 6 - 1) pf_file_in = Cells(i, 2).Value pf_file_out = Cells(i, 3).Value pf_file_complete_in = pf_chemin + pf_file_in pf_file_complete_out = pf_chemin + pf_file_out 'Ouverture du fichier Workbooks.OpenText Filename:= _ pf_file_complete_in, Origin:=xlMSDOS, StartRow _ :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _ , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _ Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _ Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array( _ 16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), _ Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array( _ 29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), Array(35, 1)) _ , TrailingMinusNumbers:=True 'Sauvegarde ActiveWorkbook.SaveAs Filename:= _ pf_file_complete_out, FileFormat:=xlCSV, _ CreateBackup:=False, ConflictResolution:=xlLocalSessionChanges ActiveWindow.Close savechanges:=False Next i...

FINDRH · Answer

A priori cette macro transforme un fichier texte en fichier excel CSV 'determine le chemin pour accéder au dosier pf_chemin = Cells(3, 2).Value + "\" pf_numfich = InputBox("numero de fichier à transformer?")' saisie du nr de fichier à traiter For i = 6 To (pf_numfich + 6 - 1) 'boucle pour traiter les fichiers dont le numéro est compris entre 6 et le nr saisie précédemment+6-1 pf_file_in = Cells(i, 2).Value ' nom du fichier entrée récupéré dans cellule ligne i colonne 2 pf_file_out = Cells(i, 3).Value' nom du fichier sortie récupéré dans cellule ligne i colonne 3 pf_file_complete_in = pf_chemin + pf_file_in' noms fichiers +chemin répertoire pf_file_complete_out = pf_chemin + pf_file_out'idem pour fichie sortie 'Ouverture du fichier ouverture du fichier et transformation du fichie en le segmentant Workbooks.OpenText Filename:= _ pf_file_complete_in, Origin:=xlMSDOS, StartRow _ :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _ , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _ Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _ Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array( _ 16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), _ Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array( _ 29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), Array(35, 1)) _ , TrailingMinusNumbers:=True 'Sauvegarde' ActiveWorkbook.SaveAs Filename:= _ pf_file_complete_out, FileFormat:=xlCSV, _ CreateBackup:=False, ConflictResolution:=xlLocalSessionChanges ActiveWindow.Close savechanges:=False Next i ' fichier suivant de la boucle A faire manuellement, ouvrir Excel puis fichier ouvrir TOUS LES FICHIERS, chercher el fichier texte et ouvrir, la boite de dialogue qui apparaît correspond à la partie transformation du fichier Puis fichier enregistrer sous... csv Si cela a pu t'être utile Cordialement FINDRH...