Bonjour,
J'ai créé une fonction de recherche dans un classeur appelé"planning" seulement à chaque fois que la macro s'exécute, le message m'indique"pas trouvé" alors qu'il y a bien concordance avec les cellules des deux classeurs.
Je pense que le problème est peut être que ce qui est chercher est un lien hypertexte mais ce qui est dans le classeur "planning" est bien le même lien hypertexte...
Comment y remédier, j'ai essayé de rechercher valeur ou formule ; en partie ou en totalité de la cellule mais rien ne change...
Voici une partie du code utilisé :
For n = 1 To 3000
If Sheets("Informations").Range("B" & n) = r Then
Sheets("Informations").Range("G" & n) = y
nomCherche = Sheets("Informations").Range("A" & n)
On Error Resume Next
Workbooks.Open Filename:="\\Serveur\documents\GESTION DE PRODUCTION\Planning.xlsm", UpdateLinks:=0
ActiveWorkbook.Find(What:=nomCherche, LookIn:=xlFormulas, LookAt:=xlPart).Select
If Err = 0 Then
Interior.ColorIndex = 4
Else
MsgBox "Pas trouvé"
End If
On Error GoTo 0
ActiveWorkbook.Save
ActiveWindow.Close
End If
Next n
Pouvez-vous m'aider svp....
Merci beaucoup
J'ai créé une fonction de recherche dans un classeur appelé"planning" seulement à chaque fois que la macro s'exécute, le message m'indique"pas trouvé" alors qu'il y a bien concordance avec les cellules des deux classeurs.
Je pense que le problème est peut être que ce qui est chercher est un lien hypertexte mais ce qui est dans le classeur "planning" est bien le même lien hypertexte...
Comment y remédier, j'ai essayé de rechercher valeur ou formule ; en partie ou en totalité de la cellule mais rien ne change...
Voici une partie du code utilisé :
For n = 1 To 3000
If Sheets("Informations").Range("B" & n) = r Then
Sheets("Informations").Range("G" & n) = y
nomCherche = Sheets("Informations").Range("A" & n)
On Error Resume Next
Workbooks.Open Filename:="\\Serveur\documents\GESTION DE PRODUCTION\Planning.xlsm", UpdateLinks:=0
ActiveWorkbook.Find(What:=nomCherche, LookIn:=xlFormulas, LookAt:=xlPart).Select
If Err = 0 Then
Interior.ColorIndex = 4
Else
MsgBox "Pas trouvé"
End If
On Error GoTo 0
ActiveWorkbook.Save
ActiveWindow.Close
End If
Next n
Pouvez-vous m'aider svp....
Merci beaucoup