Recherche ds fichier fermé incompabilité type

[Résolu/Fermé]
Signaler
Messages postés
6
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
9 juin 2008
-
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
-
Bonjour,

Je souhaite effectuer une recherche dans un fichier fermé. Le problème est que j'ai testé mon code avec le fichier ouvert et tout fonctionnait bien, mais maintenant que je le test avec mon fichier fermé cela ne fonctionne plus!
Voila mon code:

Sub Recherche_cout()

Dim codefourn As String
Dim ligne As Range
Dim ligneref As Range
Dim refexp As String
Dim cout As Long
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim appExcel As Excel.Application 'Application Excel

'Ouverture et creation de l'application Excel
Set appExcel = CreateObject("Excel.Application")

'Ouverture du fichier Cout transport
Set wbExcel = appExcel.Workbooks.Open("H:\My Documents\CoutTrp.xls")
Set wsExcel = wbExcel.Worksheets(2)

codefourn = Range("Fourn").Value & "-caen"

'recherche le code fournisseur dans le fichier
Set ligne = wbExcel.Worksheets("4-cout_par_fournisseur").Range("A7:A875"). _
Find(What:=codefourn, After:=Range("A7"), LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

Cela bloc à cette recherche où il inscrit incompabilité de type.
J'ai essayé plusieurs solution comme:
Set ligne = wbExcel.wsExcel.Range("A7:A875"). _
Find(What:=codefourn, After:=Range("A7"), LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

mais rien ne fonctionne!
Merci d'avance pour votre aide!

1 réponse

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 181