Discussion :

[skaz26]

Bonjour le forum,

Tout est dans l'intitulé, j'arrive à réaliser cette fonction dans un classeur ouvert mais pas lorsqu'il est fermé. Pour être plus précis j'aimerais obtenir la plage de données contenant ma chaine de caractère. Par exemple j'ai des noms de bloc fonctionnel qui sont placés dans la colonne B, tel que Input Filter 80W 8V, mais cette derniere contient des informations jusqu'en L120 ( la plage : B8:L120). Je vous joins la fonction que j'ai faite pour un classeur ouvert:

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
Sub Copy()
 
Dim MaRecherche_debut As Range
Dim MaRecherche_fin As Range
Dim Fin_colonne As Long
Dim Plage_copie As Range
 
 
With ThisWorkbook.Sheets("Feuil1").Cells
    Set MaRecherche_debut = .Find(What:="Input Filter", LookIn:=xlValues, SearchDirection:=xlNext)
End With
 
With ThisWorkbook.Sheets("Feuil1").Cells
    Set MaRecherche_fin = .Find(What:="Input Filter", LookIn:=xlValues, SearchDirection:=xlPrevious)
End With
 
'Debug.Print MaRecherche.Address
 
Fin_colonne = MaRecherche_debut.End(xlToRight).Column
 
Set Plage_copie = Range(MaRecherche_debut.Address, Cells(MaRecherche_fin.Row, Fin_colonne))
 
Plage_copie.Copy Destination:=Worksheets("Feuil2").Range("E1")
 
End Sub

En espérant avoir été clair !

[pyloupylou]

essaye de bricoler ça

je l'avais fait pour extraire une valeur précise d'un classeur fermé
tu peux tjrs faire une boucle

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
 
Private Function ExtraireValeur(ByVal Dossier As String, ByVal Fichier As String, ByVal feuille As String, ByVal cellule As String) As String
Dim Argument As String
On Error GoTo fin_extraire_valeur_erreur
    Argument = "'" & Dossier & "\[" & Fichier & "]" & feuille & "'!" & cellule
   ExtraireValeur = ExecuteExcel4Macro(Argument)
    If IsNumeric(ExtraireValeur) Then
        ExtraireValeur = Replace(ExtraireValeur, ",", ".")
    End If
    DoEvents
    GoTo fin_extraire_valeur
fin_extraire_valeur_erreur:
    ExtraireValeur = "non trouve"
fin_extraire_valeur:
On Error GoTo 0
End Function

[skaz26]

Merci d'avoir pris le temps de répondre,

Dans ton cas tu récupères seulement la valeur d'une cellule d'un classeur fermé, dans le mien j'aimerais récupérer une plage de données correspondant à une recherche de texte.

Pour faire plus simple autrement, est-possible d'effectuer un filtrage avancé depuis un classeur fermé et de copier les données sur un nouveau classeur?

Personne n'a d'idées ?