Discussion :

[Chappoe]

bonjour à tous,

cela fait un moment que je fouille ce forum en quête de réponses a mes problèmes de programmation, et n'ayant rien trouvé j'ai décidé de poster mon probleme.

Aors voila, j'ai un premier classeur qui doit aller chercher des informations dans le tableau croisé dynamique du second classeur.

ma variable projet contient le nom du projet recherché et mon TCD de l'autre classeur("pj") est filtré de façon à ce que les projets se trouvent en colonne A.

J'ai donc entrer les lignes de code suivante:

Code :

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

1
2
3
If Workbooks("pj").Sheets("TCD_post_trait").Range("A:A").Find(projet) = projet Then
 verif = True
            End If

Quand je lance mon programme j'ai une erreur de type :"variable objet ou varible bloc with non définie"

De plus, j'aimerais que cette recherche puisse autoriser la casse. J'ai essayé l'aide vba mais quand j'ajoute "matchcase" le probleme est le même.

Quelqu'un pourrait il m'aiguiller s'il vous plait?
merci d'avance
Chappoe

[jfontaine]

Bonjour,

Et comme cela?

Code :

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

1
2
3
If not Workbooks("pj").Sheets("TCD_post_trait").Range("A:A").Find(what:=projet, lookat:=xlwhole) is Nothing Then
 verif = True
            End If

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
Set MyFichier = ActiveWorkbook.Application.Workbooks.Open("C:\MyRep\MyFichier.xls")
On Error Resume Next
r = MyFichier.Worksheets("TCD_post_trait").Range("A:A").Find(projet).Row
If Err = 0 Then verif = True
Err.clear
On Error GoTo 0

Quand une occurrence n’est pas trouvée il y a toujours un message d’erreur.

[Chappoe]

jfontaine, merci pour ta réponse, cela fonctionne parfaitement. Par contre, la casse n'est toujours pas permise. Comment faire pour que cela soit possible? J'ai essayé de rajouter matchcase a ta ligne de code mais le message d'erreur"attendu:paramètre nommé" apparait.

rdurupt, je ne comprend pas la fonction set, c'est pourquoi je ne l'utilise jamais. A quoi sert-elle? (désolé pour mon ignorance )

[Invité]

Le set affect une variable à un objet un classeur en l’occurrence.
Tu travail sur la variable comme si tu étais sur le classeur

Parce qu’il est préférable de travailler sur des objet que sur des noms :
Sur un nouveau classeur le nom est par exemple Classeur1, tu peux renommer le classeur en PJ donc son nom est PJ, si tu ouvert le classeur PJ.xls ou PJ.xlsx ou PJ.xlm son nom est PJ.xls ou PJ.xlsx ou PJ.xlm, en travaillant sur un objet, tu t’en moque du nom !

[Chappoe]

Merci pour ton explication rudurupt. C'est en effet tres pratique, je l'essay de ce pas

rdurupt,

J'ai essayé ta solution. le problème était que cela réouvrait le fichier sans faire le tri de nouveau. J'ai donc adapté ton code de la facon suivante

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
Set MyFichier = ActiveWorkbook.Application.Workbooks
On Error Resume Next
r = MyFichier.Worksheets("TCD_post_trait").Range("A:A").Find(projet).Row
If Err = 0 Then verif = True
Err.Clear
On Error GoTo 0
    If verif = True Then
        With ActiveSheet.PivotTables("TCD_PT").PivotFields("Projet")
        .Orientation = xlPageField
        .Position = 1
        End With
        ActiveSheet.PivotTables("TCD_PT").PivotFields("Projet").ClearAllFilters
        ActiveSheet.PivotTables("TCD_PT").PivotFields("Projet").CurrentPage = projet
 
        Else
            MsgBox ("ce projet est introuvable. Verifiez qu'aucune faute n'as été faite(manque de majuscule ou espaces) et recommencer la mise à jour")
            UFmaj.Hide
            Exit Sub
 
    End If

mais même si la variable projet est bonne (même nom que l'un des projets de la liste), il n'entre aps dans la boucle if et m'affiche le message d'erreur.

De plus, comment faire en sorte que la casse soit autorisé?