A
Amaury
Guest
Vous allez surement me prendre pour un nul mais j'arrive pas à faire marcher ce bout de macro....
Range("M3").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", subaddress:=Sheets(2).Range("M3").Address(external:=True)
ActiveWindow.Visible = True
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 4), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True
Enfait il me dit qu'il y a une erreur sur RAnge comment lui demander d'aller chercher l'adresse qui est dans cette cellule, et après d'utiliser le meme fichier pour qu'il le convertisse. (JE sais c'est éxagérer mais aussi qu'il l'enregistre totu seul en xls merci de votre aide....
Range("M3").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", subaddress:=Sheets(2).Range("M3").Address(external:=True)
ActiveWindow.Visible = True
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 4), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True
Enfait il me dit qu'il y a une erreur sur RAnge comment lui demander d'aller chercher l'adresse qui est dans cette cellule, et après d'utiliser le meme fichier pour qu'il le convertisse. (JE sais c'est éxagérer mais aussi qu'il l'enregistre totu seul en xls merci de votre aide....