Discussion :

[FFGUY]

Bonjour,

Je suis en train d 'essayer de remplacer les 0 de ma page par des n/a mais le code ci-dessous me renvois une erreure de type : Objet not recognized.
Quelqu'un aurait il une idee ?

Code :

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

1
2
3
        Excel.Application.Cells.Replace What:="0", Replacement:="n/a", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Merci,

Romain

[SfJ5Rpw8]

bonjour,


et ou est déclaré ton objet Excel ...

[FFGUY]

Bonjour,

Voici le reste du code :

Code :

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

1
2
3
4
5
6
7
8
 
      Set oXL = CreateObject("Excel.Application")
      oXL.Visible = True
         ' Get a new workbook.
      Set oWB = oXL.Workbooks.Open(Nom du fichier)
        Excel.Application.Cells.Replace What:="0", Replacement:="n/a", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

[SfJ5Rpw8]

Bonjour,

et par quel miracle ta variable objet oXl change de nom prend le nom Excel ?

[FFGUY]

J ai change cette partie mais maintenant j ai un message d erreur : "Subscript out of range"
Auriez vous une idee sur ce qui cause ce probleme ?

[Oliv-]

Bonjour,
Si tu veux faire du pilotage d'excel via OUTLOOK (ou une autre appli), tu dois soit ajouter une "référence" à Microsoft Excel , soit faire une déclaration tardive (late binding) c'est ce que tu as fais dans le #3
mais attention il faut dans ce cas déclarer toutes les constantes excel !

Et mettre oXL devant toutes les instructions Excel.

Quand tu changes une partie de ton code, il est préférable de publier le nouveau pour que l'on puisse t'aider

[FFGUY]

J ai rajoute oSheet devant toutes les instructions excel mais il doit toujours y a avoir quelquechose que je ne saisis pas. Voici les modifications que j ai fait:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
  ' Start Excel and get Application object.
      Set oXl = CreateObject("Excel.Application")
      oXl.Visible = True
         ' Get a new workbook.
      Set oWB = oXl.Workbooks.Open(Repertoire)
      Set oSheet = oWB.Sheets(1)
      oSheet.Activate
        oSheet.Cells.Replace What:="0", Replacement:="n/a", LookAt:= _
        oSheet.xlPart, SearchOrder:=oSheet.xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Tout fonctionne bien jusque "oSheet.Activate" mais ensuite tout se corse

[Oliv-]

une constante se déclare comme cela

Code :

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

Const xlPart = 2

Pour être sûr de ne pas en oublier il faut mettre en haut du module

"OPTION EXPLICIT"


essaye comme cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  ' Start Excel and get Application object.
      Set oXl = CreateObject("Excel.Application")
      oXl.Visible = True
         ' Get a new workbook.
      Set oWB = oXl.Workbooks.Open(Repertoire)
      Set oSheet = oWB.Sheets(1)
     oXl.activate
      oSheet.Activate
        oSheet.Cells.Replace What:="0", Replacement:="n/a", LookAt:= _
        2, SearchOrder:=1, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Attention je ne sais pas ce que tu veux faire exactement mais avec
LookAt=2 (xlPart)

2010 deviendra 2n/a1n/a, à mon avis tu dois mettre xlWhole = 1

[FFGUY]

Tout fonctionne parfaitement, Merci oliv d 'avoir pris le temps.
Bonne journee,

Romain