Rechercher : dans
Par :

VBA sous excel sauvegarder un fichier

Dernière réponse le 11 déc 2007 à 13:18:29 electro-be, le 11 déc 2007 à 09:18:37 
 Signaler ce message aux modérateurs

Bonjour,


Je ne sais pas si je poste sur le bon forum mais j'essaie ....

Je voudrais faire une macro en excel pour sauvegarder, à un endroit chaque fois différent, un classeur portant le nom d'une cellule ce ce classeur (toujours dans le même répertoire mais dans des dossiers différents)

Et je voudrais le faire grâce à un bouton pour tout classeur que je voudrais enregistrer


Exemple classeur 1 dans la cellule A1, il y a un nom qui me servira à la sauvergarde de nom de classeur et je voudrais le sauvergarder dans le répertoire c:\archives\ ....... mais chaque fois dans un sous répertoire que je définis

Quelqu'un peut-il m'aider ?

D'avance merci

Configuration: Windows XP
Internet Explorer 6.0

1

phil232, le 11 déc 2007 à 11:32:26
  • +2

ActiveWorkbook.SaveAs Filename:=fName

Répondre à phil232

2

electro-be, le 11 déc 2007 à 11:48:49

Merci pour ce début de solution, mais tu pourais développer l'ensemble de la macro (je suis très loin d'être un expert )

Merci beaucoup

Répondre à electro-be

3

phil232, le 11 déc 2007 à 12:19:33
  • +1

Je voudrais faire une macro en excel pour sauvegarder
tu pourais développer l'ensemble de la macro (je suis très loin d'être un expert )

c'est 50 € l'heure

le restant tu peu y arriver

Répondre à phil232

4

electro-be, le 11 déc 2007 à 12:57:06

Le problème c'est que quand j'écris le code que tu m'as donné dans une nouvelle macro de PERSO.XLS .....débogage ........... donc il y a une subtilité que je n'ai pas ........

Si tu pouvais être sympa ......

Merci

Répondre à electro-be

5

phil232, le 11 déc 2007 à 12:59:44

"débogage ........... donc il y a une subtilité que je n'ai pas ", euuuhh, hein ? explique stp

Répondre à phil232

6

electro-be, le 11 déc 2007 à 13:06:23

Dès que j'essaie de lancer la macro, je me retrouve en débogage

je te donne le code que jai utilisé à partir de ton apport :

Sub Fermeture()
'
' Fermeture Macro
' Macro enregistrée le 11/12/2007 par JJG
'
ActiveWorkbook.SaveAs Filename = Range("ao1").Value
'
End Sub

car je veux qu'il se sauve sous le nom contenu dans la cellule AO1

1/ il modifie juste le nom de PERSO.XLS en TRUE.XLS et le fichier que j'essaie de sauvegarder en FALSE.XLS

2/ il ne me demande pas le chemin et sauve au même endroit que l'ex PERSO.XLS

C'est plus clair ?

Répondre à electro-be

7

 phil232, le 11 déc 2007 à 13:18:29
  • +1

C'est peut-être un peu dangereux d'utiliser ActiveWorkbook. C'est mieux de l'appeller explicitement Workbook("MyWorkBook"). puis que est-ce qui se trouve dans AO1 ? TRUE ? Puis attention ! Filename n'est pas une variable mais un paramètre nommé d'ou la syntax "Filename:=fName"

Répondre à phil232