Localiser la mailing list
Bonjour
Novice sur VBA, je suis stagiaire dans un poste où ils utilisent beaucoup de Macros. La personne qui a tout construit est partie et du coup j'essaye de m'y mettre petit à petit.
J'ai cependant un soucis a localiser le fichier excel qui contient la mailing list utilisé par une macro. Voici les lignes de codes qui correspondent à l'extraction de la mailing list
Public Function ExtractSendTo() As String
Dim distPath As String
distPath = dtStructurePath & "\"
If brand = agcv Then
distPath = distPath & distListAgCe
Else
distPath = distPath & distListCv
End If
If Dir(distPath) = "" Then
msgBody = "Distribution List could not be found !"
msgBox msgBody, vbOKOnly + vbInformation, msgBoxTitle
Else
Dim wbDist As Workbook
Set wbDist = Workbooks.Open(distPath)
ExtractSendTo = wbDist.Sheets(1).Range("A1").Value
wbDist.Close
End If
End Function
Je n'arrive donc pas à trouver d'ou est extrait ce fameux SendTo...
Quelqu'un pour m'iader ?
En vous remerciant d'avance
Bonjour,
la variable dtStructurePath. fait référence à quoi ?
sans voir entièrement les macro ou les Function ou Déclaration de variable il est impossible de savoir à quoi cette variable fait référence.
édit:
les lignes intéressantes sont:
distPath = dtStructurePath & "\"
Set wbDist = Workbooks.Open(distPath)
ExtractSendTo = wbDist.Sheets(1).Range("A1").Value
Bonjour Sebv, je te remercie pour ta réponse !
J'ai pu trouver ou menait la variable Dtstructurepath et voici ce que j'ai
[/'Folders
Public Const dtStructurePath As String = _
"\\cPP2\sPPs\Tracking\5 - Daily Tracking"][
Cependant, je n'arrive pas à savoir quel fichier excel est utilisé dans ce dossier, étant donné qu'on a plusieurs mailing list dans le dossier ...
J'ai bien ces lignes de codes qui m'indiquent les distributions list
'Distribution Lists
Public Const distListAgCe As String = "Distribution List DT Brand1.xlsx"
Public Const distListCv As String = "Distribution List DT Brand2.xlsx"
Dans mon cas je vodurais que la macro aille chercher la premiere liste. Et quand je supprime la ligne
Public Const distListCv As String = "Distribution List DT Brand2.xlsx"
La macro me dit qu'elle ne retrouve pas le fichier.
Je ne sais pas si j'ai été clair dans mon explication, tout cela est encore nouveau pour moi !
Merci !
J'ai retrouvé l'erreur !
Dans le code
If brand = agcv Then
distPath = distPath & distListAgCe
Else
distPath = distPath & distListCv
End If
[/code]
Il a fallu remplacer agcv par Agce, c'était devant moi tout ce temps là, quel noob
Encore merci !