Bonjour,
Je n'arrive pas à effectuer correctement cette macro et pouvez vous m'aider :
Dans un formulaire Access en cliquant sur un bouton, je désirerai que les cellules se trouvant dans les colonnes de CK à DS d'un fichier Excel passe au format texte et que les "." se trouvant dans ces cellules se transforme en ","
Voici le code que j'ai commencé (inspiré des différents exemples trouvés) mais qui ne marche pas.
l'erreur est : l'indice n'appartient pas a la sélection

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
Private Sub Commande66_Click()
 
    Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
 
        'chemin adresse 
Chemin = Application.CurrentProject.Path & "\arrété\"
'fichier excel recepteur
FichierExcel = "surface_demande_bilantest.xlsx"
'chemin fichier excel
CheminFichierExcel = Chemin & FichierExcel
 
     ' Initialiser les variables
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(CheminFichierExcel) 
 
 XlBook.Sheets(“Re_Table_PourFusion_temp”).Columns("CK:DS").Select
 
  Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.NumberFormat = "@"
 
    ' Code de fermeture
    xlBook.Save
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
 
End Sub
Merci pour votre aide