Macro pour enregister perso possible?

Merci pour cette réponse rapide.
Je suis se que "l'on" peu appeler un informaticien du Dimanche, donc je ne reconnais pas une fonction même si elle me saute dessus.

Tout est sur le bureau:"C:\Users\Useur1\Desktop"
-le fichier est nommé "nouvel Facture 2011".
-la feuille se nomme "FACTURE".
-et le dispatching des facture créées se fait manuellement.
-j'ai créé en "I11" "=G12&" "&C14".

je suis désolé d'être aussi nul.
N'empêche, je vais quand même tenter de me débrouiller en attendant.

Merci d'avance pour votre compréhension (même si la mienne et limité.)

Bonjour

Déja il faut s'organniser donc combien avez-vous de disque dur ou de partition sur votre PC.
Il serait souhaitable de sauvegarder vos fichiers sur une partition différente de celle du système, cela évite de tout perdre quand le système plante que rien ne va plus.
Par principe sur le disque C on met que le système et les applications, tous vos fichier doivent être sur une autre partition dans un dossier personnel et des sous dossiers pour chaque type de travaux. Cela sera un bon début.
Après on pourra écrire le bout de programme qui aura un chemin clair et précis

Bonjour

Dans votre fichier Excel cliquer sur le menu developeur
Visual basic
Affichage
explorateur de projet
Cliquer droit sur la ligne correspondant à votre feuille et dans le menu déroulant
Insert module
Et coller tout ceci dans le module :

Dim disque As String
Dim rep As String
Dim nom As String
Dim sav As String

Sub sauvegarde()

disque = "G:\" 'mettre la lettre de votre disque
rep = "dossier\sous dossier\sous sous dossier\" 'à remplacer par vos informations
nom = Sheets("feuil1").[A1] & ".xls" 'nom feuille sera composé à partir de la cellule A1 feuille 1
sav = disque & rep & nom 'disque chemin nom fichier sauvegarde
MsgBox sav 'affiche le chemin pour vérification - mettre en texte après essai
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sav
' ActiveWorkbook.Close 'enlever la strophe en début de ligne si vous voulez que le fichier se ferme

End Sub

Et modifier suivant vos paramètres la lettre du disque et les dossiers ou vous allez sauvegarder

Penser à mettre le nom du fichier dans la cellule A1 de la feuille 1

Vous mettre sur le texte Sub sauvegarde et appuyer sur F8 la macro se déroulera pas à pas à chaque fois que vous appuyez sur F8 cela avance d'un pas

Bonjour hs4*2a,
Dans le cas ou votre problème n'est pas résolu, il serait intéressant de connaitre exactement de quel manière vous créez la facture.... ?

Bonjour

Déjà est-il possible de concaténer les deux cellules en une seule

exemple mettre en C15 exemple =G12&" "&C14

Mettre dans le module de la sauvegarde les variables

Dim disque As String
Dim rep As String
Dim nom As String
Dim sav As String

et dans la procédure ces lignes

disque = "E:\" 'nom du disque
rep = "dossier\sous dossier\sous sous dossier\" 'nom des répertoires
nom = Sheets("feuil1").[A1] & ".xls" 'nom feuille
sav = disque & rep & nom 'disque chemin nom fichier sauvegarde
MsgBox sav 'affiche le chemin pour vérification - mettre en texte après essai
On Error GoTo erreur
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sav
' ActiveWorkbook.Close

modifier à vos besoins