Bouton envoie

Bonjour à tous, j'ai créé un bouton "envoie" dans la troisième feuille "pièces à commander" et j'ai effectué ma macro mais cela ne marche pas.

Je voudrais que quand on appuie sur le bouton envoie, la feuille s'envoie aux deux adresses mail qui sont dans la macro. Mais cela me met une erreur 400

Mon deuxième problème c'est au niveau du bouton "quitter" dans la première feuille, il ne fonctionne pas alors que la macro me paraît être bonne.

Merci d'avance

Bonjour toutes et tous

je pense qu'il fallait le placer dans un nouveau module pour le bouton envoie,

à tester

• j'ai également supprimé des modules vides
• légèrement modifier sur la textbox1 de ta feuille Menu
• lebouton quitter de t on Menu ferme ton classeur

crdlt,

André

Merci beaucoup pour ton aide, c'est génial

Ca marche parfaitement bien sauf pour le bouton "envoie" où ça me met une erreur

J'ai juste un petit problème au niveau du bouton enregistrer que je viens de créer j'ai rentré la macro mais je retrouve pas mon document que je viens d'enregistrer dans le chemin indiqué

Bonjour

Sub Macro1_PDF()
    Dim chemin$, fichier$
    chemin = "C:\Users\pastor\Desktop\Augustin Pastor\LICENCE GCPI\MAGASIN\Excel"
    With ActiveSheet          'feuille active
        .PageSetup.PrintArea = "A1:I42"    ' Zone d'impression
        .ExportAsFixedFormat xlsmTypePDF, chemin & fichier
    End With
End Sub

Il semblerait qu'il faille rajouter un / à la fin du chemin et que la variable fichier soit chargée !!!

A+

Bonjour merci pour ton message mais ça ne marche toujours pas

Bonjour

Sub Macro1_PDF()
    Dim chemin$, fichier$
    chemin = ActiveWorkbook.Path
    With ActiveSheet          'feuille active
        .PageSetup.PrintArea = "A1:I42"    ' Zone d'impression
        .ExportAsFixedFormat xlsmTypePDF, chemin & fichier
    End With
End Sub

J'ai enregistré et ça marche nickel

N'as-tu pas une erreur dans ton chemin ??

A+

Super ça marche niquel merci beaucoup

A+