Salut , Conversion de fichiers Excel à la volée, par exemple : csv,txt en xls,xlsx
à voir ici : Conversion de fichiers Excel
Salut , Conversion de fichiers Excel à la volée, par exemple : csv,txt en xls,xlsx
à voir ici : Conversion de fichiers Excel
Bonjour Philippe,
merci pour ce fichier.
Pour le rendre compatible avec un Excel 64 bits :
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.
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
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
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+
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager