[VBA-E] Connaitre le nom d'un classeur

Version imprimable

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:

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:

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

29/08/2006, 14h23
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...
29/08/2006, 14h30
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.
29/08/2006, 14h35
SfJ5Rpw8

Citation:

Envoyé par 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.

et quand il est ouvert "manuellement" la macro doit aussi être exécuté..?
29/08/2006, 14h47
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

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

Code:

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:

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

29/08/2006, 15h13
fab78

Je vais tester tout ca et si j'ai des problèmes je reviendrais içi

merci de ton aide
29/08/2006, 15h19
SfJ5Rpw8

Citation:

Envoyé par fab78

Je vais tester tout ca et si j'ai des problèmes je reviendrais içi

merci de ton aide

reviens aussi dans le cas contraire pour :resolu:
29/08/2006, 15h21
fab78

c'était aussi prévu
30/08/2006, 09h43
fab78

J'ai un problème avec le lancement de la procédure depuis le 2° classeur.

J'ai une erreur 1004 : Impossible de trouver la macro "Liste.xls'!NoteClasseur'
30/08/2006, 09h50
SfJ5Rpw8
la ligne de commande utilisée
Code:

1 2 Application.Run "'Liste.xls'!NoteClasseur", ThisWorkbook.Name
ton classeur s'appelle bien Liste.xls..?
ta procedure est bien publique..?
qu'elle est ta version d'excel..?
30/08/2006, 10h11
fab78

Pour répondre à tes questions :

La procédure NoteClasseur est bien publique
Mon classeur s'appelle bien Liste.xls
Je suis sous excel 2000

Pour être plus précis, la procédure NoteClasseur ainsi que ma macro dans le classeur liste sont situées dans Feuil1

La macro du 2° classeur se trouve dans ThisWorkbook
30/08/2006, 10h39
SfJ5Rpw8

Citation:

Envoyé par fab78

P...
Pour être plus précis, la procédure NoteClasseur ainsi que ma macro dans le classeur liste sont situées dans Feuil1
..

place noteClasseur dans un module public..
30/08/2006, 10h57
fab78

Merci beaucoup bbil,

Ca fonctionne maintenant.

Il me reste à comprendre la différence entre FeuilX, Thisworkbook et module pour comprendre pourquoi il fallait mettre la procédure dans un module

Merci encore

Je mets le sujet en résolu