pmfontaine
XLDnaute Occasionnel
Bonjour,
Voila un code qui me permet de transférer des données sur un fichier que je crée en vba.
ça marche bien, mais c'est un peu long pour coller, car il y à environ 25000 lignes sur 22 colonnes (Soit plus de 500 000 données à coller.
Est-ce qu'il y aurait un moyen plus rapide pour coller une si grande quantité de donnée ?
Merci d'avance pour votre aide
Patrick
Voila un code qui me permet de transférer des données sur un fichier que je crée en vba.
ça marche bien, mais c'est un peu long pour coller, car il y à environ 25000 lignes sur 22 colonnes (Soit plus de 500 000 données à coller.
Est-ce qu'il y aurait un moyen plus rapide pour coller une si grande quantité de donnée ?
Merci d'avance pour votre aide
Patrick
Code:
Sub CreationBD ()
Dim XL As New Excel.Application
With Sheets("BD")
tabloBD = .Cells(2, 1).Resize(.Cells(Rows.Count, 1).End(xlUp).Row - 1, 22)
End With
Chemin = ActiveWorkbook.Path
Workbooks.Add
Application.DisplayAlerts = False
Sheets("Feuil2").Delete
Sheets("Feuil3").Delete
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "mafeuille"
With Sheets("mafeuille")
For i = 1 To UBound(tabloBD)
For Colonne = 1 To 22
.Cells(i, Colonne) = tabloBD(i, Colonne)
Next Colonne
Next i
End With
ActiveWorkbook.SaveAs Filename:=Chemin & "\BD.xlsx"
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub