[VBA-EXCEL]Exécution de macro

Version imprimable

23/08/2006, 10h30
fab78

[VBA-EXCEL]Exécution de macro

Bonjour,

J'ai créer une ListBox sous excel contenant 3 choix possible permettant l'ouverture d'autres fichier excel.

Mon problème est que ces fichiers ouvert par la macro contiennent eux-mêmes des macros et que celles-ci ne s'exécutent pas quand les fichiers s'ouvrent.

Quelqu'un aurait-il une idée

Merci d'avance
23/08/2006, 11h18
illight

C'est quoi ta question ? :mrgreen:
23/08/2006, 11h22
fab78

J'ai pas été assez clair désolé

Ma question est comment faire pour que la macro contenue dans le fichier excel que j'ouvre via ma première macro s'exécute à l'ouverture de ce fichier.

Est ce plus clair?

Voici le code contenu dans le fichier que j'ouvre à partir de ma première macro

Code:

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
36
37
38
 
Sub auto_open()
 
Dim ClaSseurRésultats As Workbook
Dim Racine As String, Répertoire As String, ModèleRNC As String
Dim NomFichier As String, DerNuméro As String
Dim Numéro As Long, NbChiffres As Integer, Longueur As Integer
 
Répertoire = "\\Qualite\D\Holdry\RNC\RNC_nouvelle"
Racine = "RNC_0"
NbChiffres = 5
Longueur = Len(Racine) + NbChiffres + Len(".xls")
ModèleRNC = Répertoire & "\RNC_source.xlt"
 
DoEvents
Set classeurprojet = ThisWorkbook.Worksheets
Numéro = 0
NomFichier = Dir(Répertoire & "\" & Racine & "*.xls", vbNormal)
 
Do
DerNuméro = Mid(NomFichier, Len(Racine) + 1, NbChiffres)
If IsNumeric(DerNuméro) And Len(NomFichier) = Longueur Then
    If Val(DerNuméro) >= Numéro Then Numéro = Val(DerNuméro) + 1
End If
NomFichier = Dir
Loop Until Len(NomFichier) = 0
 
Set ClaSseurRésultats = Workbooks.Add(ModèleRNC)
ClaSseurRésultats.Activate
Cells(1, 47).Value = "0" & Right("00000" & Numéro, 5)
ClaSseurRésultats.SaveAs (Répertoire & "\RNC_0" & Right("0000" & Numéro, 5))
ThisWorkbook.Activate
Application.DisplayAlerts = False
ThisWorkbook.Close
End
 
Application.DisplayAlerts = True
End Sub

J'ouvre le fichier contenant ce code par
Workbook.Open

23/08/2006, 12h40
AlainTech

Utilise l'événement Workbook_Open() de tes classeurs à ouvrir plutôt qu'une macro auto_open.
23/08/2006, 12h55
fab78

Là il faut que tu m'explique Alain car je n'y connais absolument rien en VB.

Suffit-il de remplacer auto_open par Workbook_Open?

C'est Bon ça fonctionne.

J'ai remplacer auto_open() par WorkBook_Open() et déplacer la macro de module vers ThisWorkBook

Merci beaucoup