Bonjour,

j'ouvre ce sujet faute d'avoir trouvé une solution par moi-même.

Je débute en macro excel et je souhaitais automatiser une action manuelle.

En pratique :
- dans un classeur excel 2010, j'ai deux colonnes J et K avec des dates de la façon suivante
colonne J colonne K
08/août./2017 10:25 10/août./2017 15:13
Mon objectif est d'extraire le numéro du mois dans une autre colonne.
Pour cela, je remplace par l'outil recherche/remplace (ctrl+f) "./" en "/".
Cette action marche très bien, car le "août./" devient "août/" et est converti automatiquement en 08. (j’extrais par la suite ce mois par une autre fonction)

J'ai enregistré cette action manuelle dans une macro...et là c'est le drame.
Via la macro l'action de remplacement marche bien, mais la valeur dans le cellule reste à "août" et non "08".
Aprés chercher sur internet, je pensais que la solution était de faire un convertir en format JMA des cellules.
Manuellement c'est Ok, mais toujours KO via une macro.

Voici la macro.
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
Sub MAJ_MOIS()
'
' MAJ_MOIS Macro
'
 
'
    Columns("J:K").Select
    Range("J4").Activate
    Selection.Replace What:="./", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Columns("K:K").Select
    Range("K4").Activate
 
  'converstion JMA  
        ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    Range("J6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.TextToColumns Destination:=Range("J6"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True
    Range("K6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.TextToColumns Destination:=Range("K6"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True
 
 
End Sub

Merci d'avance pour votre aide.
Sylvain