Discussion :

[Téo34]

Bonjour à tous,

J'ai créé un tableur comme ceci :

- feuille 1 : base de donnée
NOM/PRENOM
TARIF JOURNALIER
@MAIL de LA PERSONNE

- feuille 2 : planning

exemple :
A B C D E F G H
1 1-janv 2-janv 3-janv tarif/journalier nb jour de travail montant total bouton d'envoi de mail
2 personne1 1 x 1 x€ =somme(B2:E2) =F2*E2
3 personne2 x 1 1
4 ...

J'ai mis la colonne A en liste déroulante pour que mes informations en E, F et G se modifient selon qui j'ai mis en A

J'aimerai pouvoir mettre en H un bouton qui permettrai d'envoyer directement par mail à la personne associée à la ligne avec ses jours de travail indiquer par des "1" dans le tableau.

J'ai essayé, avec chatgpt car je n'ai pas de formation excel, des formules CONTATENER et du VBA mais j'ai des erreurs de formules.

Je suis sous office360 - licence du travail.

Est-ce que vous savez comme je pourrai réussir à mettre en place cela ?

Merci beaucoup pour votre aide !

[BENNASR]

Bonjour
NB : je ne suis qu'un autodidacte, méfiez de mes propos
L'idée consiste à aller sur l'onglet "base de donnée" ; double clic dans la colonne E et dans la ligne de l'employé concerné
Le code prend le matricule de cet employé qui existe en colonne A de cette même onglet et filtre l'onglet planning avec cette critère
enregistre format PDF l'onglet planning filtré sous le meme répertoire de cette fichier Excel
puis envoie le fichier PDF au destinataire qui se trouve dans la colonne D de l'onglet base de donnée
à adapter pour ton cas
J'espère que ça t'aide à avancer
donc pour tester ce fichier :
1- créer un répertoire sur ton bureau
2- Enregistre ce fichier sous ce répertoire
3- saisir une adresse email valide dans la colonne D de l'onglet "base de donnée"
4- double clic dans la colonne E de l'onglet "base de donnée"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Columns("E:E")) Is Nothing Then
Cancel = False
 With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With
 
 If Sheets("planning").FilterMode = True Then Sheets("planning").ShowAllData
dlg = Sheets("planning").Range("A" & Sheets("planning").Rows.Count).End(xlUp).Row
If dlg < 1 Then dlg = 1
Dim P
P = Cells(Target.Row, 1)
Sheets("planning").Range("A1:G" & dlg).AutoFilter Field:=1, Criteria1:=P
Cells(Target.Row, 5) = Date
 
Dim Ar(0) As String
    Ar(0) = Feuil2.Name
    Sheets(Ar).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "Planning  " & P _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
Dim NomFichier As String
NomFichier = ThisWorkbook.Path & "\" & "Planning  " & P & ".pdf"
adresse = Cells(Target.Row, "D")
Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = adresse
        .Cc = ""
        .Attachments.Add NomFichier
        .Subject = "Sujet à définir"
        .Body = "Vous trouverez ci-joint votre plannig de travail  ..."
        .Display
        .send
    End With
 
Set OutApp = Nothing
Set OutMail = Nothing
With Application
    .ScreenUpdating = True
    .EnableEvents = True
End With
Cancel = True
End If
End Sub

[Téo34]

Bonjour,

Merci pour votre proposition de résolution à ma question !