nom de fichier automatique

[chrisdu73]

Bonsoir a vous tous,
j'aurai besoin de connaitre la facon de sauvegarder un fichier xls en fonction de certain champs d'une feuille de facon a l'archiver sur un disque par un bouton (voir essai en fichier joint)
merci de votre aide precieuse

Chris

 

[PMO2]

Re : nom de fichier automatique

Bonjour,

Une piste avec le code ci-dessous à copier dans un module Standard

'#####################################################
'### Constante de la feuille concernée (à adapter) ###
Const FEUILLE As String = "test"
'#####################################################

Sub Zone_combinee_1()
Dim S As Worksheet
Dim DD As DropDown
On Error GoTo Erreur
Set S = Sheets(FEUILLE)
S.Activate
Set DD = ActiveSheet.DropDowns("Drop down 1")
[c8] = DD.List(DD.Value)
Exit Sub
Erreur:
If Err = 9 Then MsgBox "La feuille " & FEUILLE & " est introuvable."
End Sub

Sub Nom_Classeur_sauvegarde()
Dim S As Worksheet
Dim A$
Dim i&
On Error GoTo Erreur
Set S = Sheets(FEUILLE)
S.Activate
For i& = 6 To 18 Step 2
  A$ = A$ & Range("c" & i& & "") & " "
  If i& = 6 Then A$ = Format(A$, "yyyy-mm-dd ")
Next i&
A$ = Trim(A$)
'--- Sauvegarde (dans le même répertoire que le classeur actif ???) ---
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & A$
Erreur:
End Sub

MARCHE A SUIVRE
1) Cliquez DROIT sur la liste déroulante /Affecter une macro… double cliquez Zone_combinee_1
2) Cliquez DROIT sur le bouton Sauvegarde /Affecter une macro… double cliquez Nom_Classeur_sauvegarde

Tout cela est déjà effectué dans la pièce jointe et, si vous la téléchargez, vous pourrez faire vos tests.
Les classeurs s'enregistreront dans le même dossier que le classeur actif.

Cordialement.

PMO
Patrick Morange

 

[chrisdu73]

Re : nom de fichier automatique

merci PMO2, j'ai pas encore essayé je te tiens au courant de tout ca des lundi matin.
mais en attendant deja c'est deja pas mal; genial

merci et bonne soiree a tous

Chris