Bonjour,
voici mon programme
Dim NameFile, NameFichier
NameFile = "C:\Documents and Settings\" & Application.UserName & "\Mes documents\PUNCH_LIST.txt"
NameFichier = ActiveWorkbook.Name
ChDir "C:\Documents and Settings\" & Application.UserName & "\Mes documents"
Workbooks(NameFichier).SaveAs Filename:=NameFile, FileFormat:=xlText, CreateBackup:=False
En exécutant, j'ai une erreur d'execution 1004, la méthode SaveAs de l'objet Workbook a échoué
J'ai essayé avec ActiveWorkbook.SaveAs Filename:=NameFile, FileFormat:=xlText, CreateBackup:=False
Là je deviens chèvre devant un truc aussi simple. En plus ça fonctions sous office XP mais pas sous Office 2000.
Une idée vite au secours bêhêhêêê
Merci