Voici le code qui fonctionne :
Private Sub cmdImporter_Click()
If fichierImporter <> "" Then
LireCSV fichierImporter, 0, 1, 2, 37, 43
parcoursDonnees
Me.Hide
Else
MsgBox "Vous devez sélectionner un fichier pour pouvoir l'importer !", vbExclamation, "Erreur de fichier"
End If
End Sub
Private Sub cmdParcourir_Click()
ChDir ThisWorkbook.Path
fichierImporter = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv" )
txtChemin.Value = Dir(fichierImporter)
End Sub
Et celui qui ne fonctionne pas :
Private Sub cmdImporterS_Click()
If fichierImporterS <> "" Then
LireCSV fichierImporterS, 0, 1, 25, 32
parcoursDonneesSorties
Me.Hide
Else
MsgBox "Vous devez sélectionner un fichier pour pouvoir l'importer !", vbExclamation, "Erreur de fichier"
End If
End Sub
Private Sub cmdParcourir_Click()
ChDir ThisWorkbook.Path
fichierImporterS = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv" )
txtChemin.Value = Dir(fichierImporterS)
End Sub
Il y a en effet un argument de moin a extraire dans le second code (celui qui ne fonctionne pas) car se sont des colonnes à extraire d'un fichier CSV et dans le 2ème cas j'ai tout simplement besoin d'une colonne de moins.