Salut à tous , j'ai un souci sur une boucle qui doit traiter un répertoire de fichier .
J'ai plusieurs question à ce sujet :
1/ comment améliorer le code ci-dessous pour que cela fonctionne pour chaque classeur du répertoire (je souhaite que celui-ci soit dynamique pour que cela soit plus facile par la suite)
2/ une fois que la boucle sera fonctionnelle, quel est le code à utiliser pour
a) ouvrir classeur xxx du repertoire
b) effectuer intruction 1 instruction 2
c ) sauvegarder fermer
Un grand merci pour votre aide si vous pouvez m'aiguiller au moins pour la boucle sans laquelle je ne peux rien faire ;(
les premiers pas VBA sont durs...
Sub boucle()
Dim Wb As Workbook
Dim fso As New FileSystemObject
Dim repertoire As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set repertoire = ThisWorkbook.Path
For Each Wb In FileSystemObject.GetFolder
End sub
note : j'ai obtenu le code sur le site mais c'était pour un chemin fixe et j'ai essayé de l'adapter en dynamique mais ...
J'ai plusieurs question à ce sujet :
1/ comment améliorer le code ci-dessous pour que cela fonctionne pour chaque classeur du répertoire (je souhaite que celui-ci soit dynamique pour que cela soit plus facile par la suite)
2/ une fois que la boucle sera fonctionnelle, quel est le code à utiliser pour
a) ouvrir classeur xxx du repertoire
b) effectuer intruction 1 instruction 2
c ) sauvegarder fermer
Un grand merci pour votre aide si vous pouvez m'aiguiller au moins pour la boucle sans laquelle je ne peux rien faire ;(
les premiers pas VBA sont durs...
Sub boucle()
Dim Wb As Workbook
Dim fso As New FileSystemObject
Dim repertoire As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set repertoire = ThisWorkbook.Path
For Each Wb In FileSystemObject.GetFolder
End sub
note : j'ai obtenu le code sur le site mais c'était pour un chemin fixe et j'ai essayé de l'adapter en dynamique mais ...