Erreur d'exécution 9 à l'ouverture de la macro

[Evinrude]

re-bonjour
je viens de créer une macro qui consiste à importer un fichier texte et mettre en forme la première colonne qui était des adresses mail (XXX.YYY@FFF.fr) transformées en nom et prénom et mettre la première colonne avec une largeur de 30. Qd j'active ma macro j'ai ce message d'erreur 9 et la mise en forme de la première colonne ne marche qu'à partir de A5 !

QQ a peut-être la solution vous les experts ?

ci-dessous le code enregistré avec la smiley ou ça semble clocher !

Sub test()
Application.ScreenUpdating = False
fichier = Application.GetOpenFilename("Fichiers Txt,*.txt")
If Not fichier = False Then
Workbooks.OpenText Filename:=fichier, DataType:=xlDelimited, tab:=True
Selection.CurrentRegion.Copy
Windows(fichier).Activate 😡
Range("A3").Select
Selection.ColumnWidth = 30
ActiveSheet.Paste
End If
Dim c As Range
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
c.Value = Split(c.Value, "@")(0)
Columns("A:A").Select
Selection.Replace What:=".", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Next c
End Sub

 

[Compte Supprimé 979]

Re : Erreur d'exécution 9 à l'ouverture de la macro

Salut Evinrude,

Essaye plutôt ce code

Sub test()
Dim c As Range
Application.ScreenUpdating = False
fichier = Application.GetOpenFilename("Fichiers Txt,*.txt")
If Not fichier = False Then
  Workbooks.OpenText Filename:=fichier, DataType:=xlDelimited, Tab:=True
  Selection.CurrentRegion.Copy
  ThisWorkbook.Activate
  Range("A3").ColumnWidth = 30
  ActiveSheet.Paste
End If
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
  c.Value = Split(c.Value, "@")(0)
  Columns("A:A").Select
  Selection.Replace What:=".", Replacement:=" ", LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=False
Next c
End Sub

"Windows(fichier).Activate" est remplacé par "ThisWorkbook.Activate"

A+

 

[Evinrude]

Re : Erreur d'exécution 9 à l'ouverture de la macro

Merci !!!!!!!!!!!!!!!!!!!!!!!!!!!!!! et bonne soirée