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

raphytalon · 6 Juillet 2006

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 · 6 Juillet 2006

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

Salut raphytalon,

Un essai a tester :

PHP:

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,

@+

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

raphytalon

XLDnaute Nouveau

porcinet82

XLDnaute Barbatruc

Discussions similaires