Discussion :

[fab78]

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

[illight]

C'est quoi ta question ?

[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?

[fab78]

Voici le code contenu dans le fichier que j'ouvre à partir de ma première 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
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

[AlainTech]

Utilise l'événement Workbook_Open() de tes classeurs à ouvrir plutôt qu'une macro auto_open.

[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