High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

[macro VBA] enregistrer classeur nom cellule

Dernière réponse le 8 aoû 2009 à 17:53:24 BastienP, le 28 jui 2008 à 18:50:49 
 Signaler ce message aux modérateurs

Bonjour,

Je cherche comment coder pour enregister mon classeur avec un nom qui serait la valeur d'une cellule (nombre ou texte) ou même plutôt le nom d'une feuille dans ce classeur.

Je pensais définir une variable mais ceci ne marche pas dans le code:

ActiveWorkbook.SaveAs Filename:= _
"nom.xls"

Si quelqu'un a une idée pour moi..
Merci et bonne soirée!!

Meilleures réponses pour « [macro VBA] enregistrer classeur nom cellule » dans :
[Excel] Colorer des cellules sur conditions VoirIl existe dans Excel des fonctions très pratiques mais peu connues et peu utilisées. Exemple : vous souhaitez qu'une cellule se colore automatiquement en rouge (ou autre mise en forme de police, de bordure, de trame) selon une condition : un...
VBA et les collections d'objets. VoirVBA et les collections d'objets Quand plusieurs (beaucoup de) contrôles sont mis sur une feuille ou un Userform il est parfois fastidieux d'écrire du code dans chaque évènement des contrôles. Ce Tuto vous permet de traiter vos contrôles comme...
[VBA] Supprimer un mot dans une plage de cellule VoirSi on veut supprimer un mot dans une phrase il suffit de faire une petite macro qui supprime le mot recherché. Là où ça se corse c'est que le mot recherché pourrait être, par exemple "LEMOT" ou "LeMot" ou "lemot" ou encore "LeMot" etc.. Cette petite...
Tableur - Les cellules VoirLa notion de cellule On appelle "cellule" l'intersection entre une ligne (horizontale) et une colonne (verticale) de la feuille de calcul. Ainsi le nom de la ligne combiné au nom de la colonne donne les coordonnées d'une cellule (le terme d'adresse...
Posez votre question Répondre

1

algoplus, le 28 jui 2008 à 20:07:11

Ca devrait marcher comme tu veux

nomfic = "C:\Documents and Settings\Agoplus\Bureau\" & Range("A1").Value & Sheets(2).Name & ".xls"

ActiveWorkbook.SaveAs Filename:=nomfic

   
Répondre à algoplus

2

eriiic, le 28 jui 2008 à 20:09:06

Bonjour,

ActiveWorkbook.SaveAs Filename:=[A1].Value
marche très bien avec test.xls en A1.
Si tu as un nombre ou un texte sans .xls dans A1 il faut le rajouter :
ActiveWorkbook.SaveAs Filename:=[A1].Value & ".xls"
Tu peux compléter le nom avec le chemin du répertoire...

eric

   
Répondre à eriiic

5

dokayun, le 8 aoû 2009 à 16:48:28

Salut eric, super ta formule, par contre comme je suis novice en macro, peux tu me dire ce qu'il faut écrire pour attribuer le chemin d accès le mien est "C:\Users\Famille MOULA\Documents\projet\Eve\test.
je te remerci car actuellement tou mes fichiers enregistré vont directement dans mes documents je suis a peu de chose de réussir !!


merci beaucoup

   
Répondre à dokayun

6

 eriiic, le 8 aoû 2009 à 17:53:24

Bonjour,

Soit tu mets le chemin et le nom du fichier dans 2 cellules d'une feuille, soit dans des variables vba, ou tu panaches.
Ex avec chemin en variable et nom fichier dans Feuil1!A1 :
sub sauve
dim chemin as string
chemin = "C:\Users\Famille MOULA\Documents\projet\Eve\"
ActiveWorkbook.SaveAs Filename:=chemin & worksheets("Feuil1").[A1].Value
end sub

eric

   
Répondre à eriiic

3

michel_m, le 28 jui 2008 à 20:11:44
  • +2

Salut Bastien

Option Explicit
Sub enregistrer_classeur()
Dim chemin As String, fichier As String
chemin = ThisWorkbook.Path
fichier = chemin & "\" & Range("B2") & ".xls"
ActiveWorkbook.SaveAs Filename:=fichier
End Sub


enregistre dans le répertoire du fichier source

Michel

   
Répondre à michel_m

4

BastienP, le 28 jui 2008 à 20:36:11

Merci à tous pour ces réponses si rapides,
En plus j'ai le choix!!

A+

   
Répondre à BastienP
Posez votre question Répondre
Ils ont besoin de votre aide