Enregistrement sous nom de cellule ?
Hello,
je cherche une méthode de facon à enregistrer une feuille de calcul sous un nom qui aurra été mis dans une cellule .
soit en créant un bouton, soit en cliquant sur la disquette du classeur en cours .
Est - ce possible ???
merci à vous
++
Phil
Bonjour,
une liste déroulante te sélectionne une feuille où onglet.
Il te suffit de renommer l'onglet.
Cherches-tu cela ?
A +
https://www.excel-pratique.com/~files/doc/Selectionne_l_onglet.xls
non,
je souhaite juste sauvegarder un classeur excel sous un nom.xls ou le nom aurra été pris dans une cellule définie
++
Phil
Salut le forum
Un bout de code, te reste juste à l'adapter
Sheets("Feuil1").Select
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs FileName:= _
"C:\mes documents\" & "nomduclasseur", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=FalseMytå
si je coprends bien, il faut que je recopie cela ds une macro affectée à un bouton ou alors as-tu un fichier a me faire parvenir ?
++
Phil
Bonjour,
- comment veux-tu sauver ton classeur : avec un bouton ou simplement à la fermeture ?
- Quelle est la cellule de référence pour le nom du fichier
- Quel est le répertoire de sauvegarder
A te lire
Dan
G7G8.XLS soit PREVOSTO CHANCE GE0707037.xls
la sauvegarde serait encore mieux avec le bouton de sauvegarde standard sinon avec un bouton macro
++
Phil
Bonjour,
Essaye avec cette macro à placer dans un module.
- vas dans VBA par ALT + F11
- menu/insertion/module
- à droite mets la macro ci-après
Sub Sauve()
'Macro par Dan pour plm222 le 19/07/07
'fil http://www.excel-pratique.com/forum/viewtopic.php?t=2046
Dim chemin As String, extension As String, nomfichier As String
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
extension = ".xls"
nomfichier = Range("G7") & "_" & Range("G8")
MsgBox nomfichier
With ActiveWorkbook
chemin = "C:\Mes documents\sauvegardes\" 'répertoire
.SaveAs Filename:=chemin & nomfichier & extension
End With
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub- crée ton bouton par menu/affichage/barre d'outils/formulaire
- associe le bouton à cette macro par clique droite sur le bouton et choisis "affecter à une macro" --> clique sur la macro "sauve" puis OK
- Enregistre ton fichier
A te lire
Dan
Salut Dan,
J'ai utilisé ta macro pour archiver des feuilles de mon classeur.
(Merci de l'avoir écrite !)
Par contre, j'ai 2 petits soucis :
1). J'ai une date à mettre dans le nom du fichier, sauf que visual doit surement transformer les "/" en "\" et du coup, il y a bug qd la macro cherche le nom du fichier, puisque qu'elle cherche un fichier ds le fichier sauvegarde qui n'existe pas (elle cherche [...]sauvegarde\19\07 et du coup, ça ne marche pas et je n'arrive pas à modifier l'affichage de la date, aurais-tu une idée?
2). J'aurai également voulu mettre l'heure, mais un problème se rapprochant ubn peu de celui de la date se produit : ds le nom d'un fichier, il ne faut pas de ":", et là je n'ai pas d'idées non plus pour modifier l'affichage de l'heure.
Merci d'avance pour ton aide !
Ana