modifier des formats de cellule et remplacer des . par , dans un fichier excel via access

Version imprimable

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:

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

Bonjour,

J'ajouterai :
Code:

1 2 3 Set xlApp = CreateObject("Excel.Application") :xlapp.visible=true Set xlBook = xlApp.Workbooks.Open(CheminFichierExcel) :xlBook.activate XlBook.Sheets(“Re_Table_PourFusion_temp”).activate
Cela va te permettre de voir ce qui se passe.

Et vérifie que le nom de la feuille est le bon.

A+

16/05/2015, 10h27
Invité

Bonjour,
Je ne vois pas l'intérêt de passer au format texte et de convertir les "." en ","; alors qu'en format numérique les "." deviennent de ",".

activesheet.usedrange= activesheet.usedrange.value.

Ainsi tu récupères tes valeurs avec ","
20/05/2015, 10h02
dodo28

Merci beaucoup pour vos réponse. Ca marche.
20/05/2015, 10h07
Invité

Citation:

Envoyé par dodo28

Merci beaucoup pour vos réponse. Ca marche.

bonjour,
j'en suis ravi mais qu'est-ce qui marche?

donnes la solution que tu as retenu pour les autres internautes!

n'oublis pas que certains problèmes peuvent être récurent et que d'autres peuvent s'intéresser à ta solution!

Je suis désolé pour le retard je n'avais pas vu la réponse toutes mes excuses.
En faite ca marche une fois sur deux, et j'ai du mal à comprendre pourquoi?
quand j'appelle le code une première fois ca ne marche pas erreur d'exécution 91 variable objet non définie. je referme le fichier Excel ouvert et je débugue.
Et si je recommence ca marche, une fois sur deux.
la méthode avec :

Code:

ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value

ne marche pas .

l'erreur est sur cette partie du code :

Code:

1
2
3
4
      'remplace les . par les , dans la selection
     Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

Et voici mon code en entier :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Sub GestionFormatExcel()
 
'modifie le format et change . en , aprés l'export excel dans le fichier excel de reception pour faire arrété gg
 
    Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
 
    Dim Chemin As String
    Dim FichierExcel As String
    Dim CheminFichierExcel As String
 
    'chemin adresse pas possible avec portable
Chemin = Application.CurrentProject.Path & "\arrété\"
'fichier excel recepteur
FichierExcel = "surface_demande_bilan.xlsx"
'chemin fichier excel
CheminFichierExcel = Chemin & FichierExcel
 
     ' Initialiser les variables
    Set xlApp = CreateObject("Excel.Application"): xlApp.Visible = True
    Set xlBook = xlApp.Workbooks.Open(CheminFichierExcel): xlBook.Activate
 
 
With xlBook.Sheets(1)
 
        .Activate
 
        .Columns("CK:DS").Select
 
        'gestion de l'erreur si deja au format
        On Error GoTo ErreurFormat
 
        'met en format texte la selection
        Selection.NumberFormat = "@"
 
ErreurFormat:
 
    'MsgBox ("erreurforma")
 
        On Error GoTo ErreurRemplace
 
      'remplace les . par les , dans la selection
     Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
 
 
ErreurRemplace:
 
    'MsgBox ("erreurremplace")
 
 
End With
 
    ' Code de fermeture
    xlBook.Save
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
 
End Sub

Merci beaucoup

Bonjour,
n'utilises pas des select, selection et autre activate!

mais des objets et décline l'arborescence de l'objet.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub GestionFormatExcel()
 
'modifie le format et change . en , aprés l'export excel dans le fichier excel de reception pour faire arrété gg
 
    Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
 
    Dim Chemin As String
    Dim FichierExcel As String
    Dim CheminFichierExcel As String
 
    'chemin adresse pas possible avec portable
Chemin = Application.CurrentProject.Path & "\arrété\"
'fichier excel recepteur
FichierExcel = "surface_demande_bilan.xlsx"
'chemin fichier excel
CheminFichierExcel = Chemin & FichierExcel
 
     ' Initialiser les variables
    Set xlApp = CreateObject("Excel.Application"): xlApp.Visible = True
    Set xlBook = xlApp.Workbooks.Open(CheminFichierExcel): xlBook.Activate
 
  On Error GoTo ErreurFormat
 Dim R As Range
Set R = xlBook.Sheets(1).Columns("CK:DS")
 R.NumberFormat = "@"
ErreurFormat:
 
    'MsgBox ("erreurforma")
 
        On Error GoTo ErreurRemplace
 
      'remplace les . par les , dans la selection
     R.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
 
 
ErreurRemplace:
 
    'MsgBox ("erreurremplace")
 
 
End With
 
    ' Code de fermeture
    xlBook.Save
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
 
End Sub

28/05/2015, 18h10
dodo28

merci beaucoup votre solution enlève le bug.
Bonne soirée