Bouton enregistrer et imprimer

Le 05/08/2010 à 15:55

Bonjour à tous,

Voilas mon problème, j'aimerais placer un bouton sur une feuille avec le quel l'enregistrement se fait automatiquement vers un dossier précis et que cela soit imprimer sur l'imprimante par défaut, j'ai chercher un peut partout mais je n'ai rien trouver.

se n'est pas une excuse, mais je n'y comprend pas grand chose au macro.

Pouvez-vous m'aider ???

Le 05/08/2010 à 16:17

Bonjour,

Un moyen simple est d'utiliser l'enregistreur de macro automatique via Outils / Macro / nouvelle macro

Une fois terminé, clique sur le bouton de la barre outils macros pour terminer.

Vas ensuite voir ta macro par Outils / Macro.

Dans la boite de dialogue sélectionne la puis clique sur "modifier" pour la voir.

Colle ensuite le code ici on verra comment t'aider au mieux.

Amicalement

Le 12/08/2010 à 14:42

Bonjour,

J'ai enfin trouver un début, je parviens à enregistrer une copie au format PDF, mais quel est le code pour indiquer le dossier dans le quel j'aimerais que cela soit enregistrer.

je cherche encore de mon coté.

Voici le code que j'ai trouver

Sub imprimpdf()

Dim a As Worksheet

Dim sc As Workbook

Dim nouveauNom As String

Application.ScreenUpdating = False

Set a = ActiveSheet

nouveauNom = Range("D13").Value & Range("M4").Value

nouveauNom = Replace(nouveauNom, "/", "_")

Set sc = Workbooks.Add(xlWBATWorksheet)

sc.SaveAs (nouveauNom & ".xls")

a.Copy Before:=sc.Sheets(1)

ActiveSheet.PrintOut copies:=1

Workbooks(nouveauNom & ".xls").Close SaveChanges:=False

Kill nouveauNom & ".xls"

Application.ScreenUpdating = True

Application.DisplayAlerts = False

End Sub