Discussion :

[dodo28]

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

[marot_r]

Bonjour,

J'ajouterai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[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 ","

[dodo28]

Merci beaucoup pour vos réponse. Ca marche.

[Invité]

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!

[dodo28]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value

ne marche pas .

l'erreur est sur cette partie du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

[Invité]

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

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

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

[dodo28]

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