Je débute en macro et je souhaitais faire une macro qui modifirait tous les
fichiers d'un meme répertoire, par exemple pour remplacer sur un onglet
défini ou sur tout les onglets un mot par un autre ex novembre par decembre.
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. Essaie la macro suivante en changeant le chemin.
Sub test() Dim Fich As String, Chemin As String Chemin = "e:donneesdaniel" Fich = Dir(Chemin & "*.xls") Do While Fich <> "" Workbooks.Open Chemin & Fich MsgBox ActiveWorkbook.Name Sheets("Feuil1").Select Cells.Replace "novembre", "décembre" ActiveWorkbook.Close True Fich = Dir Loop End Sub
Cordialement. Daniel "Macro sur répertoire et non sur fichiers" <Macro sur répertoire et non sur a écrit dans le message de news:
Bonjour à tous,
Je débute en macro et je souhaitais faire une macro qui modifirait tous les fichiers d'un meme répertoire, par exemple pour remplacer sur un onglet défini ou sur tout les onglets un mot par un autre ex novembre par decembre.
Merci pour votre réponse.
Alain
Bonjour.
Essaie la macro suivante en changeant le chemin.
Sub test()
Dim Fich As String, Chemin As String
Chemin = "e:donneesdaniel"
Fich = Dir(Chemin & "*.xls")
Do While Fich <> ""
Workbooks.Open Chemin & Fich
MsgBox ActiveWorkbook.Name
Sheets("Feuil1").Select
Cells.Replace "novembre", "décembre"
ActiveWorkbook.Close True
Fich = Dir
Loop
End Sub
Cordialement.
Daniel
"Macro sur répertoire et non sur fichiers" <Macro sur répertoire et non sur
fichiers@discussions.microsoft.com> a écrit dans le message de news:
BB777ABC-64BA-4520-948B-68DC6F1CEF83@microsoft.com...
Bonjour à tous,
Je débute en macro et je souhaitais faire une macro qui modifirait tous
les
fichiers d'un meme répertoire, par exemple pour remplacer sur un onglet
défini ou sur tout les onglets un mot par un autre ex novembre par
decembre.
Bonjour. Essaie la macro suivante en changeant le chemin.
Sub test() Dim Fich As String, Chemin As String Chemin = "e:donneesdaniel" Fich = Dir(Chemin & "*.xls") Do While Fich <> "" Workbooks.Open Chemin & Fich MsgBox ActiveWorkbook.Name Sheets("Feuil1").Select Cells.Replace "novembre", "décembre" ActiveWorkbook.Close True Fich = Dir Loop End Sub
Cordialement. Daniel "Macro sur répertoire et non sur fichiers" <Macro sur répertoire et non sur a écrit dans le message de news:
Bonjour à tous,
Je débute en macro et je souhaitais faire une macro qui modifirait tous les fichiers d'un meme répertoire, par exemple pour remplacer sur un onglet défini ou sur tout les onglets un mot par un autre ex novembre par decembre.
