Discussion :

[Tententai]

Bonjour,

J'aimerais effectuer l'opération suivante depuis un formulaire Access :

- créer un classeur et une feuille Excel (pas de souci)
- y faire un copier coller depuis une autre feuille (pas de souci)
- remplacer les valeurs des cellules aui ont un fond rouge par un point

Pour cette dernière opération, j'ai le code suivant :

Code :

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

1
2
3
4
5
For Each objCell In xlSheet1.Range("A:AA")
            If objCell.Interior.ColorIndex = 3 Then
                objCell.Value = "."
            End If
        Next

Ca marche mais c'est très long.

Sous Excel je ferais comme ça :

Code :

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

1
2
3
4
Application.FindFormat.Interior.ColorIndex = 3
        xlSheet1.Range("A:AA").Replace What:="*", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
        ReplaceFormat:=False

Mais quand j'essaye ça dans mon module VBA Access, je reçois le message d'erreur "Method not found" sur Application.FindFormat

L'environnement est Access 2002 avec la bibliothèque Microsoft Excel 10.0.

Ai-je oublié une bibliothèque ? Existe-t-il une autre méthode ?

Merci d'avance pour vos idées

[Macc]

Comme tu execute le code depuis Access, "Application" fait référence à ton application Access.Je pense qu'il faut que tu instancie un objet application sur ton classeur Excel.
Regarde ça: Communication entre Access et Excel

[Tententai]

Hum, dit comme ça, ça me semble évident ^^ Merci pour avoir pointé le problème, ça marche très bien maintenant