Améliorer la rapidité macro - ouverture fichiers

Question

J'ai un code ci-dessous et j'aimerais en améliorer sa vitesse. Est-il possible d'aller chercher des données dans d'autres fichiers sans ouvrir les fichier s ? Dans ma macro que j'ai produit j'ouvre les fichiers Excel mais comme j'en ai beaucoup la macro est très longue à s’exécuter En vous remerciant pour votre aide Sub MAJ() Dim wkA As Workbook, wkB As Workbook Dim chemin As String, fichier As String Dim j As Long Application.ScreenUpdating = False Dim i Dim nom As String Range("A3:A130").Select Selection.ClearContents Range("k3:AB130").Select Selection.ClearContents i = 1 '--------XXXXXXXX nom = Dir("S:xxxxxxxxxxxx\*.xlsb") While nom &lt;&gt; "" Range("A2").Offset(i, 0).Value = nom nom = Dir chemin = "S:xxxxxx" fichier = Range("A" & i + 2).Value Workbooks.Open chemin & fichier Sheets("Données").Activate Range("AI7:AZ7").Select Selection.Copy Windows("Analyses des sondes.xlsm").Activate Range("k2").Offset(i, 0).Select ActiveSheet.Paste Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Workbooks(fichier).Activate Sheets("Données").Activate Range("B" & Rows.Count).End(xlUp).Select Selection.Copy Windows("Analyses des sondes.xlsm").Activate Range("b2").Offset(i, 0).Select ActiveSheet.Paste Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Workbooks(fichier).Close Saved = False i = i + 1 Wend End sub...

ric · Accepted Answer

Pour l'arrêt à 100 occurrences &gt; je ne sais pas trop sans fichiers pour tester &gt; peut-être déclarer i correctement &gt; Dim i as Integer (si moins de 32 000 lignes) &gt; ou Dim i as Long (si plus) ... Note : Je vois que Jean-Eric t'a donnée un code plus sympa ... Oui, c'est possible de lire dans un classeur fermé ... https://forum.excel-pratique.com/viewtopic.php?f=2&t=130816 http://boisgontierjacques.free.fr/pages_site/ado.htm#CopyFrom ric...

ric · Answer

Un essai ... Je n'ai pas testé le code &gt; mais, déjà en enlevant les .sélect &gt; il devrait y avoir amélioration de la rapidité d'exécution ... Sub MAJ() Dim wkA As Workbook, wkB As Workbook Dim chemin As String, fichier As String Dim j As Long Dim i Dim nom As String Application.ScreenUpdating = False Range("A3:A130").ClearContents Range("k3:AB130").ClearContents i = 1 '--------XXXXXXXX nom = Dir("S:xxxxxxxxxxxx\*.xlsb") While nom &lt;&gt; "" Range("A2").Offset(i, 0).Value = nom nom = Dir chemin = "S:xxxxxx" fichier = Range("A" & i + 2).Value Workbooks.Open chemin & fichier Sheets("Données").Activate Range("AI7:AZ7").Copy Windows("Analyses des sondes.xlsm").Activate Range("k2").Offset(i, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Workbooks(fichier).Activate Sheets("Données").Activate Range("B" & Rows.Count).End(xlUp).Copy Windows("Analyses des sondes.xlsm").Activate Range("b2").Offset(i, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Workbooks(fichier).Close Saved = False i = i + 1 Wend End Sub ric...

Jean-Eric · Answer

Vba aime bien savoir ou il est et ou il va ! A méditer. Sub MAJ() Dim wkA As Workbook, wkB As Workbook Dim chemin As String, fichier As String Dim i As Long, j As Long Dim nom As String Application.ScreenUpdating = False nom = Dir("S:xxxxxxxxxxxx\*.xlsb") i = 1 Set wkA = ThisWorkbook With wkA.Worksheets("???") .Range("A3:A130").ClearContents .Range("k3:AB130").ClearContents End With While nom &lt;&gt; "" wkA.Worksheets("???").Range("A2").Offset(i, 0).Value = nom nom = Dir chemin = "S:xxxxxx" fichier = wkA.Worksheets("???").Range("A" & i + 2).Value Set wkB = Workbooks.Open(chemin & fichier) wkB.Worksheets("Données").Range("AI7:AZ7").Copy wkA.Worksheets("???").Range("k2").Offset(i, 0).PasteSpecial Paste:=xlPasteValues wkB.Worksheets("Données").Range("B" & Rows.Count).End(xlUp).Copy wkA.Worksheets("???").Range("b2").Offset(i, 0).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = 0 Workbooks(fichier).Close False 'Saved = False i = i + 1 Wend End Sub...