Bonjour
Oui, impossible d'appeler un fichier comme un fichier ouvert, puisque le nouveau remplace l'ancien, que serait alors l'ancien?
Il faut soit le fermer, soit le renommer d'abord, c'est logique, et sécurisant. (par contre, tu peux faire les deux dans la même macro)
A part ça, j'ai testé ta macro, et il me semble que si "filesavename = False" tu as un msg d'erreur pour
filesavename = filesavename + "xls"
Il vaudrait donc peut-être mieux mettre le
If filesavename = False Then
avant, par exemple comme ça:
Code :
- '''''''''''''''''''''''''''---------------
- 1 filesavename = Application.GetSaveAsFilename()
- If filesavename = False Then
- GoTo 1 'remonte à 1 pour avoir un nom
- Else
- If Not (Right(filesavename, 4) = ".xls" ) Then
- filesavename = filesavename + "xls"
- End If
|
le Right(---) te donne directement la fin du nom
D'autre part, chez moi, le "Werte_Speichertabelle" ne fonctionne pas, il vaut mieux mettre "ActiveWorkbook", comme dit Monsieur Rufo, tt le monde comprend.... même Excel!
A+
Message édité par Laoo le 12-01-2010 à 06:00:27
---------------
Olympus OM-D EM-5 + 14-42