Import de bases de données .CSV ou XSLX ?

Question

Petite question : La vitesse d'ouverture d'un document .csv est elle plus rapide qu'un fichier .xslx .. ... Notamment lorsqu'on exécute cette ouverture via une macro ? Pour le moment je travaille avec des fichier .csv, mais ça devient pénible car les délimitations changent selon l'origine des bases de données (et même lorsque j'enregistre en .csv sous excel avec une délimitation particulière). Donc je commence à penser que tout faire avec du .xslx pourrait s'avérer plus pratique, mais ça ne doit pas impacter la vitesse d'ouverture des documents. Bonne soirée ...

Invité · Accepted Answer

Pour moi l'utilisation de fichiers ".xlsx" est mieux, vous pourrez utiliser la connexion ADODB (pas besoin d'ouvrir le fichier) @+...

Invité · Answer

Tout développement n'est pas forcément simple... c'est un métier Mais quand tu as pris l'habitude d'utiliser ADODB ça roule tout seul ou presque Variables publique pour la connexion ADODB ' Variables pour Connexion ADODB Public Cnn As Object, Rs As Object Public sConn As String La procédure de connexion Sub Connect_xls(sPathBdD As String) Set Cnn = CreateObject("ADODB.Connection") Cnn.provider = "MSDASQL" Cnn.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _ "DBQ=" & sPathBdD & "; ReadOnly=False;" End Sub L'ouverture des enregistrements Sub OuvrirRs(sPathBdD As String, sTable As String, Optional sCrit As String, Optional vCrit As String) Dim sRqt As String, sCond As String, Sql As String ' En cas d'erreur On Error GoTo Erreur_Proc FlgErrCon = False ' Connecter la BdD Call Connect_xls(sPathBdD) ' En cas d'erreur message d'information à l'utilisateur If FlgErrCon = True Then MsgBox "Impossible de se connecter à la base de données !", vbCritical, "OUPS..." Cnn.Close: Set Cnn = Nothing End End If ' Préparer la requête If InStr(1, sTable, " ") &gt; 0 Then Sql = "SELECT * FROM &#91;'" & sTable & "$'&#93;" Else Sql = "SELECT * FROM &#91;" & sTable & "$&#93;" End If ' Vérifier si critère présent If Not IsMissing(sCrit) Then ' Définir la condition sCond = "WHERE " & sCrit & "='" & vCrit & "';" ' Créer la syntaxe de la requête sRqt = Sql & " " & sCond End If ' Créer un nouveau Recordset et l'ouvrir Set Rs = CreateObject("ADODB.Recordset") Rs.Open sRqt, Cnn, CursorType Exit Sub Erreur_Proc: LogError Err, "Sub OuvrirRs(sPathBdD=" & sPathBdD & ", sTable=" & sTable & ", sCrit=" & sCrit & ", vCrit=" & vCrit & ")" FlgErrCon = True ' Mettre le FLAG d'erreur de connexion à vrai Resume Next End Sub L'appel de la procédure (exemple) ' Ouvrir le Recordset pour l'équipe Call OuvrirRs(sPath & sBdD, "PERSONNEL", "NOM_Prénom", NomChef) J'espère que cela pourra vous aiguiller @+...