Bonjour à tous
j'ai un problème de macro.
en fait, j'ai un classeur nommé"test.xls" dans le répertoire suivant:C:\Documents and Settings\D601292\Bureau\Suivi stock 2010
j'aimerairais importer un fichier exel se trouvant dans le répertoire suivant:C:\Documents and Settings\D601292\Bureau\Speed\fichier excel
même si celui ci soit fermé.
mon fichier à extraire s'appelle "Consomables
cependant j'ai écrit la macro suivante pour importer toutes les informations se trouvant dans le classeur "consomables"mais elle ne fonctionne pas. pourriez vous m'aidez svp?
Public Sub LireExcel()
Dim i As Integer
On Error GoTo GereErr
Dim NOMFICH As String
Var_Chemin = "I:\Documents and settings\D601292\consommables.xls"
NOMFICH = "consommables.xls"
Workbooks.Open Filename:=NOMFICH, ReadOnly:=True
Set xlBook = Workbooks(NOMFICH)
Set xlSheet = xlBook.Worksheets(1)
For i = 1 To 10
Cells(i, 1) = xlSheet.Cells(i, 1).Value
Next i
ActiveWindow.Close Savechanges:=False
xlBook.Close Savechanges:=False
Exit Sub
GereErr:
j'ai un problème de macro.
en fait, j'ai un classeur nommé"test.xls" dans le répertoire suivant:C:\Documents and Settings\D601292\Bureau\Suivi stock 2010
j'aimerairais importer un fichier exel se trouvant dans le répertoire suivant:C:\Documents and Settings\D601292\Bureau\Speed\fichier excel
même si celui ci soit fermé.
mon fichier à extraire s'appelle "Consomables
cependant j'ai écrit la macro suivante pour importer toutes les informations se trouvant dans le classeur "consomables"mais elle ne fonctionne pas. pourriez vous m'aidez svp?
Public Sub LireExcel()
Dim i As Integer
On Error GoTo GereErr
Dim NOMFICH As String
Var_Chemin = "I:\Documents and settings\D601292\consommables.xls"
NOMFICH = "consommables.xls"
Workbooks.Open Filename:=NOMFICH, ReadOnly:=True
Set xlBook = Workbooks(NOMFICH)
Set xlSheet = xlBook.Worksheets(1)
For i = 1 To 10
Cells(i, 1) = xlSheet.Cells(i, 1).Value
Next i
ActiveWindow.Close Savechanges:=False
xlBook.Close Savechanges:=False
Exit Sub
GereErr:
Dernière édition:
