Optimisation de macro : fichiers trop volumineux
Fermé
cletess
Messages postés
38
Date d'inscription
jeudi 10 janvier 2013
Statut
Membre
Dernière intervention
5 avril 2018
-
28 mars 2018 à 16:20
cletess Messages postés 38 Date d'inscription jeudi 10 janvier 2013 Statut Membre Dernière intervention 5 avril 2018 - 29 mars 2018 à 11:58
cletess Messages postés 38 Date d'inscription jeudi 10 janvier 2013 Statut Membre Dernière intervention 5 avril 2018 - 29 mars 2018 à 11:58
A voir également:
- Optimisation de macro : fichiers trop volumineux
- Wetransfer gratuit fichiers lourd - Guide
- WeTransfer - Télécharger - Téléchargement & Transfert
- Macro logiciel - Télécharger - Organisation
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
- Traduire un pdf volumineux gratuitement - Télécharger - Traduction
1 réponse
yg_be
Messages postés
21304
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 325
28 mars 2018 à 21:06
28 mars 2018 à 21:06
bonsoir,
pour commencer, pour clarifier, au lieu de:
je suggère:
pour commencer, pour clarifier, au lieu de:
Do While strFile <> ""
Set Wb = Workbooks.Open(strFile)
Set fsource = Wb.Sheets(1)
sval = fsource.Cells(Rows.Count, 1).End(xlUp)
fdest.Cells(dlig, 9) = fsource.Cells(2, 1)
fdest.Cells(dlig, 10) = sval
Wb.Close
dlig = dlig + 1
Exit Do
Loop
je suggère:
Set Wb = Workbooks.Open(strFile)
Set fsource = Wb.Sheets(1)
sval = fsource.Cells(Rows.Count, 1).End(xlUp)
fdest.Cells(dlig, 9) = fsource.Cells(2, 1)
fdest.Cells(dlig, 10) = sval
Wb.Close
dlig = dlig + 1
29 mars 2018 à 09:23
ça simplifie un peu la chose, en effet :) Le Do While n'était pas nécessaire ici ?
Par contre, il me semble que la macro rencontre toujours une difficulté pour les fichiers les plus longs pour lesquels elle ne prend pas la dernière valeur de la colonne A mais la valeur A1 à la place .. Y aurait-il un moyen pour contourner/éviter ceci ?
Merci et une très bonne journée,
CL
29 mars 2018 à 11:58
Y aurait-il un quelconque moyen de contourner cette limite sans diviser les fichiers csv ?