Bon de commande

Bonjour à toute et tous,

J'ai commencé à mettre en place un petit classeur excel pour mes bons de commande.

Étant charpentier je ne suis pas très bon en codage. ( voir proche du nul)

Je n'arrive pas à exporter avec "Mon bouton ajout au bon " dans la bonne plage alors j'ai triché.

Comment l’envoyé directement dans ma feuille bon à imprimer?

Comment faire pour archiver?

Comment imprimer correctement en PDf?

Le tout fonctionne mais grossièrement.

Pourriez - vous m' aider à affiner svp?

Bonjour

J'ai commencé par faire le formulaire Client

Ensuite je me suis occupé des bons de commande

je n'ai pas touché à Modifier et Supprimer

Quand tu clic sur Nouveau la feuille à imprimer s'efface

Quand tu saisie le nom les données en B13,15,18,19 et 20 se remplisse

Quand tu clic sur enregistrer les données sont envoyées sur la feuille Archive

le fichier PDF se crée

A+ François

Merci Beaucoup.

t'est au top.

tu viens de me gagner un temps de Malade.

Je me prenais la tête.

Vraiment sympa.

Comment te remercier?

Bonjour,

Merci Beaucoup.

t'est au top.

tu viens de me gagner un temps de Malade.

Je me prenais la tête.

Vraiment sympa.

Comment te remercier?

en cliquant sur la flèche verte!

C'est bon.

pour l'enregistrement il y a juste un petit bug.

Je ne sais pas pourquoi.

Mais il n' a pas envie

Sub ImpressionPDF() ' ImpressionPDF Macro
    Dim monFichier As String
    monFichier = Sheets("Bon à Imprimer").Range("B15").Value
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       "D:\Documents\-1- Entreprise\-2-Bon de Commande\ " & monFichier, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

tu avais dans ta macro: monFichier = Sheets("Bon à Imprimer").Range("B7").Value... remplace par B15

Si le problème persiste tu te mets sur cette ligne et tu appuie sur F9

Tu relances la macro, elle va s'arrêter sur cette ligne et ensuite tu avances avec F8...

A+ François

Bonjour

Une autre proposition pas encore totalement finalisée.

Bonjour,

Merci pour ta proposition

Bonjour François,

Je ne voudrais pas être trop embêtent.

Mais... j'ai essayer et çà bug toujours pour l'impression PDF

Voila ce que ça m'affiche après avoir fait le cheminement que tu m'a proposer.

Comment le lire stp?

Bonjour

C'est ce que je craignais...

Remplace

monFichier = Sheets("Bon à Imprimer").Range("B15").Value

par

monFichier = Right(Sheets("Bon à Imprimer").Range("B15").Value, Len(Sheets("Bon à Imprimer").Range("B15").Value) - 8)

Je pense que le problème vient des ":"

A+ François

Rebonjour François,

Il faut dormir c'est bon pour la santé

Merci, ça fonctionne super bien.

Merci beaucoup pour ton aide.