Extraction de fic.

[jo]

Bonjour le forum !
Est ce que qqn pourrait m'aider sur l'extraction de fic. (données brutes=ss format) dans un rep. courant et le mettre sur mon class. Xls avec le quadrillage / colonne?

Merci d'avance!

Expls:

dans un fic "nomfic" :
j'ai les infos suivants :
A B C D
1 3 2 0
2 4 0 12
je voudrai avoir que les infos suivant avc le quadrillage sur
mon class xls:

B D
3 0
4 12

 

[Zon]

Salut,

A tester si j'ai bien compris tu veux uniquement les colonnes paires, à coller dans un module si c'est pas que tu veux reviens nous voir.

Const NomFimporT As String = "telechargement" 'le nom de ta feuille où tu vas récupérer tes données
Const NomF1 As String = "Intermédiaire" 'nom ou tu mets les données
Dim T
Sub Princ()
Application.StatusBar = "Patience, importation en cours"
Dim I As Byte
Ouverture
If IsArray(T) Then
With Sheets(NomF1)
.[A1].Resize(UBound(T, 1), UBound(T, 2)) = T
For I = LBound(T, 2) To UBound(T, 2) Step 2
.Columns(I).Delete
Next I
End with
End If
Application.StatusBar = ""
End Sub
Private Function Ouverture()
Dim Clas As Workbook
On Error Resume Next
Application.ScreenUpdating = False
Set Clas = Workbooks.Open(OuvP)
With Clas
T = .Worksheets(NomFimporT).UsedRange
.Close 0
End With
On Error GoTo 0
End Function
Private Function OuvP()
OuvP = Application.GetOpenFilename("Fichiers Excel (*.xls),*.xls")
End Function


A+++