Discussion :

[Ptikir]

Re-bonjour le forum,

Voici mon nouveau problème :
J'ai créé une macro outlook pour faire un traitement au niveau des boites mails. Je me sert d'un fichier excel comme "base de données".

J'ai un fichier qui me sert de base : BDD_traitementMail.xls
Dans ce fichier j'ai créé une macro mdificationCellule.

Et tous les jours je dois générer un nouveau classeur xls qui me sert de base de données : BDD_traitementMails_dateDuJour.xls

J'arrive bien à faire la copie du fichier excel mais je ne sais pas comment faire pour exécuter la macro du fichier BDD_traitementMail.xls sur le fichier BDD_traitementMails_dateDuJour.xls

Voici le code que j'ai fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
If Dir(cheminFichierQuotidien) = "" Then
            'création du fichier à partir du fichier modèle
            FileCopy cheminFichierModele, cheminFichierQuotidien
            nouveauFichier = True
    End If
    Set excelMacro = oApp.workbooks.Open(Path & "D:\Documents and Settings\A770477\Mes documents\Macros\Despatching Message\Modele_BDD_Mails.xls")
    Set workbookExcel = oApp.workbooks.Open(Path & "D:\Documents and Settings\A770477\Mes documents\Macros\Despatching Message\BDD_mails_" & date_jour & ".xls")
    Set sheetExcel = workbookExcel.Sheets("Feuil1")
 
    oApp.Run (workbookExcel.Name & "!modificationCellule")

Si quelqu'un a une idée à soumettre je suis preneur !

[Jean-Philippe André]

salut,
tu ne nous spécifies pas ce qui ne fonctionne pas
j'ai un doute sur ce qui est retourné par

Code :

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

workbookExcel.Name

sinon on part bien sur ce qui est proposé dans la à ce sujet :
http://vb.developpez.com/faqvba/inde...page=3.1.2#Run

[CodeFacile]

Il y a juste une erreur de syntaxe , à mon avis la ligne

Code :

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

1
2
 
oApp.Run (workbookExcel.Name & "!modificationCellule")

n'est pas connu .
il faut récupérer la valeur correspondant à workbookExcel.Name


J'ai testé un script suivant , il fonctionne :

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
 
Sub exec_macro_classeur_excel()
 
Set oApp = CreateObject("Excel.Application")
 
 
Set open_fic1 = oApp.workbooks.Open(Path & "e:\aide_vb1.xls")
   Set open_fic2 = oApp.workbooks.Open(Path & "e:\ma_macro.xls")
 
   fichier_macro = oApp.activeworkbook.Name
    oApp.workbooks("aide_vb1.xls").Activate
 
oApp.Run (fichier_macro & "!modif_fichier")
 
oApp.activeworkbook.Save
 
 
End Sub

[Ptikir]

En fait ca m'a mis pas mal de temps avant de me faire tilt... Ce que tu m'a donné codefacile fonctionne très bien mais en fait il fallait que je place la ligne

Code :

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

cheminMacro = oApp.activeworkbook.Name

avant l'instanciation du deuxième classeur.

Voici ce que j'ai fais :

Pour information :
- excelMacro est le classeur qui comporte la macro nommée "ModificationCellule"
- workbookExcel est le classeur sur lequel je veux exécuter 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
15
16
17
18
19
20
21
22
 
 Set oApp = CreateObject("Excel.Application")
    oApp.Visible = False 'mettre la valeur a true
 
    'Création du fichier bdd_mails_YYYY-MM-DD.xls si il n'existe pas
    If Dir(cheminFichierQuotidien) = "" Then
            'création du fichier à partir du fichier modèle
            FileCopy cheminFichierModele, cheminFichierQuotidien
            nouveauFichier = True
    End If
 
    Dim cheminMacro As String
 
    Set excelMacro = oApp.workbooks.Open(Path & "D:\Test\Modele_BDD_Mails.xls")
    cheminMacro = oApp.activeworkbook.Name
    Set workbookExcel = oApp.workbooks.Open(Path & "D:\Test\BDD_mails_" & date_jour & ".xls")
    Set sheetExcel = workbookExcel.Sheets("Feuil1")
 
 
    oApp.workbooks("BDD_mails_" & date_jour & ".xls").Activate
 
    oApp.Run (cheminMacro & "!ModificationCellule")

Merci beaucoup pour votre aide !!