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 !

Rechercher des sujets similaires à "localiser mailing list"