Vérification de macros

bonjour, un de mes amis m'a fait un fichier pour faire des factures avec macros mais j'ai un problème avec le bouton d'impression avec un message d'erreur...qqun pourrait vérifier ceci et les autres macros svp...je n'ai plus de contacts avec mon ami...

Bonjour,

si tu veux te servir de la zone d'impression c'est
ActiveSheet.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Si c'est la sélection c'est :
Selection.PrintOut Copies:=1, Collate:=True
Tu as fait un mixe des 2
eric

ok merci ça fonctionne...

y a t-il un moyen d'inclure une commande pour que ça génère la facture en pdf?

merci

Bonjour,

à adapter à ce que tu veux exactement :

Sub factPdf()
    Dim nomF As String
    nomF = "C:\Factures\F" & Format([E4], "yyyy-mm-dd") & "_" & [E5] & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nomF, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

eric

merci pour l'info...cependant je ne suis pas très connaissant dans les macros...

à quel endroit je dois mettre cette commande svp?

merci

Je t'ai ajouté un bouton
eric

ohhh...merci

sauf que lorsque je clique sur le bouton ça me donne une erreur 1004...

Private Sub btnEnrPDF_Click()
    Dim nomF As String
    nomF = "C:\Factures\F" & Format([E4], "yyyy-mm-dd") & "_" & [E5] & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nomF, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

il faut que tu crées le répertoire C:\Factures\ ou que tu adaptes à ton besoin.
eric

oohhh nice merci

réglé

bon autre chose...le doc fonctionne dans un environnement windows...

comment faire pour le faire fonctionner dans un envrionnement apple sur un mac book pro car les boutons ne fonctionnent pas?

merci

Oui, bonjour à toi aussi...

Je n'ai pas de mac mais déjà le séparateur de répertoire est / et non \
eric

oui je sais...le fichier fonctionne sur windows...je dois vraiment trouver qqun qui peut me modifier ceci pour mac svp...

merci

??? j'ai bien compris qu'il fonctionnait sur windows. Pour Mac il faut au moins modifier le séparateur.

Pour tester l'OS tu peux utilisr :
If Application.OperatingSystem Like "*Mac*" Then
eric

he boy...moi et mes connaissances...je ne sais même pas ou mettre cette commande

Alors essaie avec ça :

Private Sub btnEnrPDF_Click()
    Dim nomF As String
    nomF = "C:\Factures\F" & Format([E4], "yyyy-mm-dd") & "_" & [E5] & ".pdf"
    If Application.OperatingSystem Like "*Mac*" Then nomF = Replace(nomF, "\", "/")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nomF, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

mais si ça plante sur .ExportAsFixedFormat attend qq'un qui a un Mac ou commence tes recherches tout seul.
eric

au secour...ça me prendrait vraiment qqun qui connait mac svp...je ne suis pas capable d'y arriver afin d'adapter mes macros pour mac...