Bonjour a tous,
Actuellement en stage en Allemagne, j'utilise des macro excel dans le cadre de mon stage.
La macro realisee permet de convertir une page html en txt, en clair j'ouvre 1 page html et je l'enregistre en txt. Jusque la tout va bien !
Mon souci est de trouver comment attribuer un nom different a chaque fichier txt converti ?
Merci d'avance de votre aide, cela m'enleverait une belle epine du pied !
Sub TEST_001()
'
' TEST_001 Macro
' Macro recorded 27.09.2010 by Amilien
'
'
Classeur = Application.GetOpenFilename("Classeurs Excel,*.html")
If Classeur = False Then Exit Sub
Workbooks.Open Filename:=Classeur
ActiveWorkbook.SaveAs Filename:= _
"C:\_U1\PROGRAMME\NI_8.5\PROGRAMME_LV85\Report\CONVERSION_EXCEL.txt", _
FileFormat:=xlText, CreateBackup:=False
End Sub
Actuellement en stage en Allemagne, j'utilise des macro excel dans le cadre de mon stage.
La macro realisee permet de convertir une page html en txt, en clair j'ouvre 1 page html et je l'enregistre en txt. Jusque la tout va bien !
Mon souci est de trouver comment attribuer un nom different a chaque fichier txt converti ?
Merci d'avance de votre aide, cela m'enleverait une belle epine du pied !
Sub TEST_001()
'
' TEST_001 Macro
' Macro recorded 27.09.2010 by Amilien
'
'
Classeur = Application.GetOpenFilename("Classeurs Excel,*.html")
If Classeur = False Then Exit Sub
Workbooks.Open Filename:=Classeur
ActiveWorkbook.SaveAs Filename:= _
"C:\_U1\PROGRAMME\NI_8.5\PROGRAMME_LV85\Report\CONVERSION_EXCEL.txt", _
FileFormat:=xlText, CreateBackup:=False
End Sub