Macro associée à un bouton

[Santino007]

Bonjour à tous, je suis novice en Excel et je viens donc vers des connaisseurs pour un peu d'aide.
J'ai un fichier de commande d'articles et je souhaiterai créer un bouton associer à une macro (je pense) qui me permettrait de pouvoir enregistrer qu'une seule partie de mon fichier de commande (uniquement les produits pour lesquels il y a une q. en commande).
Je souhaiterai aussi que lors de cet possibilité d'enregistrement, je puisse choisir le dossier cible sur mon PC et aussi son nom.
Comme cela, je pourrai joindre ou pas ce fichier à un mail à envoyer au fournisseur avec uniquement les produits commandés.

Savez vous si cela est possible ?
Ci-joint un fichier type pour exemple.

Un grand merci à vous pour vos retours.
A bientôt.

 

[Santino007]

J'ai oublié...... MEILLEURS VOEUX A TOUS, que cette année soit EXCELtionnelle !!! 😉

 

[sylvanu]

Bonjour Santinoo, et bienvenu sur XLD,
Cette section est réservée à la présentation des nouveaux venus.
Pour poser des questions ( et avoir des réponses ) posez vos question dans cette section :

Forum Excel

Pour toutes vos questions concernant Excel, VBA, Power Query, Power Pivot

excel-downloads.com

 

[sylvanu]

Re,
J'ai fait un essai concluant. Mais je ne veux pas livrer ici, ce n'est pas le bon emplacement
Faites une demande sur la page que je vous ai indiqué, et je vous livrerais mon fichier. 🙂

 

[halecs93]

Bonjour à tous, je suis novice en Excel et je viens donc vers des connaisseurs pour un peu d'aide.
J'ai un fichier de commande d'articles et je souhaiterai créer un bouton associer à une macro (je pense) qui me permettrait de pouvoir enregistrer qu'une seule partie de mon fichier de commande (uniquement les produits pour lesquels il y a une q. en commande).
Je souhaiterai aussi que lors de cet possibilité d'enregistrement, je puisse choisir le dossier cible sur mon PC et aussi son nom.
Comme cela, je pourrai joindre ou pas ce fichier à un mail à envoyer au fournisseur avec uniquement les produits commandés.

Savez vous si cela est possible ?
Ci-joint un fichier type pour exemple.

Un grand merci à vous pour vos retours.
A bientôt.

Un début de proposition

 

[sylvanu]

Bonjour Halecs,
Il vaut mieux laisser Santinoo poser sa question dans la bonne section. Ici ce ne sont que "Présentation des nouveaux membres"
Sinon personne n'aura accès à votre solution, si ce ne sont que les rares visiteurs de cette section. 😉

 

[Santino007]

Bonjour,
Désolé d'avoir publier ma demande sur la mauvaise section.
Pour mon souci de Macro, j'ai effectivement pu le régler.
Comment ?
Avec l'IA.....qui a peut-être été plus simple pour moi que de consulter régulièrement un forum.
Je suis pourtant présent sur plusieurs forums, mais sur ce point je souligne que l'IA a été assez efficace.
En espérant que cet outil n'entraîne pas la disparition des discussions entre êtres humains....
Merci encore à tous.
A bientôt.

 

[sylvanu]

Bonjour Santino,
Pourquoi ne pas avoir livré ici plus rapidement, cela aurait peut être pu vous éviter de perdre du temps. 😉
Alors je vous livre ce que j'avais fait à l'époque en PJ avec :

Sub Exporte()
Dim DL%, L%, T
Application.ScreenUpdating = False                      ' Figeage écran
DL = Cells(Cells.Rows.Count, "E").End(xlUp).Row         ' Dernière ligne
T = Range("A1:E" & DL)                                  ' Transfert données dans tableau
Workbooks.Add                                           ' Nouveau classeur
[A1].Resize(UBound(T, 1), UBound(T, 2)) = T             ' Transfert données dans nouvelle feuille
For L = DL - 1 To 4 Step -1                             ' Pour toutes les lignes
    If Cells(L, "C") = "" Then Rows(L).Delete           ' Supprimer ligne si Qté=0
Next L
DL = Cells(Cells.Rows.Count, "E").End(xlUp).Row         ' Dernière ligne du tableau nettoyé
ActiveWindow.DisplayGridlines = False                   ' Suppression quadrillag
Range("A3:E" & DL - 1).Borders.Weight = xlContinuous    ' Quadrillage sur tableau de données
Cells(DL, "E").Borders.Weight = xlContinuous            ' Idem pour Total
[A1:E3].Font.Bold = True                                ' Titres en gras
Cells(DL, "E").Font.Bold = True                         ' Idem pour Total
End Sub

 

[Santino007]

Merci, ce sera pour la prochaine fois.
A bientôt.

 

[sylvanu]

XLD est un site d'entraide. Donc si vous pouviez poster la solution IA, cela profiterait à tout le monde. 😉

 

[Santino007]

Le fichier était un peu plus complexe que celui joint (qui n'était qu'un exemple).
J'ai associé plusieurs Macros afin d'avoir mon filtre de cellule + un enregistrement sur PC avec un nom de fichier précis.
Ca marche pas mal....

 

[Phil69970]

Bonjour à tous

Juste en passant :
1) Puisque tu mets une image du code si jamais je réponds à une des tes questions je ferais de même tu verras le côté pratique de la chose 😉
2) Quand je vois le code de l'IA je me dis que le forum n'est pas complètement mort et qu'il a encore de beau jour devant lui ...... pour l'instant.

Bonne lecture

 

[Santino007]

La voici en version texte:

Sub Bouton()
Call FILTRE_TOUT
'
' FILTRE_TOUT Macro
'

'
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=9, Criteria1:= _
"<>"

Call Feuil1.ExportToPDF

Dim Chemin As String
Dim NFichier As String

Chemin = Application.ActiveWorkbook.Path & "\"
NFichier = "Commande " & Range("H40").Value & Format(Date, " dd mm yyyy") & ".pdf"
Sheets(Array("BDC")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NFichier, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False


Call FILTRE_RIEN
'
' FILTRE_RIEN Macro
'

'
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=9
MsgBox "La commande a été enregistrée sur votre PC - Merci de la transmettre par mail au fournisseur"

End Sub


A bientôt.