If dans une macro excel

Version imprimable

Bonjour tout le monde,

Je tente d'exécuter du code vba excel via access avec le code code suivant
Code:

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 Dim MonObjet As Object Set MonObjet = GetObject("", "Excel.Sheet") nomfic = Application.CurrentProject.Path & "\toto.xlsx" MonObjet.Application.Workbooks.Open nomfic MonObjet.Application.Visible = True With MonObjet .Columns("K:R").Select .If Application.DecimalSeparator = "," Then .Selection.Replace What:=".", Replacement:="," .end if
Le if ne fonctionne pas car "fin d'instruction attendue"

Merci beaucoup pour votre aide.

JP

22/07/2013, 10h02
BlueMonkey

Bonjour,

Pourquoi il y a un . avant le If et le End If ?

Tu ne voulais pas plutôt écrire If .Application.DecimalSeparator = "," Then ?

Bonjour,

BlueMonkey a raison il faut enlever le . devant le If et End If.

Essai comme çà :

Code:

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
 
Dim MonObjet As Object
 
Set MonObjet = GetObject("", "Excel.Sheet")
 
nomfic = Application.CurrentProject.Path & "\toto.xlsx"
 
MonObjet.Application.Workbooks.Open nomfic
 
MonObjet.Application.Visible = True
 
 
 
With MonObjet
 
.Columns("K:R").Select
 
 
 
 
 
If Application.DecimalSeparator = "," Then
 
 .Selection.Replace What:=".", Replacement:=","
 
End If