Enregistrer en fonction de données présentes dans des cellules grâce à une macro

[raphytalon]

Je cherche à créer une macro permettant d'enregistrer un fichier en fonction de données présentes dans des cellules, grâce à 3 cellules (Nom; Prénom; Date). En cliquant sur la macro, le fichier serait directement enregistrer sur le disque avec comme nom l'ensemble formé par les 3 cellules.
Cette macro permettrait d'imprimer aussi 2 feuilles sur 4.
merci d'avance

 

[porcinet82]

Re : Enregistrer en fonction de données présentes dans des cellules grâce à une macro

Salut raphytalon,

Un essai a tester :

Sub test()
Dim dat As Variant
'en admettant que le nom soit dans la cellule A1, le prenom dans la cellule B1
'pour la date, on ne peut pas l'ecrire 06/07/2006, je la traite donc pour la mettre
'au format 06-07-06
dat = Left(Cells(1, 3).Value, 2) & "-" & Mid(Cells(1, 3).Value, 4, 2) & "-" & Right(Cells(1, 3).Value, 2)
nom_classeur = Cells(1, 1).Value & " " & Cells(1, 2).Value & dat & ".xls"
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Moi\Bureau\" & nom_classeur
'Imprimer les feuilles 1 et 2
'Si ce sont d'autres feuilles, a toi d'adapter le code
Sheets(Array("Feuil1", "Feuil2")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Si tu as des questions, n'hesite pas,

@+