Conversion fichier

Résolu
CALI -  
 CALI -
bonjour,

Comment convertir rapidement un fichier CSV en XLS sans passer par données, convertir, etc...........

Par avance, merci pour vos conseils.

Cordialement,
A voir également:

4 réponses

Réponse 1 / 4
Goldister Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   2
 
Salut,
Le document sur le lien ci-dessous pourra résoudre le problème
http://eduterre.ens-lyon.fr/formations/formaterre/formaterre-2013/construire-et-personnaliser-des-activites-pratiques-grace-au-generateur-de-klm-jamstec/conversion-cvs-xls.pdf
0
CALI
 
bonjour,

Comme je le stipule dans mon message, je voudrais éviter de passer par données, convertir, etc............ et le lien auquel vous faites référence est la même chose.

Avez vous une autre piste peut-être par VBA ou autre.

Merci
0
Goldister Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   2
 
Il existe un site pour convertir les fichiers excel : https://convertio.co/fr/xls-csv/
0
Réponse 2 / 4
Maurice
 
Bonjour
tu peux aussi faire une macro
exemple a mettre dans un module 
Private Sub ChoixFicCsv()
Dim dossier As FileDialog
ChoixChemin = ActiveWorkbook.Path & Application.PathSeparator
   Set dossier = Application.FileDialog(msoFileDialogFilePicker)
      With dossier
         .AllowMultiSelect = False
         .InitialFileName = ChoixChemin
         .Title = "Choix d'un fichier CSV"
         .Filters.Clear
         .Filters.Add "Fichier Csv ", "*.csv", 1
            If .Show = -1 Then
               Chemin = .SelectedItems(1)
               LireTxt Chemin
            End If
      End With
   Set dossier = Nothing
End Sub

Private Sub LireTxt(NomFichier)
Dim Ar() As String
   With Application
      .ScreenUpdating = False
      .EnableEvents = False
      .Calculation = xlManual
   End With
Feuil1.Select
Cells.Select
Selection.ClearContents
'Sep = vbTab
'Sep = "|"
'Sep = ";"
Sep = ","
Lig = 1
' -----------------------------------------
    Open NomFichier For Input As #1
        Do While Not EOF(1)
            Line Input #1, Chaine
               Ar = Split(Chaine, Sep)
               Col = 1
                  For X = LBound(Ar) To UBound(Ar)
                     Cells(Lig, Col) = Ar(X)
                     Col = Col + 1
                  Next
            Lig = Lig + 1
        Loop
    Close #1
' -----------------------------------------
   With Application
      .ScreenUpdating = True
      .Calculation = xlCalculationAutomatic
      .EnableEvents = True
      .CutCopyMode = False
      .Goto [A1], True
   End With
End Sub

A+
Maurice
0
Réponse 3 / 4
CALI
 
merci
0
Réponse 4 / 4
CALI
 
merci encore une fois
0