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
     

Je pense que ton Application.UserName n'est pas très fiable.
Le nom dans Office n'est pas forcément le nom de login.
 
De plus, ta ligne ChDir est inutile et tu peux regrouper

et

en

bonjour,
 
J'ai essayé avec  
ActiveWorkbook.SaveAs Filename:=NameFile, FileFormat:=xlText, CreateBackup:=False  
J'ai toujours le problème.
 
Pour ce qui est du loginname et et le nom d'utilisateur excel j'ai bien fait attention et cela ne semble pas venir de là non plus
 
Une autre idée ?

Alors là il faut être bien assis.
 
J'ai protéger l'accès du code VBA par un mot de passe. Jusque là rien de bien extraordinaire non ?
En faisant plusieurs essais je me suis aperçu par hasard que la méthode Saveas fonctionne lorsque VBA est ouvert et le code entré : incroyable non ?
 
Une idée ou je vais dans un coin et je pleure ?

Toujours pas d'idée ?

S'il est encore temps, une piste : un fichier n'existe-t-il pas déjà sous le même nom ?

Réponse tardive
Non