Discussion :

[BlackWizzard]

Bonjour à tous,

J'ai actuellement 2 fichiers Excels :
- Le fichier A : Liste de données avec coordonnées x, y et z.
- Le fichier B : Macro permettant d'écrire dans SolidWorks (logiciel de conception 3D).

Problème :
J'aimerais copier/coller des données du fichier A au fichier B suivant le processus suivant :
1. Tester valeur de Z dans la colonne C du fichier A.
2. Sélectionner les colonnes A, B et C pour des valeurs de Z identiques (que celles égales à 0, puis que celles égales 0,05,...) -> 200 lignes à chaque fois.
3. Copier ces valeurs dans le fichier B
4. Exécuter la macro "Private Sub btnLines_Click()" du fichier B.
5. Accorder un délais de 5 secondes pour le temps de traitement de la macro du fichier B.
6. Renouveler l'opération.

J'ai un début de code mais il me manque de quoi tester la valeur et attendre...

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Copier_desiner()
 
' Copie valeur fichier A vers fichier B. Exécute la macro du fichier B. Attend 10 secondes.
 
    Range("A1:C200").Select
    Selection.Copy
    Windows("trace_des_points_sur_un_part__xyz_v3.xls").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A201").Select
    Application.CutCopyMode = False
 
End Sub

Merci d'avance pour votre aide !

Les fichiers sont joint.