Bonjour tout le monde,

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

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
 
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