Discussion :

[dbqg7322]

Bonjour à tous,

voici mon problème : un classeur ouvre un fichier .lst, copie le contenu et le colle dans une de ses feuilles. Cette macro fonctionne sous XP (SP3) mais elle a un comportement aléatoire depuis que les postes sont en Office 2010. Sur certains poste la méthode activate plante : le fichier contenant la macro ne (re)devient pas actif de procéder à l'écriture des données.

Un extrait du code de la macro incriminée

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
(...)
CeClasseur = ActiveWorkbook.Name

    Workbooks.OpenText Filename:="c:\extrac.lst", _
        Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 4), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1))
    
    Derniere_Ligne = Range("B1").End(xlDown).Row

    Range("A1:L" & CStr(Derniere_Ligne)).Select

    Selection.Copy
    Windows(CeClasseur).Activate
    Sheets("Resultat").Activate
    Range("A1").Select
    ActiveSheet.Paste
(...)

En gras la ligne qui pose problème.

Si quelqu'un a une idée, n'hésitez pas . Merci.

Cdlt

[Marc-L]

Bonjour,

la propriété ThisWorkbook référence déjà le classeur contenant le code !
Et un bon code n'utilise pas de Select ni d'Activate ! Exemple rien qu'en lisant l'aide de Copy …

__________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________________
Tous unis, tous Charlie

[dbqg7322]

Merci Marc-L pour ce retour,

je veux bien admettre que le code est très largement perfectible mais en fait je ne peux pas le modifier (écrit par une tiers personne). Je cherche à comprendre cette différence comportement sur 2 PC.

[Marc-L]

Le code étant initialement mal écrit, il n'y a pourtant pas d'autre choix : faudra bien le corriger ‼
Tout est pourtant dans l'aide de la méthode Range.Copy, suffit donc de la lire !

Pour comprendre, rien de plus simple : exécuter le code en mode pas à pas via la touche F8
pour suivre sa progression tout en vérifiant le contenu de la fenêtre Variables locales …

Sinon afin de conserver un code malpropre, utiliser en ligne n°16 Workbooks en place de Windows,
question de logique avec la ligne n°2 ! Voir aussi cette discussion …


__________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[dbqg7322]

Bonjour,

suite à la modification de la ligne 16, comme proposé par Marc-L, je vous confirme que le problème est résolu. Merci à tous les intervenants et je prends note pour de futures développements en VBA des préconisations qui ont été faites sur ce poste. A+.

[vinc_bilb]

Bonjour,

J'ai modifié votre code d'origine (non testé), mais je ne sais pas si celà corrigera votre problème. Evitez de passer par les 'activate' et les 'select" (suggestion): ils consomment beaucoup de ressources

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
(...)
Dim DestWbk As Workbook
 
Set DestWbk = ThisWorkbook  'ActiveWorkbook....
 
 
    Workbooks.OpenText Filename:="c:\extrac.lst", _
        Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 4), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1))
 
    Derniere_Ligne = Range("B1").End(xlDown).Row
 
    Range("A1:L" & CStr(Derniere_Ligne)).Select
 
    Selection.Copy
 
   DestWbk.Sheets("Resultat").Range("A1").Paste
 
(...)

ahh, j'ai mis du temps à envoyer ma réponse ..... cohérente avec celle de Marc

[Marc-L]

Bonjour Vincent,

en lisant l'aide de la méthode Range.Copy, une seule ligne peut donc remplacer tes lignes n°14 à 20 !
Et à quoi bon créer une variable pointant sur ThisWorkbook ? Autant directement l'utiliser …