Détection de code dans un classeur

Bonjour,
je suis en train de réaliser une macro qui permet de convertir des fichiers Excel de format 2003 (*.xls) en format 2010 (*.xlsx).
J'utilise les fonctions 'FileSystemObject' pour parcourir l'arborescence d'un répertoire et détecter les sous-répertoires et les fichiers Excel.

Code:

---

1 2	Set FSO = CreateObject("Scripting.FileSystemObject") Set DossierSource = FSO.GetFolder(NomDossierSource)

---

Je récupère ainsi le type de fichier, la taille, la date de dernière modification etc..

Ma question concerne la sauvegarde au format Excel 2010:
est-il possible de détecter si un fichier Excel 2003 contient des macros ou pas pour savoir si je peux le convertir en Excel 2010 en .xlsx ou en .xlsm, pour ne pas perdre les macros éventuellement attachées?

D'avance merci

Salut,

il est possible de passer en revue l'ensemble des modules d'un fichier Access/Excel.

Tu peux regarder le code proposé dans ce fil
http://www.developpez.net/forums/d67...s-base-access/

Il faudra l'adapter pour créer une fonction booléenne qui retournera si oui ou non du code existe dans le fichier.

Bonjour,

Un exemple à adapter:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Option Explicit   Private Sub Test() Debug.Print (WbkHasCode(ActiveWorkbook)) End Sub   Private Function WbkHasCode(wbk As Workbook) As Boolean   Dim VBComp As VBComponent   WbkHasCode = False   For Each VBComp In wbk.VBProject.VBComponents If VBComp.Type = vbext_ct_StdModule Then WbkHasCode = True Exit Function End If Next   End Function

---

Nécassite d'avoir activer la référence Microsoft Visual Basic for Applications Extensibility 5.3.
Plus d'informations sur http://silkyroad.developpez.com/VBA/VisualBasicEditor/.

Revoir la fonction si tu cherches également du code dans les autres objets ou si tu ne souhaites pas ouvrir les classeurs (dans ce cas la méthode de jpcheck est plus intéressante).

Bonsoir,
merci pour vos réponses, je vais tester ces différentes pistes
A bientôt :lol: