Discussion :

[oliver75]

Bonjour,

je cherche à extraire d'un fichier excel uniquement les information relative à la colonne A et celles des cellules C3 et D3.

Ci-dessous le code que j'ai mis en place.
Je parviens à ouvrir le fichier mais pas les zones qui m'interessent

Quelqu'un peut-il m'aider pour extraire de ce fichier uniquemement la colonne A et les info des cellules C3 et D3

Par avance merci.

Olivier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub createnewworkbook()
Dim newwb As Workbook
 
Set newwb = Workbooks.Add("C:\Olivier\controle benchmarké\EVLSAV.xls")
 
newwb.Title = "2007 evlsav"
newwb.SaveAs "eurovl.xls"
 
End sub

[ouskel'n'or]

Pour lire la colonne A, je te propose ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub createnewworkbook()
Dim newwb As Workbook
Dim fl As Worksheet
Dim Cell As Range
    Set newwb = Workbooks.Add("C:\Olivier\controle benchmarké\EVLSAV.xls")
    Set fl = newwb.Worksheets("Feuil1")
    For Each Cell In fl.Range("A:A")
        MsgBox Cell.Value
    Next
'newwb.Title = "2007 evlsav"
'newwb.SaveAs "eurovl.xls"
End Sub

Tu sauras adapter ?