Discussion :

[Invité]

Bonjour à tous,
Je rencontre un petit soucis dans un code.
Cela concerne une macro qui permet à partir d'un bouton d'envoyer un onglet par mail.
La copie envoyée par mail est aussi enregistrée dans mon PC, elle est aussi nomée automatiquement.
Avant j'utilisait la date aujourd'hui pour renomé les fichiers, maintenant je souhaite remplacer cette date par le contenu d'une cellule dans le nom du fichier de sortie, mais je n'arrive pas à le faire...
Je vous remercie d'avance et vous souhaite de bonne fêtes !

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
Option Explicit
 
Dim MonItem As Outlook.MailItem
 
'Requiert une référence à la bibliothèque d'objets Word
Dim wdDoc As Word.Document
 
Dim lapj As String
 
Public Sub essai_mail()
 
'Je souhaite modifier le "Fomat(date......"  par le contenu de la cellule H8 fdans la feuille "SP"
 
lapj = "D:\Documents\XLS\Programme SPDC " & Format(Date, "dd_mm_yyyy") & ".xlsx"
 
Application.DisplayAlerts = False
 
ThisWorkbook.Worksheets(Array("SP")).Copy
 
 
With ActiveWorkbook
        .SaveAs _
                Filename:=lapj, _
                FileFormat:=xlOpenXMLWorkbook
        .Close
End With
 
Call Envoi_Documents_Mail
 
Application.DisplayAlerts = False
 
End Sub

[Philippe Tulliez]

Bonjour,
Comme expliqué dans une discussion récente titrée Problème code VBA sur Excel, il est fortement déconseillé de "HardCoder" dans les procédures.
Le recours à des cellules contenues dans une feuille "Paramètre" permet de modifier aisément les chemins, nom de fichier, etc. concernés par l'application. C'est s'assurer la pérennité de son application, de ne plus intervenir dans son code lorsqu'il y a changement de ses valeurs.

Ainsi la ligne ci-dessous

Code :

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

lapj = "D:\Documents\XLS\Programme SPDC " & Format(Date, "dd_mm_yyyy") & ".xlsx"

pourrait être remplacé par exemple par la concaténation des cellules nommées pSubFolder (B2) & pFileName (B3) d'une feuille nommée Parameter. Voir illustration ci-dessous

Code :

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

1
2
  PathName = ThisWorkbook.Path & "\" & Range("pSubFolder") & "\"
  lapj = PathName & Range("pFileName").Value

La valeur de Lapj devient \\VBOXSVR\Partage\Forums\Offre\1912-MagicOffice.xlsx



La cellule nommée pFileName contient la formule suivante

Code :

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

=TEXTE(AUJOURDHUI();"aamm") & "-" & CustomerName & ".xlsx"

CustomerName référencé dans la formule est une cellule nommée contenant comme son nom l'indique le nom du client

[Invité]

Bonjour,
Comme expliqué dans une discussion récente titrée Problème code VBA sur Excel, il est fortement déconseillé de "HardCoder" dans les procédures.

Exellent !!!
ça marche !
Effectivement c'est plus confortable de ne pas HARDCODER !!!!

Comment faire pour enregistrer le fichier dans un dossier différent de la source du fichier ?

Cordialement

[MarcelG]

Bonjour,

Salut Philippe.

Comment faire pour enregistrer le fichier dans un dossier différent de la source du fichier ?

Voir la méthode SaveAs

Pour reprendre la remarque de l'ami Philippe, le paramètre Filename de cette méthode peut très bien contenir une concaténation incluant la valeur d'une cellule.