Enregistrement d'un classeur au nom d'une cellule concatener

Bonjour,

Les personnels de mon service remplissent des comptes rendu, et les enregistrent un peu n'importe comment sur le DD, je souhaite formaliser ces enregistrements pour ne plus avoir à fouiller pour trouver le bon.

Je me demandais si il était possible de créer une macro permettant d'enregistrer une feuille Excel portant le nom d'une cellule de cette même feuille. Cette cellule étant un "concatener" de plusieurs autre.

Je souhaiterais aussi qu'ils n'ait pas à chercher l'endroit ou sauvegarder le compte rendu.

Je précise que je suis totalement novice,que je me sert d'excel de manière simple (tableur, quelques formules de base si/et/recherche/...), mes macro je les fait en les enregistrant, je n'ai aucune connaissance en codage.

D'avance merci.

Bonjour et bienvenue

Essaye :

Sub Enregistre()
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Nadine\Desktop\TEST\" & Range("A1")
End Sub

Chemin et cellule à adapter

Amicalement

Nad

Merci,

c'est à partir de maintenant que je vais commencer à passer pour un bleu.

Ce code, je le mets ou ? Quel est l'option qui me permet d'accéder à la page ou je rentre ce code?

(excel 2003)

Re

breiht a écrit :

c'est à partir de maintenant que je vais commencer à passer pour un bleu

Nous avons tous débuté, ne t'inquiète pas.

Tu appuies sur ALT et F11 pour arriver dans VBA

Dans la partie gauche, tu sélectionnes ton fichier

Tu fais INSERTION ==> Module

Tu copies le code et tu le colles dans la partie droite de la feuille

Tu reviens sur la feuille excel et tu dessines un bouton (barre d'outils "Formulaire") auquel tu affectes cette macro

Si problème, n'hésite pas à revenir.

Amicalement

Nad

Bonsoir Nad, à tous,

tu peux ajouter l'extension

Sub Enregistre()
    ActiveWorkbook.SaveAs Filename:= _
    "C:\Users\Nadine\Desktop\TEST\" & Range("A1") & ".xls"
End Sub

Amicalement

Claude

J'ai suivi ce que tu m'a expliqué et cela à fonctionné à merveille.

Merci

Bonsoir Claude

Question d'une débutante en code : est-ce préférable ou pas vu que l'enregistrement s'effectue quand même ?

Amicalement

Nad

re,

je pense que c'est mieux de mettre une extension,

si tu as besoin de faire une recherche, par exemple toto*.xls

t'évitera de sortir les autres extensions.

Mais comme tu dis, c'est pas obligatoire mais question d'ordre

Bonne fin de soirée

Claude

bonsoir utilisateur d excel 2013

petites precisions etant nul en vba ...

si j ouvre le modele qui est ds un dossier

et que je souhaite qu il enregistre le nouveau fichier ds le même dossier on rajoute quoi

pcq j'ai mis le code si dessous ds une macro vba et ça me l'enregistre ds mon dossier général mes documents ?

Sub enregistrer()

ThisWorkbook.SaveAs Range("B6") & "_" & Range("F6")

End Sub

c quoi la différence entre inserer un controle de formulaire et controle activeX ?

et pourquoi on a une notion de modules ds la fenetre VBA

GRAND MERCI POUR VOS LUMIERES

bonsoir fb44

tu aurais du ouvrir un nouveau ost faisant référence a celui ci qui commence a dater

dans le code que tu montre il n'y a pas de chemin donc ca enregistre dans tes documents essai avec

ce qu'a proposé DUBOIS dans le post du 16 Juin 2010, 19:50 et modifie le chemin

merci pascal

mais je serais amené a changer d "emplacement de dossier tous les mois ou sur un reseau qui changera de lettre ou de hierarchie de dossiers donc est ce possible sans taper le chemin "en dur" ds la formule

de lui indiquer qu 'il doit enregistrer le resultat ds le dossier où j'ai ouvert le modèle de base ????

merci

bonjour fb44

j'ai ici un code qui permet d'enregistrer un .pdf dans un dossier qui change tous les mois tout seuls une feuile excel

c'est comme maintenant on est le 26 de Janvier, quand le 31 arrivera s'il y a un ficher a enregistrer il créera un noveau doqssier en se basant sur l'heure de la machine

Private Sub CommandButton1_Click()
  Application.DisplayAlerts = False
  Dim Chemin As String, Fichier As String, Rep As String
  Chemin = "C:\Users\vous-même\Desktop\Nouveau dossier\"
 'Chemin = ThisWorkbook.Path & "\"
 'créer un dossier avec le nom du mois et l'année en cours
 'si le mois change un autre dossier est créer
  Rep = Application.Proper(MonthName(Month(Date))) & " " & Year(Date)
  'gestion des erreurs
  On Error Resume Next
  'définition du chemin
  MkDir Chemin & Rep
  On Error GoTo 0
  Chemin = Chemin & Rep & "\"
  Sheets("Feuil1").Copy
  'copie de la feuille en ajoutant F devant le n° qui est en "C4" et +la date
  Fichier = Sheets("Feuil1").Range("C4") & " " & "F" & Format(Date, "ddmmyyyy") & ".Pdf"
  With ActiveWorkbook
  'code qui enregistre en .pdf
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Fichier, Quality:=xlQualityStandard, _
                          IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                          From:=1, To:=1, OpenAfterPublish:=False
    'ferme le classeur créer
   .Close savechanges:=False
   'retabli les arlertes windows
    Application.DisplayAlerts = True
    'message pour dire que le fichier a bien été enregistrer
    'que le chemin est bon
    MsgBox ("Enregistré dans le dossier -Factures-")
  End With
End Sub

merci grisan

je teste...

Bonjour,

Je me suis inscrit ici depuis peu et j'aurais voulu savoir en utilisant cette macro

    Sub Enregistre()
        ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\FLO\Documents\" & Range("A1") & ".xls"
    End Sub

Comme fait on si on veux le faire par rapport au nom de 2 cellules ou même3? Par exemple A1 et B1

Merci d'avance,

Cordialement,

Réussi

Sub Enregistre()

ActiveWorkbook.SaveAs Filename:= _

"C:\Users\FLO\Documents\" & Range("A1") & Range("B1") & ".xlsm"

End Sub