Problème d'ouverture de fichier xls (fonction ChDir)

Le
Amar Lacheheb
Bonjour,
Voici mon problème, j'execute la macro suivante :

Sub ListefichierXls()

Application.ScreenUpdating = False

ChDir "c:test"
Fichier = Dir("*.xls")
Do While Len(Fichier) > 0
Application.StatusBar = Fichier
Workbooks.Open Fichier
ActiveWorkbook.Worksheets(1).Activate
'Call MaMacro
Workbooks(Fichier).Close True
Fichier = Dir
Loop
Application.StatusBar = False
End Sub


cette macro doit ouvrir tout les fichiers d'un repertoire, le problème,
c'est que quelque soit le chemin que je mette dans le ChDir, il ouvre
toujours le dossier "MesDocuments" par défaut,
quelqu'un peut il m'aider à comprendre.
Merci d'avance

Amar
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #6862981
Bonjour,
Essaie
'--------
ChDrive "C"
ChDir "test"
Fichier = Dir("*.xls")
-------
------

--
Salutations
JJ


"Amar Lacheheb" g2ldaf$ceu$
Bonjour,
Voici mon problème, j'execute la macro suivante :

Sub ListefichierXls()

Application.ScreenUpdating = False

ChDir "c:test"
Fichier = Dir("*.xls")
Do While Len(Fichier) > 0
Application.StatusBar = Fichier
Workbooks.Open Fichier
ActiveWorkbook.Worksheets(1).Activate
'Call MaMacro
Workbooks(Fichier).Close True
Fichier = Dir
Loop
Application.StatusBar = False
End Sub


cette macro doit ouvrir tout les fichiers d'un repertoire, le problème,
c'est que quelque soit le chemin que je mette dans le ChDir, il ouvre
toujours le dossier "MesDocuments" par défaut,
quelqu'un peut il m'aider à comprendre.
Merci d'avance

Amar



Amar Lacheheb
Le #6864791
ça marche merci JJ
"Jacky"
Bonjour,
Essaie
'--------
ChDrive "C"
ChDir "test"
Fichier = Dir("*.xls")
-------
------

--
Salutations
JJ


"Amar Lacheheb" g2ldaf$ceu$
Bonjour,
Voici mon problème, j'execute la macro suivante :

Sub ListefichierXls()

Application.ScreenUpdating = False

ChDir "c:test"
Fichier = Dir("*.xls")
Do While Len(Fichier) > 0
Application.StatusBar = Fichier
Workbooks.Open Fichier
ActiveWorkbook.Worksheets(1).Activate
'Call MaMacro
Workbooks(Fichier).Close True
Fichier = Dir
Loop
Application.StatusBar = False
End Sub


cette macro doit ouvrir tout les fichiers d'un repertoire, le problème,
c'est que quelque soit le chemin que je mette dans le ChDir, il ouvre
toujours le dossier "MesDocuments" par défaut,
quelqu'un peut il m'aider à comprendre.
Merci d'avance

Amar







MichDenis
Le #6867271
Sub ListefichierXls()

Dim Répertoire As String
Répertoire = "c:test"
Application.ScreenUpdating = False

Fichier = Dir("c:test" & "*.xls")
Do While Len(Fichier) > 0
Application.StatusBar = Fichier
Workbooks.Open Répertoire & Fichier
ActiveWorkbook.Worksheets(1).Activate
'Call MaMacro
Workbooks(Fichier).Close True
Fichier = Dir
Loop
Application.StatusBar = False

End Sub





"Amar Lacheheb" g2ldaf$ceu$
Bonjour,
Voici mon problème, j'execute la macro suivante :

Sub ListefichierXls()

Application.ScreenUpdating = False

ChDir "c:test"
Fichier = Dir("*.xls")
Do While Len(Fichier) > 0
Application.StatusBar = Fichier
Workbooks.Open Fichier
ActiveWorkbook.Worksheets(1).Activate
'Call MaMacro
Workbooks(Fichier).Close True
Fichier = Dir
Loop
Application.StatusBar = False
End Sub


cette macro doit ouvrir tout les fichiers d'un repertoire, le problème,
c'est que quelque soit le chemin que je mette dans le ChDir, il ouvre
toujours le dossier "MesDocuments" par défaut,
quelqu'un peut il m'aider à comprendre.
Merci d'avance

Amar
Publicité
Poster une réponse
Anonyme