' ------------ sous module d'ouverture de fichier traitant séparément les
fichiers de type 'CSV'
Dim wb As Workbook
With Application
.ScreenUpdating = False
.DisplayAlerts = False
Application.Dialogs(xlDialogOpen).Show
fic = ActiveWorkbook.Name
ext = Right(fic, 3)
' ---------- ouverture fichier de type csv ----------------------
If ext = "csv" Then
Set wb = .Workbooks.Open(fic)
wb.Sheets(1).Columns(1).TextToColumns Range("A1"),
xlTextQualifierDoubleQuote, , False, , , , , True, ";", Array(1, 4)
End If
' ---------- fin de l'ouverture fichier de type csv ----------------------
.ScreenUpdating = True
.DisplayAlerts = False
End With
' ------------ fin du sous module d'ouverture de fichier
Et voilà si cela peut servir à quelqu'un.
Et rendons à César ce qui appartient à Jules
adapté de DJ SKOT (---.w80-8.abo.wanadoo.fr)
http://www.excel-downloads.com/html/French/forum/messages/1_67502_67502.htm
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
PHIL
quelle serait le code si je fait un export de ma feuille 2 EN XLS VERS DU csv.
MERCI
' ------------ sous module d'ouverture de fichier traitant séparément les fichiers de type 'CSV' Dim wb As Workbook With Application .ScreenUpdating = False .DisplayAlerts = False Application.Dialogs(xlDialogOpen).Show fic = ActiveWorkbook.Name ext = Right(fic, 3) ' ---------- ouverture fichier de type csv ---------------------- If ext = "csv" Then Set wb = .Workbooks.Open(fic) wb.Sheets(1).Columns(1).TextToColumns Range("A1"), xlTextQualifierDoubleQuote, , False, , , , , True, ";", Array(1, 4) End If ' ---------- fin de l'ouverture fichier de type csv ---------------------- .ScreenUpdating = True .DisplayAlerts = False End With ' ------------ fin du sous module d'ouverture de fichier
Et voilà si cela peut servir à quelqu'un. Et rendons à César ce qui appartient à Jules adapté de DJ SKOT (---.w80-8.abo.wanadoo.fr) http://www.excel-downloads.com/html/French/forum/messages/1_67502_67502.htm
Bon courage à toutes et à tous Denis le breton
quelle serait le code si je fait un export de ma feuille 2 EN XLS VERS DU csv.
MERCI
' ------------ sous module d'ouverture de fichier traitant séparément les
fichiers de type 'CSV'
Dim wb As Workbook
With Application
.ScreenUpdating = False
.DisplayAlerts = False
Application.Dialogs(xlDialogOpen).Show
fic = ActiveWorkbook.Name
ext = Right(fic, 3)
' ---------- ouverture fichier de type csv ----------------------
If ext = "csv" Then
Set wb = .Workbooks.Open(fic)
wb.Sheets(1).Columns(1).TextToColumns Range("A1"),
xlTextQualifierDoubleQuote, , False, , , , , True, ";", Array(1, 4)
End If
' ---------- fin de l'ouverture fichier de type csv ----------------------
.ScreenUpdating = True
.DisplayAlerts = False
End With
' ------------ fin du sous module d'ouverture de fichier
Et voilà si cela peut servir à quelqu'un.
Et rendons à César ce qui appartient à Jules
adapté de DJ SKOT (---.w80-8.abo.wanadoo.fr)
http://www.excel-downloads.com/html/French/forum/messages/1_67502_67502.htm
quelle serait le code si je fait un export de ma feuille 2 EN XLS VERS DU csv.
MERCI
' ------------ sous module d'ouverture de fichier traitant séparément les fichiers de type 'CSV' Dim wb As Workbook With Application .ScreenUpdating = False .DisplayAlerts = False Application.Dialogs(xlDialogOpen).Show fic = ActiveWorkbook.Name ext = Right(fic, 3) ' ---------- ouverture fichier de type csv ---------------------- If ext = "csv" Then Set wb = .Workbooks.Open(fic) wb.Sheets(1).Columns(1).TextToColumns Range("A1"), xlTextQualifierDoubleQuote, , False, , , , , True, ";", Array(1, 4) End If ' ---------- fin de l'ouverture fichier de type csv ---------------------- .ScreenUpdating = True .DisplayAlerts = False End With ' ------------ fin du sous module d'ouverture de fichier
Et voilà si cela peut servir à quelqu'un. Et rendons à César ce qui appartient à Jules adapté de DJ SKOT (---.w80-8.abo.wanadoo.fr) http://www.excel-downloads.com/html/French/forum/messages/1_67502_67502.htm