• Initiateur de la discussion Initiateur de la discussion taty
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

taty

XLDnaute Nouveau
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:
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour