Discussion :

[ChChatou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

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.

[Invité]

Bonjour,

Un exemple à adapter:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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).

[ChChatou]

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