Discussion :

[fab78]

Bonjour, j'ai un problème avec une macro que je n'arrive pas à résoudre.

Ma macro, contenu dans le classeur liste, sur certains événements m'ouvre un autre classeur, contenant également une macro qui modifie le nom de ce dernier.

Je n'arrive pas a récupérer le nom du fichier ouvert avec ma macro et le mettre dans une cellule du premier fichier.

Voici le code des deus macros
d'abord celui contenu dans le classeur liste

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
 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RNCName As String
 
If Target.Column = 2 Then
    Select Case Target
        Case "RNC"
        Workbooks.Open ("\\Qualite\d\Holdry\RNC\RNC_nouvelle\RNC_auto.xls")
        Application.Wait Now + TimeValue("0:0:5")
        RNCName = ActiveWorkbook.GetOpenFilename
        ThisWorkbook.Worksheets(1).Activate
        Range(ActiveCell, ActiveCell).Offset(0, 1).Value = RNCName
        Case "DAC"
        Workbooks.Open ("\\Qualite\d\Holdry\DAC\DAC_nouvelle\DAC_auto.xls")
        Case "DAP"
        Workbooks.Open ("\\Qualite\d\Holdry\DAC\DAC_nouvelle\DAC_auto.xls")
    End Select
ElseIf Target.Column = 8 Then
    Select Case Target
        Case "DAC"
        Workbooks.Open ("\\Qualite\d\Holdry\DAC\DAC_nouvelle\DAC_auto.xls")
    End Select
End If
End Sub

et celle contenue dans le deuxième classeur

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 WorkBook_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

Merci d'avance

[SfJ5Rpw8]

le nom du fichier excel liste est connu..? non..? modifie macro sur ouverture du 2° fichier afin qu'il rajoute dans fichier liste le nouveau nom...

[fab78]

Le problème est que ces fichiers peuvent être ouvert manuellement par l'utilisateur et pas seulement par le classeur liste.

Donc il n'est pas possible de modifier la macro sur ouverture du du 2° fichier.

[SfJ5Rpw8]

Le problème est que ces fichiers peuvent être ouvert manuellement par l'utilisateur et pas seulement par le classeur liste.

Donc il n'est pas possible de modifier la macro sur ouverture du du 2° fichier.

et quand il est ouvert "manuellement" la macro doit aussi être exécuté..?

[fab78]

Quand il est ouvert manuellement la macro doit également s'activer, mais je pense qu'en testant le fichier liste est ouvert ca résoud le pb.

Mais dans ce cas la difficulté est, pour moi, dans quelle cellule écrire le nom du fichier.

Je m'explique:

En mettant RNC dans la colonne 2, par exemple en B17,j'ouvre le fichier des RNC et je dois alors mettre le nom du fichier RNC qui est du type RNC_XXXXXX, ou les X représentent le numéro de la RNC auto incrémenté par la macro, sur la meme ligne mais dans la colonne d'à côté : C17.

L'avantage, pour moi, de mettre tout le code dans le fichier liste est que je peux facilement, avec ActiveCell, écrire dans la bonne cellule

[SfJ5Rpw8]

ben tu peu créer une procedure dans fichier liste que tu appelle depuis ton 2° classeur :

Code :

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

1
2
3
4
5
6
7
8
 
   Dim Wk As Workbook
   On Error Resume Next
   Set Wk = Workbooks("Liste.xls")
   On Error GoTo 0
   If Not Wk Is Nothing Then
     Application.Run "'Liste.xls'!NoteClasseur", ThisWorkbook.Name
    End If

Dans fichier liste:

Code :

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

1
2
3
4
5
 
Public Sub NoteClasseur(st As String)
 ActiveCell = st
 ActiveCell.Offset(1,0).Select
End Sub