Recuperation fichier sous Excel 2010
Bonjour à tous,
Ce code passait en Excel 2003, 2007 mais plus en 2010 ?
J'ai une quarantaine d'éditions dans mon application, chacune pouvant être exportée sous Excel.
Par un moyen arbitraire on décide que tout ce qui est cadré a droite est au format standard tout le reste du texte.
Histoire de pouvoir récupérer du '0001' et non '1' dans une cellule lors de l'importation.
Voici le code de manière schematique :
Dim tabcol(100) As long
' je renseigne le tableau tabcol a passer lors de l'importation
For i = 1 To nbcolalg
If tableauColAlg(i) <> "" Then
Select Case tableauColAlg(i)
Case "D"
tabcol(i - 1) = "1"
Case Else
tabcol(i - 1) = "2"
End Select
End If
Next i
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileName, Destination:=PosImport)
.TextFileTabDelimiter = True
.TextFileFixedColumnWidths = Array(5, 5, 5, 5)
.TextFileColumnDataTypes = tabcol
Un grand merci pour votre aide.
Bonjour,
jen 'ai pas encore essayé vba pour office 2010 mais il me semble avoir lu quelque part que les affectations de valeur impliquaient d'écrire le code de manière plus précise :
au lieu de :
tabcol(i - 1) = "1"
tabcol(i - 1).value = "1"
peut être est-ce une piste de réponse...
cordialement