Joindre fichier avec nom variable

Bonjour le forum!!!

J'ai besoin de votre aide, mon cerveau est mêlé je crois!!!

Donc ma situation:

J'ai un fichier Excel où les gens peuvent inscrire une nouvelle demande. Chaque nouvelle demande est reliée à un numéro unique qui s'affiche en B6 suite à la demande (je vous épargne les détails, mais l'utilisateur complète un Userform qui rempli ensuite les champs de ma feuille "Demande de remplacement" et inscrit le numéro en B6).

Je veux enregistrer chaque nouvelle demande dans un fichier Excel séparé puis l'envoyer par courriel.

J'ai placé le nom du fichier dans une cellule sur ma feuille "Demande de remplacement" qui est en fait ceci : ="Demande hors délais - "&B6&".xlsx"
Résultat du nom (xx étant un numéro variable) : Demande hors délais - XX.xlsx

Voici mon code pour sauvegarder le fichier dans mon répertoire avec le numéro unique qui lui est attribué (ce code fonctionne très bien).

Code:

---

1 2 3 4 5 6

Sheets("Demande de remplacement").Select Sheets("Demande de remplacement").Copy ChDir _ "G:\G-All-Jl-Plt\Commis Operations\Kaizen\Gestion des EPI\Demandes hors délais" ActiveWorkbook.SaveAs Filename:=Cells(1, 20).Value 'emplacement du nom de mon fichier avec son numéro unique. ActiveWindow.Close

---

Je souhaite maintenant l'envoyer par courriel en pièce jointe.

Code:

---

1 2 3 4 5 6 7 8 9

ActiveWorkbook.EnvelopeVisible = True   With ActiveSheet.MailEnvelope   .Item.To = "monadresse@email.com" .Item.Subject = Atelier & "-Demande d'EPI - " & EPI & " pour " & Employé & " (" & Punch & ")" 'Reprend plusieurs variables utilisée dans mon code préalablement (fonctionne très bien) .Item.Attachments.Add = "G:\G-All-Jl-Plt\Commis Operations\Kaizen\Gestion des EPI\Demandes hors délais\"&??? .Item.Send End With

---

J'ai essayé de mettre le chemin dans une variable de type String et d'inscrire

Code:

---

.Item.Attachments.Add = MaVariable

---

J'ai essayé de pointer directement sur une cellule...

Bref je n'y arrive pas!
SVP SVP SVP un petit indice pour continuer!

Bonjour,

Et de cette façon ?

Code:

---

1 2 3 4 5 6 7 8 9

With ActiveSheet.MailEnvelope   .Item.To = "monadresse@email.com" .Item.Subject = Atelier & "-Demande d'EPI - " & EPI & " pour " & Employé & " (" & Punch & ")" .Item.Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name .Item.Send   End With

---

Hervé.

Bonjour Hervé,

Malheureusement, je ne veux pas joindre tout le fichier, mais tel qu'indiqué dans mon premier bout de code, je copie un onglet seulement vers un nouveau classeur que j'enregistre. C'est ce nouveau classeur enregistré que je souhaite joindre à mon courriel.

Voici mon code pour sauvegarder le fichier dans mon répertoire avec le numéro unique qui lui est attribué (ce code fonctionne très bien).

Code:

---

1 2 3 4 5 6

Sheets("Demande de remplacement").Select Sheets("Demande de remplacement").Copy ChDir _ "G:\G-All-Jl-Plt\Commis Operations\Kaizen\Gestion des EPI\Demandes hors délais" ActiveWorkbook.SaveAs Filename:=Cells(1, 20).Value 'emplacement du nom de mon fichier avec son numéro unique. ActiveWindow.Close

---

Je me retrouve donc avec un fichier qui sera au chemin suivant:
G:\G-All-Jl-Plt\Commis Operations\Kaizen\Gestion des EPI\Demandes hors délais\Demande hors délais - XX.xlsx

Mon problème est qu'il changera de nom chaque fois puisque le XX sera un numéro variable.

Je ne sais pas comment inscrire ce chemin variable dans Item.Attachments.Add

Code:

---

1 2 3 4 5 6 7 8

With ActiveSheet.MailEnvelope   .Item.To = "monadresse@email.com" .Item.Subject = Atelier & "-Demande d'EPI - " & EPI & " pour " & Employé & " (" & Punch & ")" .Item.Attachments.Add '??? chemin variable .Item.Send   End With

---

Bonjour,

Si le nom du fichier est bien inscrit comme stipulé ici

Citation:

---

ActiveWorkbook.SaveAs Filename:=Cells(1, 20).Value

---

tu pourrais écrire, j'imagine

Code:

---

.Item.Attachments.Add = "G:\G-All-Jl-Plt\Commis Operations\Kaizen\Gestion des EPI\Demandes hors délais\" & Cells(1, 20).value

---

Bonjour,

Malheureusement il me revoit "Erreur d'exécution. Échec de l'opération" en me renvoyant directement sur ma ligne

Code:

---

.Item.Attachments.Add = "G:\G-All-Jl-Plt\Commis Operations\Kaizen\Gestion des EPI\Demandes hors délais\" & Cells(1, 20).Value

---

J'ai aussi essayé de mettre le chemin par une fomule concaténée en Cells(2, 20) puis d'en faire un copier coller valeur en Cells(3, 20). Aucun de ces lignes ne fonctionnent

Code:

---

1 2 3

.Item.Attachments.Add =Cells(2, 20).Value 'chemin concaténé par formule .Item.Attachments.Add =Cells(3, 20).Value 'chemin directement inscrit dans la cellule .Item.Attachments.Add = "G:\G-All-Jl-Plt\Commis Operations\Kaizen\Gestion des EPI\Demandes hors délais\" & Cells(1, 20).Value ' chemin concaténé directement par VBA

---

:(

Qu'est-ce qu'il y a comme texte dans la cellule T1 ?
Est-ce seulement le nom du fichier ou tout le chemin + le nom ?

Voici ce qui est contenu dans les cellules T1 à T3

T1 - Cells(1, 20) : Formule ="Demande hors délais - "&'Consultez une demande'!B6&".xlsx"

• 'Consultez une demande'!B6 correspond au numéro unique de ma demande ce qui fait que T1 qui me renvoit le nom du fichier "Demande hors délais - XX.xlsx" (où XX est la valeur en 'Consultez une demande'!B6).

T2 - Cells(2, 20) : formule ="G:\G-All-Jl-Plt\Commis Operations\Kaizen\Gestion des EPI\Demandes hors délais\"&T1

• qui me renvoit le chemin complet du fichier avec le nom

T3 - Cells(3, 20) : Text du chemin complet du fichier avec le nom

• Cette valeur est obtenue par un copier collé valeur de T2

Étrange...
Est-ce que tu reçois un message d'erreur ? si oui, lequel ?

Avant ton code d'envoi, essaie cette ligne pour voir si ça génère une erreur ou non et quel message tu auras

Code:

---

1 2 3 4 5

If Dir("G:\G-All-Jl-Plt\Commis Operations\Kaizen\Gestion des EPI\Demandes hors délais\" & Cells(1, 20).value, vbArchive) = "" then msgbox "Le fichier n'existe pas" else msgbox "Le fichier est bien trouvé" End If

---

Oui j'ai une erreur tel qu'indiqué ici :

Citation:

---

Envoyé par Lufia

Bonjour,

Malheureusement il me revoit "Erreur d'exécution. Échec de l'opération" en me renvoyant directement sur ma ligne

Code:

---

.Item.Attachments.Add = "G:\G-All-Jl-Plt\Commis Operations\Kaizen\Gestion des EPI\Demandes hors délais\" & Cells(1, 20).Value

---

---

Le fichier est pourtant bien généré dans le répertoire indiqué.
Je vais valider avec ton bout de code pour voir s'il le détecte bien (la joie de travailler en réseau, le fichier est occupé actuellement !)

À suivre en fin de journée ou demain Am.

Merci pour l'aide!

8O 8O 8O 8O
Je viens de découvrir une autre erreur étrange!!!!

Jusqu'à ce PM, avec le code suivant, le fichier se générait dans le répertoir mentionné avec le nom inscrit en T1.

Code:

---

1 2 3 4 5 6

Sheets("Demande de remplacement").Select Sheets("Demande de remplacement").Copy ChDir _ "G:\G-All-Jl-Plt\Commis Operations\Kaizen\Gestion des EPI\Demandes hors délais" ActiveWorkbook.SaveAs Filename:=Cells(1, 20).Value ActiveWindow.Close

---

Là, j'essaie et le fichier va s'enregistrer dans le répertoire Bibliothèques\Documents
??????????????
Pourquoi le fichier ne s'enregistre plus dans le répertoire mentionné??

Bien évidement le msgbox suggéré me renvoit que le fichier est inexistant!

:cry: :cry: :cry:
Plus ça avance et plus j'ai l'impression de reculer :calim2:

58e essaie!

J'ai tenté d'envoyer le nouveau classeur généré directement avant de le fermer (donc peut importe son chemin au final) avec le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

'Sauvegarde du fichier Sheets("Demande de remplacement").Select Sheets("Demande de remplacement").Copy ChDir _ "G:\G-All-Jl-Plt\Commis Operations\Kaizen\Gestion des EPI\Demandes hors délais" ActiveWorkbook.SaveAs Filename:=Cells(1, 20).Value   ' Envoie du fichier directement dans le nouveau fichier généré ActiveSheet.Range("AF1:AF3").Select ' la plage de cellules à envoyer ActiveWorkbook.EnvelopeVisible = True   With ActiveSheet.MailEnvelope   .Item.To = "diongeneviev@bfusa.com" .Item.Subject = Atelier & "-Demande de remplacement d'EPI - " & EPI & " pour " & Employé & " (" & Punch & ")" .Item.Attachments.Add = ThisWorkbook.Path & "\" & ThisWorkbook.Name .Item.Send End With

---

Et encore une fois, VBA me renvoit "Erreur d'exécution. Échec de l'opération" en focussant sur la ligne .Item.Attachments.Add

J'ai vraiment l'impression que c'est une erreur toute banale dans la nommenclature de cet Item, mais je ne met pas le doigt dessus!

Avant le ChDir = "G:....."
essaie de mettre ChDrive "G:"

ou laisse tomber les ChDir et ChDrive et met le chemin complet + le nom du fichier dans ton SaveAs

Bon alors!

Le problème du chemin est résolu. Tel que suggéré j'ai mis le chemin complet + le nom du fichier dans le SaveAs.

Ce bout fonctionne maintenant #1.

J'ai aussi mis le msgbox avant mon envoie qui me renvoie "Le fichier est bien trouvé".

Parcontre, j'ai toujours la même erreur qui pointe sur la ligne Item.Attachments.add

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

If Dir("G:\G-All-Jl-Plt\Commis Operations\Kaizen\Gestion des EPI\Demandes hors délais\" & Cells(1, 20).Value, vbArchive) = "" Then MsgBox "Le fichier n'existe pas" Else MsgBox "Le fichier est bien trouvé" End If   Sheets("Demande de remplacement").Select ActiveSheet.Range("AF1:AF3").Select ' la plage de cellules à envoyer   ActiveWorkbook.EnvelopeVisible = True   With ActiveSheet.MailEnvelope   .Item.To = "dalpecarine@bfusa.com; diongeneviev@bfusa.com" .Item.Subject = Atelier & "-Demande d'EPI - " & EPI & " pour " & Employé & " (" & Punch & ")" .Item.Attachments.Add = "G:\G-All-Jl-Plt\Commis Operations\Kaizen\Gestion des EPI\Demandes hors délais\" & Cells(1, 20).Value .Item.Send End With

---

Je n'utilise pas cette méthode pour envoi de fichiers, mais c'est peut-être le signe "=" après le .Add qu'il faudrait enlever (?)

!!!!!!!!!!!!!!!!!!!!!!!!!!
ÇA FONCTIONNE :ccool: :ccool: :ccool: :ccool: :ccool:

Code final :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sheets("Demande de remplacement").Select ActiveSheet.Range("AF1:AF3").Select ' la plage de cellules à envoyer   ActiveWorkbook.EnvelopeVisible = True   With ActiveSheet.MailEnvelope .Item.To = "dalpecarine@bfusa.com; diongeneviev@bfusa.com" .Item.Subject = Atelier & "-Demande d'EPI - " & EPI & " pour " & Employé & " (" & Punch & ")" .Item.Attachments.Add "G:\G-All-Jl-Plt\Commis Operations\Kaizen\Gestion des EPI\Demandes hors délais\" & Cells(1, 20).Value .Item.Send End With

---