problème sur méthode SaveAs

problème sur méthode SaveAs - VB/VBA/VBS - Programmation

Marsh Posté le 23-09-2005 à 15:18:35    

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
 :pt1cable:  :pt1cable:  :pt1cable:

Reply

Marsh Posté le 23-09-2005 à 15:18:35   

Reply

Marsh Posté le 24-09-2005 à 00:27:58    

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

Citation :

NameFichier = ActiveWorkbook.Name

et

Citation :

Workbooks(NameFichier).SaveAs

en

ActiveWorkbook.SaveAs


Message édité par AlainTech le 24-09-2005 à 00:28:59

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 26-09-2005 à 09:33:02    

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 ?

Reply

Marsh Posté le 26-09-2005 à 09:57:01    

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 ?

Reply

Marsh Posté le 28-09-2005 à 16:32:21    

Toujours pas d'idée ?

Reply

Marsh Posté le 18-10-2005 à 15:34:03    

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

Reply

Marsh Posté le 11-01-2006 à 13:45:11    

Réponse tardive
Non

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed