Ouverture fichier sur macro excel qui supprim
Fermé
slittle
Messages postés
1
Date d'inscription
mardi 15 avril 2008
Statut
Membre
Dernière intervention
15 avril 2008
-
15 avril 2008 à 22:38
cbauf Messages postés 4299 Date d'inscription lundi 31 mars 2008 Statut Contributeur Dernière intervention 27 septembre 2024 - 16 avril 2008 à 04:56
cbauf Messages postés 4299 Date d'inscription lundi 31 mars 2008 Statut Contributeur Dernière intervention 27 septembre 2024 - 16 avril 2008 à 04:56
A voir également:
- Ouverture fichier sur macro excel qui supprim
- Fichier rar - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Fichier host - Guide
- Comment ouvrir un fichier epub ? - Guide
1 réponse
cbauf
Messages postés
4299
Date d'inscription
lundi 31 mars 2008
Statut
Contributeur
Dernière intervention
27 septembre 2024
786
16 avril 2008 à 04:56
16 avril 2008 à 04:56
Bonjours
"C:\Documents and Settings\xxx\Mes documents\xxx\ccm chat.txt"
est le fichiers (pour moi)
Al'enregistement de macro
, a l'option j'ai cliqué délimité
et mis comme séparateur une tabulation
/!\ la macro ci-dessous ouvre un nouveau classeur xls nommé : ccm chat.txt
Sub ouvrir_fichier()
'
' ouvrir_fichier Macro
' Macro enregistrée le 16.04.2008 par CH10
'
'
Workbooks.OpenText Filename:= _
"fichier.txt", Origin _
:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1)End Sub
"C:\Documents and Settings\xxx\Mes documents\xxx\ccm chat.txt"
est le fichiers (pour moi)
Al'enregistement de macro
, a l'option j'ai cliqué délimité
et mis comme séparateur une tabulation
/!\ la macro ci-dessous ouvre un nouveau classeur xls nommé : ccm chat.txt
Sub ouvrir_fichier()
'
' ouvrir_fichier Macro
' Macro enregistrée le 16.04.2008 par CH10
'
'
Workbooks.OpenText Filename:= _
"fichier.txt", Origin _
:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1)End Sub