Discussion :

[lucas-18]

Bonjour,

J'ai un problème avec une cellule qui contient une date et un commentaire de cette façon : 16/05/2009 - commentaire

J'aimerais importer par access ce fichier mais j'aimerais savoir s'il est possible dans le fichier XLS d'insérer une autre colonne avec un champ date et un champ commentaire.

Merci d'avance,

[aalex_38]

Un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
'
Dim MaCell As Range, Partie1 As String, Partie2 As String
Set MaCell = Range("A1")
Partie1 = Left$(MaCell, 10)
Partie2 = Mid$(MaCell, 11)
Columns("b:b").Insert Shift:=xlToRight
Columns("b:b").Insert Shift:=xlToRight
 
Range("B1") = Partie1
Range("c1") = Partie2
 
End Sub

[mapeh]

Bonjour,

regarde du côté de Données/Convertir, et à l'étape 2 choisir "-"...

PS, si tu n'as qu'un seul Tiret dans les commentaires, bien sûr...
Et insère une colonne à droite de ta colonne d'extraction

[lucas-18]

Bonjour,

regarde du côté de Données/Convertir, et à l'étape 2 choisir "-"...

PS, si tu n'as qu'un seul Tiret dans les commentaires, bien sûr...
Et insère une colonne à droite de ta colonne d'extraction

je ne trouve pas dans la barre d'outils Convert dans Data ...

[aalex_38]

En VBA utilise texttocolumns, un exemple avec l'enregistreur de macro :

Code :

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

1
2
3
4
 Range("A1").TextToColumns Destination:=Range("b1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

[aalex_38]

Un exemple plus complet tel que je l'ai compris maintenant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macro5()
'
Dim Macell As Range
Set Macell = Range("A1")
Columns(Macell.Column + 1).Insert Shift:=xlToRight
Columns(Macell.Column + 1).Insert Shift:=xlToRight
    Macell.TextToColumns Destination:=Macell.Offset(0, 1), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub

Dans cet exemple la cellule a convertir se trouve en A1