Discussion :

[nico2no]

Chers ami(e)s bonjour,

Je viens crier à l'aide car je bloque sur un bout de macro.

Tout d'abord je vous explique en gros :

J'ai un fichier. des personnes doivent remplir un onglet. cet onglet m'est retourné par mail.
J'ai une belle macro ( trouvé sur ce site surement ! ) qui :

affiche l'onglet
créée une copie de l'onglet
le met en pièce jointe d'un mail dont l'adresse se trouve dans une cellule du tableau
envoi le mail
ferme la copie sans l'enregistrer.

Le probleme est que je souhaiterais que cette pièce jointe soit renommée en fonction du contenu d'une certaine cellule
( par ex : si je mets tartempion dans la cellule B2, la pièce jointe devra s'appeler tartempion (le.xls se met d'office).

J'ai trouvé des choses à droite et à gauche mais cela ne s'adapte pas à ma macro existante .
Avez vous une solution ?

Voici la macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub envoi_réponses()
Dim Dest As String, Sujet As String
Worksheets("Réponses").Visible = True
Sheets("Réponses").Select 
ActiveSheet.Copy 'crée une copie de la feuille active
Dest = Range("C2").Value 'Adresse mail selon contenu de la cellule C2
Sujet = "Réponse du candidat"
ActiveWorkbook.SendMail Dest, Sujet, False
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True
Worksheets("Réponses").Visible = False
Sheets("Accueil").Range("A1").Select
End Sub

Merci d'avance et bonne journée !

Nicko

[vinc_bilb]

Bonjour,

Sauf erreur, votre la feuille copiée devient la feuille active ... Donc il faut juste rajouter quelque-chose du type (non testé)

Code :

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

1
2
ActiveSheet.Copy 'crée une copie de la feuille active
ActiveSheet.Name = Range("XXXX").Value

[Oliv-]

Bonjour,
Si tu veux changer le nom il faut enregistrer sous ton nouveau classeur

[nico2no]

merci vinc_bilb mais en fait cela ne renomme que l'onglet ... oliv, le problème est que je ne veux pas garder ce fichier...

[vinc_bilb]

Et bien, ça ne marche pas à ma connaissance, dans la mesure ou Workbook.Name est une propriété READ ONLY
La seule possibilité que je vois est de le sauver par la méthode SAVEAS, sous le bon nom, puis de l'effacer après

Bonne soirée

Vous pouvez réadapter peut-être le code ci-dessous (Ext_Wbkk est le workbook temporaire)

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
Application.DisplayAlerts = False
 
        Ext_Wbkk.SaveAs Filename:=SavExtrpath & Ext_Wbkkname, FileFormat:=FileFmt, _
            CreateBackup:=False, AddToMru:=True, ReadOnlyRecommended:=False
        Ext_Wbkk.Saved = True
 
        Application.DisplayAlerts = True
    End If
 
        ' Email and propose to delete
    If Email = True Then
 
        Call SEND_WBK(Ext_Wbkk, Signature)
 
        Msgprompt = "Would you like to delete this workbook from disk? " & vbCrLf & _
            Ext_Wbkk.FullName
        Msganswer = Msgbox(Msgprompt, vbYesNo, Subname)
 
        If Msganswer = vbYes Then
            ThisWorkbook.Activate
            Workbooks(Ext_Wbkkname).Close SaveChanges:=False
            Kill (SavExtrpath & Ext_Wbkkname)
        End If
 
    End If
 
        ' Closure, propose to close if still open
    If IS_WBK_OPEN(Ext_Wbkkname) = True Then
        Msgprompt = "Would you like to close this extract workbook?"
        Msganswer = Msgbox(Msgprompt, vbYesNo, Subname)
        If Msganswer <> vbNo Then Workbooks(Ext_Wbkkname).Close SaveChanges:=True
    End If
 
    Application.EnableEvents = True
    Application.DisplayAlerts = True

[Oliv-]

et bien tu le supprimes après mais tu es obligé de passer par là

Code :

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

kill "path du fichier"