D
dagada75
Guest
Bonjour à tous,
Bonjour à Thierry, Rai....
Voilà j'aimerai avoir votre coup d'oeil pour m'expliquer un temps de traitement long d'une macro que Thierry m'avait donné ...
Il s'agissait d'une conversion de feuille xls en Txt ...
Cela marche parfaitement !
)
Je me demandai si, le fait de lui spécifier une plage de recherche comprenant TOUTE la feuille excel, expliquait la forte durée du traitement ?
Existe t'il un moyen de lui spécifier au début de la macro : plage de recherche = uniquement les lignes avec telle cellule active (Ax) pour lui ménager la tâche ?
Une fois de plus je chipote .. car en LOCAL cela prend 20 seceondes .. mais comme je suis obligé de sauvegarder en réseau ..là ... ça dépasse la minute ....
Merci pour vos explications d'EXPERT !
Bonne journée à TOUS ! (et bientôt bon week end !)
)
La macro concernée
************************************************
Sub BuildTXT()
Dim Plage As Object, Line As Object, Line2 As Object
Dim TheText As String, ThePath As String, TmpString As String
Dim TheFile As Variant
Dim L As Integer
Dim C As Byte, X As Byte, i As Integer
Dim D As Byte, Y As Byte, j As Integer
ThePath = ThisWorkbook.Path & "\Equi_Manu_A_Injecter_DATE"
TheFile = Application.GetSaveAsFilename(ThePath, "Fichier,*.txt")
If TheFile = False Then Exit Sub
L = 1
Set Plage = TXT.Range("A1" & 1 & ":BI" & TXT.Range("A65536").End(xlUp).Row)
Open TheFile For Output As #1
For Each Line In Plage.Rows
L = L + 1
TheText = ""
For C = 1 To 101
Select Case C
Case 1
*************************************
Bonjour à Thierry, Rai....
Voilà j'aimerai avoir votre coup d'oeil pour m'expliquer un temps de traitement long d'une macro que Thierry m'avait donné ...
Il s'agissait d'une conversion de feuille xls en Txt ...
Cela marche parfaitement !
)Je me demandai si, le fait de lui spécifier une plage de recherche comprenant TOUTE la feuille excel, expliquait la forte durée du traitement ?
Existe t'il un moyen de lui spécifier au début de la macro : plage de recherche = uniquement les lignes avec telle cellule active (Ax) pour lui ménager la tâche ?
Une fois de plus je chipote .. car en LOCAL cela prend 20 seceondes .. mais comme je suis obligé de sauvegarder en réseau ..là ... ça dépasse la minute ....
Merci pour vos explications d'EXPERT !
Bonne journée à TOUS ! (et bientôt bon week end !)
)La macro concernée
************************************************
Sub BuildTXT()
Dim Plage As Object, Line As Object, Line2 As Object
Dim TheText As String, ThePath As String, TmpString As String
Dim TheFile As Variant
Dim L As Integer
Dim C As Byte, X As Byte, i As Integer
Dim D As Byte, Y As Byte, j As Integer
ThePath = ThisWorkbook.Path & "\Equi_Manu_A_Injecter_DATE"
TheFile = Application.GetSaveAsFilename(ThePath, "Fichier,*.txt")
If TheFile = False Then Exit Sub
L = 1
Set Plage = TXT.Range("A1" & 1 & ":BI" & TXT.Range("A65536").End(xlUp).Row)
Open TheFile For Output As #1
For Each Line In Plage.Rows
L = L + 1
TheText = ""
For C = 1 To 101
Select Case C
Case 1
*************************************
