Bonsoir à tous

J'ai télécharger une mini application qui me permettait de fusionner des fichiers excel : http://excel.developpez.com/telechar...t-d-un-dossier.

Cette application marche sur mon poste (Excel 32 bits).

J'ai voulu l’essayer sur un autre poste et je me suis rendu compte que c'est excel une version de 64 bit.
et j'ai une erreur qui est indiquée au niveau de ce code : (malheureusement j'ai pas pu copier le code erreur, la machine a été déplacé !)

Code vba : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
 
Private Declare Function QueryPerformanceCounter Lib "kernel32" (X As Currency) As Boolean
Private Declare Function QueryPerformanceFrequency Lib "kernel32" (X As Currency) As Boolean
Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _(ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long

Je me demandais (novice en VBA !) si il n'y avait pas un moyen de l'adapter en fonction de la version d'excel ?

Merci à tous