Conversion de fichiers Excel

Bonjour Philippe,

merci pour ce fichier.

Pour le rendre compatible avec un Excel 64 bits :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#If Win64 Then  Private Declare PtrSafe Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
 
  Private Declare PtrSafe Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _
  (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
 
  Private Declare PtrSafe Function FindNextFile Lib "kernel32" Alias "FindNextFileA" _
  (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
 
  Private Declare PtrSafe Function lstrlen Lib "kernel32" Alias "lstrlenW" (ByVal lpString As LongPtr) As Long
 
  Private Declare PtrSafe Function PathMatchSpec Lib "shlwapi" Alias "PathMatchSpecW" _
  (ByVal pszFileParam As LongPtr, ByVal pszSpec As LongPtr) As Long
#Else
  Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
 
  Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _
  (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
 
  Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" _
  (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
 
  Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenW" (ByVal lpString As Long) As Long
 
  Private Declare Function PathMatchSpec Lib "shlwapi" Alias "PathMatchSpecW" _
  (ByVal pszFileParam As Long, ByVal pszSpec As Long) As Long
#End If

Pour éviter les message invitant l'utilisateur à ouvrir le fichier en lecture seule on peut passer dans les différents Workbooks.Open l'argument IgnoreReadOnlyRecommended à True.

Non testé mais il me semble qu'en fonction du type d'extension du fichier converti il serait peut-être plus rapide d'utiliser les méthodes de l'objet File System Object (CopyFile ou Copy).

Tu pourrais peut-être également enrichir les formats d'export en proposant le format pdf si cela te semble utile.

A+