ouvrir un classeur a l'aide d'une macro et convertir en nombre

[eddy38]

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!

 

[bbb38]

Re : ouvrir un classeur a l'aide d'une macro et convertir en nombre

Bonsoir eddy38, le forum,
Code à insérer dans ThisWorkbook :

Option Explicit
Sub Workbook_Open()
Application.ScreenUpdating = False
' Modifier le chemin du fichier
Workbooks.Open Filename:="C:\Documents\Picking105 alcool.xls"
Windows("Picking105 alcool.xls").Activate
Call selection_et_convertion_extraction_pk_alcool_I
Application.ScreenUpdating = True
End Sub

Supprimes les deux premières lignes de ton code.
Cordialement,
Bernard

 

[eddy38]

Re : ouvrir un classeur a l'aide d'une macro et convertir en nombre

Merci sa marche enfin !