Discussion :

[alex955]

Bonjour,

J'ai écrit une marco permettant de traiter des données dans un fichier excel. Cette macro doit être appelée par un autre fichier, dans lequel le résultat viendra se coller.

Quand je lance ma macro dans le fichier de traitement, tout se passe bien et j'obtiens mon résultat, mais quand je le lance depuis le fichier de destination, alors deux solutions sont possibles:
- soit je lance via un bouton et j'obtiens une erreur (que je détaille dans un instant)
- soit je lance au pas à pas en mode debug et tout se passe bien

L'erreur est liée au fait que dans le fichier de traitement, la macro exécute les lignes suivantes:

Code :

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

1
2
3
    Call activate
    Sheets("Data").Select
    Columns("A:E").Select

où

Code :

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

1
2
3
Sub activate()
    AppActivate ("ThermocouplesData - Excel")
End Sub

pour m'assurer que les actions soient bien effectuées dans ce workbook.

Quand l'erreur debug arrive (L'indice n'appartient pas à la sélection), il me suffit d'aller en mode debug et de relancer (le petit "play") et tout repart sans problème.

Toutes les suggestions sont les bienvenues.

J'ai déjà essayé de supprimer la ligne "activate", même résultat.

Merci d'avance

Alex

[Ben_L]

Bonjour,

Il est fortement déconseillé de faire appel à la sélection ou à l'activation qui sont sources de nombreux problèmes.
Utilisez plutôt quelque chose comme :

Code :

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

1
2
3
With ThisWorkbook.Sheets("Data")
    <votre_code>
End With

[alex955]

Merci pour l'info.

Je viens d'essayer mais avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
With ThisWorkbook.Sheets("Data")
        Columns("A:E").Select
        Selection.ClearContents
    End With
    With ThisWorkbook.Sheets("Résumé")
        Columns("A:c").Select
        Selection.ClearContents
    End With
    With ThisWorkbook.Sheets("Final")
        Columns("d:aq").Select
        Selection.ClearContents
    End With

Toutes les opérations s'effectuent à la suite sur la feuille active

[Ben_L]

Comme dit précédemment, il convient d'éviter d'utiliser la sélection...

Quant à l'utilisation du bloc With, elle permet de faire implicitement référence à un objet.
Mais pour cela, il faut mettre un point avant la propriété souhaitée. Par exemple :

Code :

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

1
2
3
With ThisWorkbook.Sheets("Data")
    .Columns("A:E").ClearContents
End With

Toutefois, un bloc With est inutile si vous ne réalisez qu'une seule action sur l'objet que vous référencez.
Dans votre cas, il serait plus simple d'utiliser :

Code :

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

1
2
3
ThisWorkbook.Sheets("Data").Columns("A:E").ClearContents
ThisWorkbook.Sheets("Résumé").Columns("A:C").ClearContents
ThisWorkbook.Sheets("Final").Columns("D:AQ").ClearContents

Cordialement

[alex955]

Ok ça a fonctionné. En effet les select posent problème dès que plusieurs classeurs sont ouverts en même temps.

J'ai maintenant du coup des problèmes ailleurs dans mon code, de la même nature, mais en suivant la même procédure ça ne va pas :

Code :

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

1
2
3
4
    Dim nb As String
    nb = CStr(WorksheetFunction.CountA(Range("a:a")))
 
    ThisWorkbook.Sheets("Data").Range("F1:H" + nb).Copy

Dans ce code, la dernière ligne bloque si je ne vais pas manuellement sur la feuille concernée (alors que pour le problème au-dessus, je ne devais pas bouger)

[joe.levrai]

Bonjour,

je répète et explicite le point soulevé par Ben_L

quand on fait référence à un objet de type Range, nous avons deux hypothèses :

- on n'indique pas la feuille hôte et le classeur hôte ==> VBA traitera le Range de la feuille active du classeur actif
- on indique l'ensemble de la filiation, il n'y a plus aucun souci car on a bien indiqué où on voulait travailler

donc

Code :

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

nb = CStr(WorksheetFunction.CountA(Range("a:a")))

fait référence à la colonne A du la feuille active du classeur actif, ce qui est une source potentielle du problème
la seconde source possible, c'est que tu convertis un nombre (résultat de la formule CountA) en String via CStr, et ensuite tu l'utilises dans un range qui attend de son côté un chiffre


EDIT : et l'opérateur de concaténation est esperluette &, le "+" est à proscrire, ce n'est pas sa vocation première que de concaténer des String, il sert à additionner des valeurs