XL 2016 Changer l'encodage en UTF-8 avec Variable

Dymouille · 30 Juillet 2021

Bonjour,

j'ai un petit soucis avec mon code et je n'arrive pas à comprendre pourquoi ca plante,
j'ai des fichiers csv en masse qui ne prennent pas en compte les caractères spéciaux,
du coup je change l'encodage de ces derniers avec ce code :

VB:

Sub Encode(sPath As String, Optional SetChar$ = "UTF-8")

With CreateObject("ADODB.Stream")
    'MsgBox sPath
    .Open
    .LoadFromFile sPath 'Loads a File
    .Charset = SetChar 'sets stream encoding (UTF-8)
    .SaveToFile sPath, 2 'adSaveCreateOverWrite
    .Close
End With

End Sub

et je l'appelle comme ceci :

VB:

Encode "C:\Users\Dy\OneDrive\Extraction\" & Format(Date, "dd.mm.yy") & "\" & fichier, "UTF-8"

La variable "Fichier" contient le nom de chaque .csv que je veux convertir,
Le problème ici c'est qu'en utilisant la variable Fichier la macro n'arrive pas à ouvrir le fichier et j'ai l'erreur "3002"
alors que quand je vais écrire le nom d'un fichier csv sans passer par une variable la ca marche niquel..

VB:

Encode "C:\Users\Dy\OneDrive\Extraction\" & Format(Date, "dd.mm.yy") & "\Reference,Descriptions,Assets3011797320001.csv", "UTF-8"

La variable "Fichier" est un String.

Merci d'avance

Dranreb · 30 Juillet 2021

Bonjour.
Ajoutez peut être ça au début de la Sub Encode, pour y voir plus clair :

VB:

If Dir(sPath) = "" Then
   MsgBox "Le fichier indiqué ci après n'existe pas :" & vbLf & sPath, vbCritical, "Encode"
   Exit Sub: End If

Dymouille · 30 Juillet 2021

Hello Dranreb,

Merci pour ta réponse,
le chemin est bien correct même avec la Variable mais toujours l'erreur "3002", Impossible d'ouvrir le fichier

D.D. · 30 Juillet 2021

Hello

Question bête, mais...
La variable "fichier" contient bien
Reference,Descriptions,Assets3011797320001.csv
sans "\" au début et avec bien ".csv" à la fin ?

Dymouille · 30 Juillet 2021

Hello D.D.

Yes c'est ca !

VB:

Sub Convert(fichier As String)

Code:

Convert "Reference,Descriptions,Assets3011797320001.csv"

Dranreb · 30 Juillet 2021

Plus de chemin spécifié cette fois ?
Auriez vous ajouté devant les ChDrive "C": ChDir "C:\Users\Dy\OneDrive\Extraction\" & Format(Date, "dd.mm.yy") ?

Dymouille · 30 Juillet 2021

C'etait pas la même chose, non je n'ai pas rajouté ca !

Je vous ai mis la macro en entière, je ne pense pas que ce soit une histoire de chemin, j'ai plus l'impression que c'est le type de la variable qui bloque avec le .LoadFromFile de la methode Encode non ?

merci !

VB:

Sub Convert(fichier As String)

Dim dossier As String
Dim MonDossier As String

Application.ScreenUpdating = False

MonDossier = "C:\Users\Dy\OneDrive\Extraction\" & Format(Date, "dd.mm.yy") & "\"

'SI DOSSIER DATE DU JOUR EXISTE
    If DossierExiste(MonDossier) = True Then
    
    If Dir((MonDossier & "Format Xlsx"), vbDirectory) = "" Then 'on verifie si le dossier existe
            MkDir (MonDossier & "Format Xlsx")
    End If
    
        Workbooks.Open Filename:=MonDossier & fichier
        
              
    Encode "C:\Users\Dy\OneDrive\Extraction\" & Format(Date, "dd.mm.yy") & "\Reference,Descriptions,Assets3011797320001.csv", "UTF-8"
    
        
            'delete la ligne 2
            Rows("2:2").Select
            Selection.Delete Shift:=xlUp
    'colonne en ligne
    Application.DisplayAlerts = False 'pour eviter le msg de confirmation
    
    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Comma:=True
    'L'incrémentation
    Call Incrémentation
    
    'Appels de la bonne fonction en fonction du nom du fichier
    If Left(fichier, 31) = "Reference,Descriptions,Assets30" Then
        Call ReferenceDescriptionsAssets(fichier)
    End If
    
    If Left(fichier, 31) = "Reference,Descriptions,Handling" Then
        Call ReferenceDescriptionsHandling(fichier)
    End If
    
    If Left(fichier, 31) = "Reference,Global,General,Descri" Then
        Call ReferenceGlobalGeneralDescription(fichier)
    End If
      

    'conversion csv en xlsx
    ActiveWorkbook.SaveAs Filename:=Replace(MonDossier & "Format Xlsx\" & fichier, ".csv", ".xlsx"), FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    
    Application.DisplayAlerts = True ' on remet les alertes
              
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    
    
    End If
    

End Sub

Code:

Convert "Reference,Descriptions,Assets3011542300012.csv"
Convert "Reference,Descriptions,Assets3011797320001.csv"
Convert "Reference,Descriptions,Assets3012789200103.csv"

Dranreb · 30 Juillet 2021

Vla encore autre chose … Il est ouvert par Excel pendant que vous tentez ce Encode ???

Dymouille · 30 Juillet 2021

Oh la boulette ! Effectivement quand je le fais avant l'ouverture ca marche mieux !

Merci !

XL 2016 Changer l'encodage en UTF-8 avec Variable

Dymouille

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Dymouille

XLDnaute Nouveau

D.D.

XLDnaute Impliqué

Dymouille

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Dymouille

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Dymouille

XLDnaute Nouveau

Discussions similaires