Discussion :

[ThSPB]

Re-Bonjour
Mon nouveau problème. Je travaille sur deux fichiers xls dont les 2 noms peuvent changer.
Un peu d'explication;
Je fait une base qui se nomme à l'instant "Synthese_V10" mais dans le temps sa version V va évoluer
je récupére des données sur un centaine de fichiers (les uns après les autres, pas tout d'un coup quand même !)
donc ces fichiers n'ont obligatoirement pas le même nom , prenons "DFS_EC" pour exemple..
J'ai, presque, réussit à faire la macro qui permet la recherche du fichier.
Maintenant je veux copier une plage de la feuille "Wsite" dans le fichier"DFS_EC"
Pour la coller sur une cellule d'une feuille de "Synthese_V10"
Et là je me heurte au problème du fichier actif, au début c'est "DFS_EC" puis après c'est "Synthese_V10". Et vous allez rire, il y a encore une autre plage à copier dans "DFS_EC".
pouvez vous m'aider à gérer le problème de l' "ActiveWorkBook".
J'ai abrégé "DFS_EC" par "MI" et "Synthése_10" par "MC" mais je n'arrive pas à trouver le code qui permet de les dissocier tout en restant évolutif

Merci de votre aide

[Theze]

Bonsoir,

Il te faut utiliser des variable pour pouvoir y faire référence sans aucun soucis :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim Classeur As Workbook
 
'le classeur actif
Set Classeur = ActiveWorkbook
 
'le classeur est déjà ouvert dans l'application
Set Classeur = Workbooks("DFS_EC.xls")
 
 'le classeur que l'on veut ouvrir
Set Classeur = Workbooks.Open("D:\DFS_EC.xls")

Dans ton exemple, on pourrait faire :

Code :

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

1
2
3
4
5
6
 
Dim ClsSynthese As Workbook
Dim ClsDFS As Workbook
'les classeurs sont déjà ouverts dans l'application
Set ClsSynthese = Workbooks("Synthese_V10.xls")
Set ClsDFS = Workbooks("ClsDFS.xls")

Hervé.

[ThSPB]

Bonjour Hervé,
Je n'ai pas de doute sur le fonctionnement du code, mais il me reste le problème du fichier "FDS_EC" (la matrice importée) car c'est celle que j'ai en une centaine d'exemplaire avec pour seul points commun dans leurs appellations "_EC".
Pour ce qui est de l'autre fichier du fait que j'en suis le gestionnaire, je peux modifier le chemin dans la macro sans problème.
Dernier détail, pour un peu que je sois rigoureux le "_" de "FDS_EC" sera toujours en 4ème position.
Et peut on envisager de faire un détrompeur qui vérifierait si les valeurs de 4 à 6 correspondent à l'attendu ?
Désolé d'abuser à ce point
Merci
Thierry

[Theze]

Bonsoir Thierry,

Tu veux donc tester si les noms finissent par "_EC" ?

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
 
Sub Test()
 
    Dim MonMot As String
 
    'le nombre de lettres avant le tiret bas n'a pas d'importance
    MonMot = "FDS_EC"
 
    'test de l'existance des trois derniers carractères ("_EC")
    If Right(MonMot, Len(MonMot) - InStrRev(MonMot, "_") + 1) = "_EC" Then
        'ici ton code...
        'affiche pour le test
        MsgBox Right(MonMot, Len(MonMot) - InStrRev(MonMot, "_") + 1)
 
    End If
 
End Sub

Hervé.

[ThSPB]

Bonjour Hervé
Je vais tester tes propositions le plus rapidement possible. Mais je suis en déplacement pour les 2 semaines à venir. Donc loin de mon PC fixe au travail sur lesquels se trouvent mes fichiers en cours de développement. Dès que possible je te fais part des résultats. Et vraisemblablement de mes nouvelles cogitations.
Merci de ton aide
Thierry