Probleme avec methode `range` de l`objet feuille

Re😛robleme avec methode `range` de l`objet feuill

Bonjour

soit tu mets

cells(9,13).select

soit

Range('M9').select

Bon courage

Re😛robleme avec methode `range` de l`objet feuill

Pascal76 écrit:

Bonjour

soit tu mets

cells(9,13).select

soit

Range('M9').select

Bon courage

Cliquez pour agrandir...

Merci, mais
G essaye ce que tu as marque et Ca marche pas trop 🙁

Le message d`erreur a change :

Select Method of Range Class Failed

Re😛robleme avec methode `range` de l`objet feuill

Re

Essaies de faire comme ceci

tu ecris tout ton code dans un module

Sub toto ()

chemin = ThisWorkbook.Path
nomfichier = ActiveWorkbook.Name
critère = 'oui'

Set fs = Application.FileSearch

With fs
.LookIn = chemin
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox 'Ce dossier contient ' & .FoundFiles.Count & _
' fichier(s) répondant aux critères.'
For i = 1 To .FoundFiles.Count
fichierlu = .FoundFiles(i)
MsgBox .FoundFiles(i)
Workbooks.Open Filename:=fichierlu
fenêtrelue = ActiveWorkbook.Name

Sheets(2).Select
Cells(9, 13).Select

ETc ...

end sub

et tu appelles la macro de ton bouton

Private Sub CommandButton1_Click()
toto
end sub

Bon courage

Re😛robleme avec methode `range` de l`objet feuill

🙂 Merci pour ton aide, ca marche impec

Re😛robleme avec methode `range` de l`objet feuill

Bonjour Pascal, Valentin, le Forum

Je me permets de m'introduire dans ce fil, car je n'ai pas bien suivi la demande par rapport aux codes indiqués...

Le Critère 'Oui' sert à quoi ? Car dans l'état du code, il n'y a pas de recherche sélective 'Like' dans ce code... Ensuite je n'ai pas suivi le besoin de passer par une Public Sub 'Toto' pour régler un problème de range ?

Enfin moi si je devais récupérer le contenu de la cellule 'M9' de la seconde feuille de tous les Classeurs dans le même répertoire et dont le nom contient 'Oui' voici une syntax un peu plus aboutie (surtout pour les déclarations de variables) 😉

Option Explicit

Private Sub CommandButton1_Click()
Dim Chemin As String, NomFichier As String, Critere As String
Dim Fs As FileSearch
Dim FichierLu As Variant
Dim WBCible As Workbook
Dim CellCible As Range

Chemin = ThisWorkbook.Path
NomFichier = ActiveWorkbook.Name
Critere = 'OUI'

Set Fs = Application.FileSearch

    With Fs
        .NewSearch
        .LookIn = Chemin
        .SearchSubFolders = False
        .FileType = msoFileTypeExcelWorkbooks
        .Filename = '*' & Critere & '*.xls'
              If .Execute > 0 Then
                MsgBox 'Ce dossier contient ' & .FoundFiles.Count & _
                ' fichier(s) répondant au critère.'
           
                For Each FichierLu In .FoundFiles
                    If Not FichierLu = ThisWorkbook.FullName Then
                        MsgBox 'Scan actuellement ' & FichierLu
                            Set WBCible = Workbooks.Open(FichierLu)
                            On Error GoTo ErrorHandlerNoTwoSheets
                            Set CellCible = WBCible.Worksheets(2).Cells(9, 13)
                                MsgBox 'Valeur Cellule Cible ' & CellCible
                                WBCible.Close 0
                            On Error GoTo 0
                    End If
                Next
              End If
    End With
Exit Sub
ErrorHandlerNoTwoSheets:
MsgBox 'Le Fichier ' & WBCible.Name & ' ne contient qu'une seule Feuille'
End Sub

Cliquez pour agrandir...

Bonne Journée
@+Thierry

Re😛robleme avec methode `range` de l`objet feuill

ReBonjour a tous,

g essaye le code de thierry, qui est tres efficace, mais dont le probleme comme le mien est qu`il reouvre le fichier ou g mon code.

Ce serait cool si il n`y avait pas l`invite voulez-vous reouvrir le fichier machin, la ou justement je recupere mes donnees et ou la macro se trouve. Parce que si je le reouvre, je perds toutes mes donnees...... :unsure: