J'aimerais avoir une macro qui va corriger toujours la meme chose dans 40
fichiers excel.
Pour aller plus vite, je ne veux pas une question si je l'accepte.
J'ai chercher dans Exceabo, rien de trouver.
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
Bonsoir. La macro suivante traite TOUS les fichiers contenus dans le répertoiore spécifié dan la constante Repert :
Sub test() Dim Fich As String Const Repert = "e:donneesdanielmpfe" Fich = Dir(Repert & "*.xls") Do While Fich <> "" Workbooks.Open Repert & Fich 'remplace la ligne suivante par ton traitement MsgBox Fich ActiveWorkbook.Close True Fich = Dir Loop End Sub
Cordialement. Daniel "Érico" a écrit dans le message de news:
Bonjour,
J'aimerais avoir une macro qui va corriger toujours la meme chose dans 40 fichiers excel. Pour aller plus vite, je ne veux pas une question si je l'accepte. J'ai chercher dans Exceabo, rien de trouver.
Merci
Bonsoir.
La macro suivante traite TOUS les fichiers contenus dans le répertoiore
spécifié dan la constante Repert :
Sub test()
Dim Fich As String
Const Repert = "e:donneesdanielmpfe"
Fich = Dir(Repert & "*.xls")
Do While Fich <> ""
Workbooks.Open Repert & Fich
'remplace la ligne suivante par ton traitement
MsgBox Fich
ActiveWorkbook.Close True
Fich = Dir
Loop
End Sub
Cordialement.
Daniel
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
O5RVmoPCHHA.2328@TK2MSFTNGP02.phx.gbl...
Bonjour,
J'aimerais avoir une macro qui va corriger toujours la meme chose dans 40
fichiers excel.
Pour aller plus vite, je ne veux pas une question si je l'accepte.
J'ai chercher dans Exceabo, rien de trouver.
Bonsoir. La macro suivante traite TOUS les fichiers contenus dans le répertoiore spécifié dan la constante Repert :
Sub test() Dim Fich As String Const Repert = "e:donneesdanielmpfe" Fich = Dir(Repert & "*.xls") Do While Fich <> "" Workbooks.Open Repert & Fich 'remplace la ligne suivante par ton traitement MsgBox Fich ActiveWorkbook.Close True Fich = Dir Loop End Sub
Cordialement. Daniel "Érico" a écrit dans le message de news:
Bonjour,
J'aimerais avoir une macro qui va corriger toujours la meme chose dans 40 fichiers excel. Pour aller plus vite, je ne veux pas une question si je l'accepte. J'ai chercher dans Exceabo, rien de trouver.
