besoin d'aide sur excel

  • Auteur de la discussion zerutoki
  • Date de début
Z

zerutoki

Guest
Salut.
J'ai creer un classeur(un tableau avec des filtres) et je voudrai quand j'enregistre,que cela inscrive ce qu'il y a dans une cellule.
Ex; dans la cellule A1 j'ai XXXX donc je voudrais que le nom du classeur soit XXXX.xls automatiquement.
Merci
 
Z

zerutoki

Guest
Merci pour ton aide,mais le pb c'est que je sais pas comment faire une macro....tu sais toi?
 
G

Guy69

Compagnon
bonjour Abomber

- quelle version d'Excel STP?
et tu veux que cet enregistrement se fasse quand tu cliques sur un bouton, ou bien automatiquement quand tu quittes Excel?
Cette dernière option est possible avec les 3 lignes de code suivantes que tu dois insérer dans du code VBA


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ActiveWorkbook.SaveAs (Range("A1").Value)
End Sub

pour entrer du code VBA, il faut ouvrir Visual Basic Editor. Selon les versions ça se trouve à différents endroits.
Avec XL2003 FR, c'est menu Outils/Macros/Visual Basic editor
Avec XL2010, c'est dans le menu DEVELOPPEUR

A+
Guy
 
Z

zerutoki

Guest
Salut,
C'est xls 2007.
alors a force je suis arriver a faire ca grace au lien de JMS :finga:

Sub save()
Dim NOM As String
NOM = Range("A1")
PIECE = Range("C1")
TIRET = ("-")
phase = Range("D1")
ThisWorkbook.SaveAs (NOM) & (TIRET) & (PIECE) & (TIRET) & (PHASE)

End Sub

Alors,il y a un bouton sur ma feuille,nommer enregistrer,qui quand on clique dessus,enregistre NOM-PIECE-PHASE

C'est pas tout a fait ce que je voulais mais bon,c'est pas mal.

Par contre,j'ai du enregistrer en xlms,sinon ca marchais pas. :sad:

Me demander pas ce que les RANGE,string :oops: veut dire car j'ai fais un copier/collé,comme tout nul qui se respecte!!
 

Sujets similaires

F
Réponses
1
Affichages
426
atsju
A
PL50
Réponses
25
Affichages
929
dh42
Vik'TheBike
Réponses
21
Affichages
6 498
Bambi
B
2
Réponses
27
Affichages
1 186
jean-jacques
J
MECAJACK
Réponses
5
Affichages
739
MECAJACK
MECAJACK
A
Réponses
3
Affichages
1 607
titi t16
titi t16
Haut