Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Problème d'ouverture de fichier xls (fonction ChDir)

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

3 réponses
Avatar
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonjour,
Essaie
'--------
ChDrive "C"
ChDir "test"
Fichier = Dir("*.xls")
-------
------

--
Salutations
JJ


"Amar Lacheheb" a écrit dans le message de news:
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



Avatar
Amar Lacheheb
ça marche merci JJ
"Jacky" a écrit dans le message de news:

Bonjour,
Essaie
'--------
ChDrive "C"
ChDir "test"
Fichier = Dir("*.xls")
-------
------

--
Salutations
JJ


"Amar Lacheheb" a écrit dans le message de news:
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







Avatar
MichDenis
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" a écrit dans le message de news:
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