Macro archivage

Bonjour à tous,

J'ai besoin de créer une macro archivage qui enregisterait la feuille utilisée dans un dossier spécifique "archivage" sous le nom : date_nomclient_numéro

La date est affichée sur la feuille avec la fonction AUJOURD'HUI(), le nom du client est entré ds une cellule par le commercial et le numéro correspond à un numéro à incrémenter si un mm client fait pls commandes le mm jour.

Connaissant le C++, j'arrive à comprendre VBA, mais je ne sais pas l'écrire et du coup, je ne sais pas du tout comment partir.

Est-ce que quelqu'un pourrait m'aider s'il vous plait?

Merci d'avance !!

Bonsoir,

Cela ne me parait pas bien compliqué bien que ...

L’utilisation de aujourdhui() n'est pas indiquée (c'est une fonction volatile)

la combinaison aujourdhui() et N° d'ordre ne pourrait t'elle pas être remplacée par Date heure minute ( et nom du client bien sur)

Est-ce un classeur ou une feuille qu'il faut mémoriser ?

Je demande une réponse avant de m'y pencher ce problème étant de quelques mois vous avez peut être déjà la solution

Un fichier exemple n'est pas impératif mais si vous en avez un...

Cordialement

Alain

Bonjour,

Voici une macro qui ait ce que tu demandes.

Sub Archiver()
'Macro par Dan pour Ana - 21/10/07
Dim nomfichier
Dim num As Integer
Dim no_client As String
ThisWorkbook.ActiveSheet.Copy
nom_client = Range("A2")
num = Range("A3")
chemin = "C:\ARCHIVAGE\"
nomfichier = Format(Now(), "yymmdd") & "_" & ActiveSheet.Range("A2") & "_" & num & ".xls"
MsgBox "Votre sauvegarde porte la référence : " & nomfichier
With ActiveWorkbook
    .SaveAs Filename:=chemin & nomfichier
    .Close
End With
End Sub

Avec :

• le nom du client placé en cellule A2
• le numéro à incrémenter en cellule A3
• Le répertoire de sauvegarde dans à la racine du C:
• La date ne fait pas référence à une cellule puisque tu sauves à la date du jour de la sauvegarde.

Macro à placer en VBA dans un module.

A te lire

Dan

Bonjour,

Bon et bien maintenant c'est fait comme cela .!

J'avais préparé une macro dans le même style

A revoir a Plus tard

Cordialement

Alain