Discussion :

[Line]

Bonoir,

Sous access 2003,

Je ne comprends pourquoi j'obtiens cet erreur à la ligne :

Range("G" & intLigne).Select

Des fois ça fonctionne et d'autre fois pas. Je ne comprends pas mon errreur.

Voici le code

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
29
30
31
32
33
34
 Set rstSousProjets = db.OpenRecordset("SELECT  [Sous-projet].[No S-projet SAV], [Sous-projet].Description, ([prenom] & ' ' & [nom]) AS Responsable, [suivi date].contact, format([suivi date].[date envoyé],'yyyy-mm-dd'), format([suivi date].[Date butoir],'yyyy-mm-dd'), format([suivi date].[date reçue],'yyyy-mm-dd') " & _
                                      "FROM  ([Projet Principal] LEFT JOIN [Type pub tech] ON [Projet Principal].FkTypePubTech = [Type pub tech].[No type pub tech]) INNER JOIN ([Liste employé] RIGHT JOIN (([Sous-projet] LEFT JOIN TbSousTypesPubTech ON [Sous-projet].FkSousTypePubTech = TbSousTypesPubTech.PkSousTypePubTech) LEFT JOIN [suivi date] ON [Sous-projet].[No S-projet] = [suivi date].[s-projet]) ON[Liste employé].[No employé] = [Sous-projet].[Resp Rédaction]) ON [Projet Principal].[No Projet principal] = [Sous-projet].[No projet principal] " & _
                                       strfiltre & " AND [Projet Principal].Titre = '" & Replace(rstProjets("Titre"), "'", "''") & "' " & _
                                      "Order By [Sous-projet].[No S-projet SAV]")
            wbk.Sheets(strSheetName).Range("A6").CopyFromRecordset rstSousProjets
            wbk.Sheets(strSheetName).Columns("B:B").WrapText = True
 
            countrecord = rstSousProjets.RecordCount
            intLigne = 6
            While countrecord > 0
                wbk.Sheets(strSheetName).Activate
                Range("G" & intLigne).Select
                Selection.FormatConditions.Delete
                Selection.FormatConditions.Add type:=xlCellValue, Operator:=xlGreater, Formula1:="=F" & intLigne
 
                With Selection.FormatConditions(1).Font
                 .Bold = True
                 .Italic = False
                 .ColorIndex = 3
                End With
                Selection.FormatConditions.Add type:=xlCellValue, Operator:=xlLess, Formula1:="=F" & intLigne
                With Selection.FormatConditions(2).Font
                 .Bold = True
                 .Italic = False
                 .ColorIndex = 10
                End With
            intLigne = intLigne + 1
            countrecord = countrecord - 1
            Wend
 
            rstSousProjets.Close
            Set rstSousProjets = Nothing
            rstProjets.MoveNext
        Wend

Mille merci encore une fois

[Jean-Philippe André]

salut,
plutôt que d'être feignant et d'écrire peu de code, autant mettre tout ce dont tu as besoin pour être sûr de ton coup

Code :

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

1
2
wbk.Sheets(strSheetName).Activate
wbk.Sheets(strSheetName).Range("G" & intLigne).Select

[Line]

Tout d'abord merci de votre suggestion. Mais ça n'a pas fonctionné.
Par la suite, je ne suis pas certaine de biens saisir le début de votre message mais je m'en vois désolée si de part l'envoi de mon code, je vous ai déplu.
Je ne croyais que bien faire.
N'étant pas Européenne, il se peut que certaines de vos expressions ou autres m'échappent et portent à confusion.

Cordialement

[mout1234]

Tout d'abord merci de votre suggestion. Mais ça n'a pas fonctionné.
Par la suite, je ne suis pas certaine de biens saisir le début de votre message mais je m'en vois désolée si de part l'envoi de mon code, je vous ai déplu.
Je ne croyais que bien faire.
N'étant pas Européenne, il se peut que certaines de vos expressions ou autres m'échappent et portent à confusion.

Cordialement

Bonsoir,

Je crois que jpcheck sous-entend simplement que dans ton code, tu as mis directement

Code :

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

Range("G"...)

Ceci est sans doute valide dans un code Excel mais Access ne sait peut être pas interpréter à quelle feuille s'applique le Range.

PS: La réponse de jpjeck n'a rien de méchant (c'est plus une petite moquerie gentille) et veut simplement dire que comme tout développeur, on cherche parfois un peu trop les syntaxes les plus courtes...