Salut,
t'as qu'a essayer de faire ton enregistrement de ta fiche client en format .TXT comme cela :
Sub ExportCSV()
Application.DisplayAlerts = False
directorie = ActiveWorkbook.Path
ActiveWorkbook.SaveAs Filename:= _
directorie & "\Dupont.txt", FileFormat:= _
xlText, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
directorie & "\Dupont.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True
End Sub
Et apres pour le rappeller tu fais un truc du genre:
Sub ImportCSV()
directorie = ActiveWorkbook.Path
If Dir(directorie & "\Dupont.txt") = "" Then
MsgBox ("Le fichier à importer ( Dupont.txt ) n'a pas été trouvé, vérifiez" & Chr(10) & "qu'il se trouve bien dans le même répertoire que ce programme")
Exit Sub
End If
Workbooks.OpenText Filename:= _
directorie & "\Dupont.txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers _
:=True
msg = MsgBox("Attention les données présentes sur cette feuille seront supprimées", vbOKCancel, "Important !")
If msg = vbCancel Then Exit Sub
Windows("Dupont.txt").Activate
fin = Range("A65536").End(xlUp).Offset(0, 5).Address
Range("A2", fin).Select
Selection.Copy
Application.DisplayAlerts = False
ActiveWindow.Close
Windows("Monprog.xls").Activate
Sheets("Fiche").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = True
End Sub
Tou ca est a modifier biensur selon tes convenances !
Mais si ca peut t'aider ! @+