Discussion :

[bdel1724]

Bonjour,
Je souhaite chercher le texte suivant "Période d'administration" dans des fichiers qui se trouvent dans un dossier défini. J'ai fait la macro suivante. Ca fonctionne quand le texte est trouvé. Par contre je n'arrive pas à traiter la suite si le texte n'est pas trouvé. J'ai une erreur d'exécution 91
Ma macro
=================================

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
26
27
28
Sub ChercheTexte()
Dim CheminFichierACopier As String
Dim FichiersDansDossier As String
Dim TexteATrouver As String
 
'Chemin où sont enregistrés les fichiers des Cyto à copier
CheminFichierACopier = "H:\Cato\FileToCopy"
FichiersDansDossier = Dir(CheminFichierACopier & "\" & FichiersDansDossier)
TexteATrouver = "Période d'administration"
 
'Ouvre les fichiers et cherche le texte à trouver
Do While FichiersDansDossier <> ""
Workbooks.Open Filename:=CheminFichierACopier & "\" & FichiersDansDossier
If Cells.Find(What:="Période d'administration") <> TexteATrouver Then 'C'est ici quand le texte n'est pas trouvé que j'ai l'erreur
   ActiveWindow.Close
Else
   Rows("1:1").Select
    Rows("1:7").Insert Shift:=xlDown
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Déterminer les coûts (en CHF)"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "Filtre : Uniquement médicattions réalisées."
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "Période d'administration:"
End If
FichiersDansDossier = Dir()
Loop
End Sub

=================================

Merci de votre aide
BDel

[pgz]

Bonsoir.

La méthode find renvoie Nothing si la recherche échoue. Tu peux donc modifier ton test ainsi

Code :

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

If Not Cells.Find(What:="Période d'administration") Is Nothing Then

Cordialement,

PGZ

[bdel1724]

Bonsoir,
Merci pgz pour la réponse.
Ca fonctionne parfaitement maintenant
Bonne soirée et belles fêtes
BDel