Bonjour,

deuxième sujet posté aujourd'hui...

voici ce que je veux faire,

je veux que lorsque j'appuie sur le bouton "sauvegarde", mon fichier s'enregistre directement dans le dossier destination que je lui aurait donné préalablement sans passer par le fameux "enregistrer sous".

Là où j'épprouve des difficultés c'est que ce classeur contient plusieurs feuilles pour lesquelles chacune à son propre bouton sauvegarder et lorsque j'appuie sur ce bouton, je ne veux que seule la feuille (activesheet) soit sauvegardée et non le classeur.

Voici ce que j'ai fait pour le moment :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Sauvegarde()
 
 
Range("D4").Select
legumes = ActiveCell.FormulaR1C1
Range("D5").Select
apport = ActiveCell.FormulaR1C1
ActiveSheet.SaveAs Filename:=legumes & apport & ".xls"
Range("D5").Select
    Selection.ClearContents
Sheet("BASE").Select
'(premiere cellule vide).select
 
'à poursuivre
De plus j'aimerais que ce soit la première cellule vide de la colonne A qui soit selectionné à la fin du programme...

merci pour votre aide!

Yoann