Sub Auto_Open()
Dim NomFicher(101) As String
Dim CdoMessage As CDO.Message
Dim FichiersChoisis As String
Dim remplace As String
remplace = ".txt"
FichiersChoisis = ""
FichiersChoisis = Application.GetOpenFilename("Fichier Text (*.txt),*.txt")
If FichiersChoisis <> "" Then
'Ouverture du fichier text
Workbooks.OpenText Filename:= _
FichiersChoisis, _
Origin:=xlWindows, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:= _
xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, _
Semicolon:=True, _
Comma:=False, _
Space:=False, _
Other:=False
' On enlève l'adresse complète du fichier et on garde son nom
FichiersChoisis = Mid(FichiersChoisis, InStrRev(FichiersChoisis, "") + 1)
'On active le classeur
Windows(FichiersChoisis).Activate
'On supprime le *.txt pour pouvoir sélectionne la feuille
FichiersChoisis = Replace(FichiersChoisis, remplace, "")
Sheets(FichiersChoisis).Select
'On sélèctionne les parties du tableaux qui nous intéresse
Nomfichier = Range("A1:AM10000").Value
'On sélèctionne le dossier ou l'on veux déplacer notre ficher .txt
Windows("NomduFichier.xls").Activate
'On remplace
Sheets("Releves").Range("B17:AN10000").Value = Nomfichier
End If
End Sub
Je travail sous VBA excel. Simplement j'ai programme qui fonctionne mais qui ne me permet par de choisir le nom du fichier que je veux traiter. Et en Plus je suis obliger d'ouvrir mon fichier.csv avant d'ouvri mon programme.