Bonjour,
je viens encore vous déranger, désolé...
Est-ce qu'il est possible d'avoir une taille de police plus grande pour les factures, car 11 est très petit, 14 serait bien ? Je ne sais pas quelle taille est utilisée habituellement...
Est-ce qu'il est possible d'ajouter une ligne "Déplacement" avec une case pour le montant, en dessous de la case Frais de port ? J'ai essayé mais le fichier ne veut plus s'enregistrer, j'ai le message suivant:
erreur d’exécution '1004':
Document non enregistré. Le document est peut être ouvert ou une erreur s'est produite lors de l'enregistrement.
Dans débogage j'ai ceci (le texte souligné et bleu s'affiche en jaune:
Sub PDF() ' PDF Macro ENREGISTRER EN PDF
Dim fichier As String
fichier = "C:\Users\*******\Documents\" & Sheets("FACTURES").Range("I5").Value & ".pdf"
ChDir "C:\Users\*******\Documents"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
fichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Sub IMPRIMER() ' IMPRIMER Macro
' L'IMPRESSION SE LANCE AUTOMATIQUEMENT
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub
Sub new_fact()
Sheets("FACTURES").Select
Range("O6").Select
Range("b18:i53").ClearContents
Range("G9:J14").ClearContents
UserForm1.Show
End Sub
Merci par avance pour tout.
Bien cordialement Dan