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
Merci pour votre aide
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
Partager