problème sur méthode SaveAs - VB/VBA/VBS - Programmation
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 |
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 ?
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 ?
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 ?
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