Discussion :

[Manard82]

Bonjour,

Je suis un petit utilisateur de macros Excel, quand j'ai un souci, je recherche sur le net et en général je trouve des fils de discussions similaires.

Là, je bloque sur une macro développée sous Excel 2010 qui "tournait" sans erreur quand j'étais sous Seven. Avec la fin des mises à jour Seven, j'ai installé Windows 10 sur mon PC fixe et suis confronté à un plantage au bout d'un certain nombre de boucles identiques.

Je traite plusieurs milliers de fichiers au format texte qui ont cette forme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
OziExplorer Track Point File Version 2.1
WGS 84
Altitude is in Feet
Reserved 3
0,3,16711935,002.plt                            ,0,0,2,8421376,0,0
249
  30.049515,  -8.847300,0, 4226.7,38468.4646528, 26-avr.-05, 11:09:06
  30.049642,  -8.847408,0, 4224.7,38468.4646759, 26-avr.-05, 11:09:07
  30.049970,  -8.847742,0, 4220.1,38468.4647454, 26-avr.-05, 11:09:14
  30.050017,  -8.847845,0, 4217.5,38468.4647801, 26-avr.-05, 11:09:17
  30.050083,  -8.847950,0, 4217.1,38468.4647917, 26-avr.-05, 11:09:18

Ces fichiers sont ouverts tour à tour avec la macro ci-dessous qui plante aléatoirement, dans laquelle je supprime les 6 premières lignes et copie les trois premières colonnes qui contiennent des données numériques dans une feuille Trace de mon fichier Excel

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub Ouverture_liste_traces()
 
Application.ScreenUpdating = False
 
Dim fichier_trace As String
Dim c As Integer
 
 
Sheets("Liste").Select
 
c = Sheets("Trace").Range("L50").Value
 
fichier_trace = Range("A" & c).Value & "\" & Range("B" & c).Value
 
Sheets("Trace").Range("L53").Value = Range("B" & c).Value
 
Sheets("Trace").Select
 
    Columns("A:C").Select
    Selection.ClearContents
 
    Workbooks.OpenText Filename:= _
        fichier_trace _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
        False, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array( _
        1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, _
        1), Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True
    Rows("1:6").Select
    Selection.Delete Shift:=xlUp
    Columns("A:C").Select
    Selection.Copy
 
    Application.DisplayAlerts = False
 
    ActiveWindow.Close
 
   Sheets("Trace").Select
 
   Range("A1").Select
   ActiveSheet.Paste
 
 
End Sub

La macro plante sur la ligne ActiveSheet.Paste

J'ai essayé de modifier en changeant cette ligne par : ActiveSheet.Paste Destination:=Worksheets("Trace").Range("A1"), mais c'est pareil.

J'ai opté pour le séparateur système qui est le "point", mais même plantage au bout d'un nombre aléatoire de boucles réalisées.

J'ai également lancé cette macro sur mon PC portable sous Windows 10 et Excel 2016, mais même souci...

Auriez-vous une ou des pistes à me conseiller pour modifier cette macro.

Avec mes remerciements

Bernard

[curt]

Bonsoir,

il serait intéressant d'utiliser le deboger en regardant ce que tu essaies de coller (regarde le selection copy)

Curt

[Manard82]

Bonsoir,

Je te remercie de ta réponse. Voici l'erreur que j'ai :



Dans visual basic :



Si je me positionne dans la cellule A1 de la feuille "Trace" et que je fais "Coller" les données se collent sans erreur

Bonne soirée

Bernard