Bonjour a tous!

Je reviens sur ce site encore et toujours car sans vous aucun de mes classeurs ne fonctionnerait.

J'ai une question a laquelle je n'arrive pas a trouver de reponse sur le forum.

Est-il possible d'envoyer une feuille d'un classeur excel sans l'enregistrer quelque avant?

Je m'explique, je souhaite demander a mes equipes de m'envoyer la feuille de maniere hebdomadaire le probleme est le suivant :
Etant tous sur un reseau entreprise, enregistrer le fichier au meme endroit est impossible car chaque utilisateur aura une racine differente. Je souhaite eviter d'avoir une racine personalisee pour chacun car ca voudrait dire qu'a chaque fois que je souhaite faire une mise a jour sur le fichier il faudra que je cree X fichier pour chacun des membre de mon equipe.
Je ne sais pas si j'ai ete assez clair

Merci d'avance pour votre eternel support

voici mon code pour info :

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Sub Mail_Sami()
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
 
Dim OutApp, OutMail As Object
Dim subject1 As String
Dim Body As String
Dim DL As Long
Dim SigString, Signature As String
 
 
On Error Resume Next
 
    DL = Cells(Application.Rows.count, 1).End(xlUp).Row
    Columns("B:B").Select
    Selection.EntireColumn.Hidden = False
    Columns("F:F").Select
    Selection.EntireColumn.Hidden = True
    Range("B3:B" & DL).Value = Format(Now, "MM/DD/YYYY")
    Range("A2").Select
    ActiveWorkbook.Save
    ThisWorkbook.Sheets("Request Form").Copy
    Set NouveauClasseur = ActiveWorkbook
    Application.DisplayAlerts = False
    NouveauClasseur.SaveAs Filename:="C:\...." 'c'est cette ligne que je souhaite eviter
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    subject1 = ActiveSheet.Range("C3").Value
 
 
    Body = "<font style='font-family: Arial;font-size: 10pt ;" & "' color=#1D5799> " & "Hi Paul," & "<br>" & "" & "<br>" & "text ici" & "<br>" & "" & "<br>" & " </span>"
 
    SigString = Environ("appdata") & _
                "\Microsoft\Signatures\Pierre.htm"
 
    If Dir(SigString) <> "" Then
        Signature = GetBoiler(SigString)
    Else
        Signature = ""
    End If
 
    On Error Resume Next
 
    With OutMail
        .To = "Paul.pierre@essai.com"
        .CC = "Pierre.paul@essai.com"
        .BCC = ""
        .Subject = "RF - SC" & subject1 
        .BodyFormat = olFormatHTML
        .HTMLBody = Body & "<br>" & Signature
        .Attachments.Add NouveauClasseur.FullName
        .Display
 
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
 
    NouveauClasseur.Close
    Application.DisplayAlerts = True
 
    Sheets("Request Form").Select
    Columns("B:B").Select
    Selection.EntireColumn.Hidden = True
    Columns("F:F").Select
    Selection.EntireColumn.Hidden = False
    Range("A2").Select
 
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
 
End Sub