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
Daniel
Bonjour. Encapsule le code de la macro dans la macro suivante :
Sub test() Dim Fichier As String, Chemin As String Fichier = Dir("e:donneesdanielmpfe*.xls") Chemin = "e:donneesdaniel" Do While Fichier <> "" Workbooks.Open Filename:=Chemin & Fichier 'code de la macro **************** Mets ton code ici ActiveWorkbook.Close Fichier = Dir Loop End Sub
Cordialement. Daniel
" Matthieu" a écrit dans le message de news: %
Bonjour,
Comment fait-on pour executer une macro sur tous les documents excels qui sont contenus dans un repertoire. Merci.
Matthieu
Bonjour.
Encapsule le code de la macro dans la macro suivante :
Sub test()
Dim Fichier As String, Chemin As String
Fichier = Dir("e:donneesdanielmpfe*.xls")
Chemin = "e:donneesdaniel"
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
'code de la macro **************** Mets ton code ici
ActiveWorkbook.Close
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
" Matthieu" <matthieu_in_hk@hotmail.com> a écrit dans le message de news:
%23QqvqF8bFHA.3808@TK2MSFTNGP14.phx.gbl...
Bonjour,
Comment fait-on pour executer une macro sur tous les documents excels qui
sont contenus dans un repertoire.
Merci.
Bonjour. Encapsule le code de la macro dans la macro suivante :
Sub test() Dim Fichier As String, Chemin As String Fichier = Dir("e:donneesdanielmpfe*.xls") Chemin = "e:donneesdaniel" Do While Fichier <> "" Workbooks.Open Filename:=Chemin & Fichier 'code de la macro **************** Mets ton code ici ActiveWorkbook.Close Fichier = Dir Loop End Sub
Cordialement. Daniel
" Matthieu" a écrit dans le message de news: %
Bonjour,
Comment fait-on pour executer une macro sur tous les documents excels qui sont contenus dans un repertoire. Merci.
