Bonjour,
qu'est ce que tu entends par le fichier peut être déplacé ?
Workbooks(nom du classeur).open worksbooks(nom du classeur).worksheets(nom de la feuille).activateest ce que je dois l'executer en 2 fois? je dois dans un premier temps ouvrir le classeur,
Workbooks(nom du classeur).open
worksbooks(nom du classeur).worksheets(nom de la feuille).activate
Par contre dans ta feuille tu as un nombre de ligne et de colonne fixe ou cela peut varier ?Il se peut que le nombre de ligne et de colonnes varie.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionFunction RechercheFichier() As String Dim fd As FileDialog Dim NomFichier As String Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Filters.Add "Fichiers Excel", "*.xls" .Title = "TITRE" .InitialFileName = "FICHIER.xls" End With If fd.Show -1 Then NomFichier fd.SelectedItems(1) RechercheFichier = NomFichier Set fd = Nothing End Function
Sub recherche() Dim NomFichier As String NomFichier = RechercheFichier() If NomFichier = "" Then MsgBox "Vous n'avez sélectionné aucun fichier" Else Workbooks.Open NomFichier End If Dim ValeurCherche As String Dim Plage As Range ValeurCherche = InputBox("Entrez une valeur") If Trim(ValeurCherche) <> "" Then With Sheets("Feuil1").Range("A:A") 'Recherche dans colonne A Set Plage = .Find(What:=ValeurCherche, _ After:=.Cells(.Cells.Count), _ LookIn:=xlValues, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:= False) If Not Plage Is Nothing Then Application.Goto Plage, True 'valeur trouvé Else MsgBox "Recheche nulle" 'value non trouvé End If End With End If End Sub
Par contre dans ta feuille tu as un nombre de ligne et de colonne fixe ou cela peut varier ?Réponse: OUI cela peut varier. ce qui va changer aussi c'est le nom de l'onglet (ou SHEET) sur lequel les recherches vont devoir être effectué (mais ce point n'est pas important, je changerai le nom de l'onglet à ouvrir au fur à mesure).
Fabien
With Sheets("Feuil1").Range("A:A") '.
Maintenant Je souhaites que la macro ouvre un classeur précis et fasse une recherche sur un onglet bien précis et "renvoie" ou "recherche" la valeur maximum d'une ligne (dans l'optique de faire un calcul)==> le problème de l'ouverture du classeur étant résolu je souhaite :