bonjour,
je cherche a l'aide d'une macro a ouvrir un classeur nommé "picking 105 alcool" et a convertir en nombre le tableau qu'il contient? j'ai essayer plusieurs code récupéré sur le net, j'arrive à convertir mon fichier mais pas a l'ouvrir ! je crac ! voila mon code:
Sub selection_et_convertion_extraction_pk_alcool_I()
' selection_et_convertion_extraction_pk_alcool_I Macro
Windows("Picking105 alcool.xls").Activate
Sheets("Picking105 alcool").Select
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("D").Select
Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("F:F").Select
Selection.TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
End Sub
merci d'avance pour votre aide!
je cherche a l'aide d'une macro a ouvrir un classeur nommé "picking 105 alcool" et a convertir en nombre le tableau qu'il contient? j'ai essayer plusieurs code récupéré sur le net, j'arrive à convertir mon fichier mais pas a l'ouvrir ! je crac ! voila mon code:
Sub selection_et_convertion_extraction_pk_alcool_I()
' selection_et_convertion_extraction_pk_alcool_I Macro
Windows("Picking105 alcool.xls").Activate
Sheets("Picking105 alcool").Select
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("D").Select
Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("F:F").Select
Selection.TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
End Sub
merci d'avance pour votre aide!