Discussion :

[Christian_Pfender]

Bonjour à tous,

N'ayant que quelques bases en VBA, je me permet de vous solliciter

Voici mon projet :
J'ai un fichier excel dans lequel dans 1 onglet "Planification 2022" :
- Liste de locaux en colonne C de la ligne 5 à 100
- Date de début d'intervention en colonne D sur les mêmes lignes
- Nom des contacts en colonne I sur les mêmes lignes

Pour chaque local de la colonne C, j'ai crée une fiche local qui a la même référence

Ce que je souhaiterai c'est l'envoi d'un mail à DATE (colonne D) J-15 aux destinataires (colonne I) qui mettrai en PJ du mail le pdf de la fiche local associé au numéro de local se trouvant colonne C

Je ne sais pas si j'ai été suffisamment clair but I need your help

Un grand merci pour votre contribution

[Philippe Tulliez]

Bonjour,
Il y a plusieurs questions dans votre demande.
Dans quelle partie avez-vous besoins d'aide et qu'avez-vous déjà écrit comme code ?

[Christian_Pfender]

Bonjour Philippe,

A dire vrai je ne sais pas vraiment comment démarrer les lignes de codes
Je pensais démarrer par la partie mise en pdf des onglets "local"

Je crois que je me suis lancé dans un truc monstrueux à écrire

Merci pour l'aide

[galopin01]

Pour chaque local de la colonne C, j'ai crée une fiche local qui a la même référence

Bonjour,
Parce que ces fiches sont si différentes d'un local à l'autre pour que vous ayez besoin d'une feuille par local ?

Habituellement quand on a un onglet qui récapitule l'ensemble des infos, une seule feuille permet de détailler chaque item séparément.

Exemple : Dans une entreprise de plusieurs dizaines (centaines de personnes) 1 seul onglet permet de récapituler l'essentiel des infos de chaque individu. Pour imprimer une feuille, il suffit de "faire tourner" les informations entre chaque impression/Enregistrement...

Même si vous n'êtes pas "une pointure" en VBA quelques RECHERCHEV suffisent bien à remplir une fiche modèle que vous éditez à la demande. De toute façon personne n'est capable de lire, écrire, imprimer plus d'une fiche à la fois...

A+

[Christian_Pfender]

Bonjour Galopin,

Effectivement, il me faut 1 onglet par local étant donné que les photos insérées diffèrent d'un local à l'autre
En gros, dans mon onglet "Planification 2022" en colonne C j'ai le n° de local avec en colonne I une date d'intervention sur le local
Je souhaiterai qu'à 15j avant la date butoir indiquée en colonne D un mail soit envoyé à un client (adresse mail en colonne I) avec en PJ le pdf du local concerné

A+

[MarcelG]

Bonjour à tous, Bonjour au Forum,

Peut-être quelques pistes dans cette contribution.

[Christian_Pfender]

Merci MarcelG pour le partage

Je vais regarder l'ensemble des options pour voir si j'arrive à l'adapter à mon fichier

[Christian_Pfender]

Re bonjour à tous et mes meilleurs vœux pour cette nouvelle année

J'ai réfléchis sur la construction du code mais n'arrive pas à l'écrire

Voici les étapes :

• Sélection le ou les onglets nécessaires avec une MsgBox
• Imprimer l'onglet sélectionné en PDF
• Récupérer le pdf et l'envoyer via Outlook à un client (liste d'adresse dans le fichier) 15 jours avant la date d'intervention qui se trouve dans l'onglet planification

Je vous joins le fichier ce sera plus parlant je pense

Et voici le code que j'ai mis pour la MsgBox :

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
Option Explicit
 
Sub SelectSheet()
Dim Feuille As String
Dim Longueur As Byte
Dim I As Byte
Dim Hit As Byte
Dim Miss As Byte
 
 
Feuille = InputBox("Entrer le numéro du local .", " SÉLECTION DU LOCAL.", "Attention respecter l'espace entre étage et local")
 
Longueur = Len(Feuille)
 
For I = 1 To Sheets.Count
    If UCase(Left(Sheets(I).Name, Longueur)) = UCase(Feuille) Then
        Sheets(I).Select
        Hit = Hit + 1
    Else
        Miss = Miss + 1
    End If
Next I
If Miss = Sheets.Count Then
    MsgBox "Local non reconnu avec le code : " & Feuille
End If
If Hit > 1 Then
    MsgBox "Attention, au moins deux locaux identiques : " & Feuille
End If
End Sub

Merci pour votre aide