Discussion :

[bencio]

Bonjour à tous,

Afin de générer une macro de copie des données d'un classeur à un autre, je n'arrive pas à sélectionner (activer) un classeur lorsque celui-ci est ouvert manuellement. J'ai lu sur divers sites que excel différenciait les classeurs ouverts manuellement, et ceux ouverts à l'aide d'une macro.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Dim wb_classeur_donnees As Workbook
    Dim wb_classeur_cible As ThisWorkbook
 
'(ICI UNE MACRO QUI M'OUVRE UN CLASSEUR VIA EXPLORATEUR)
 
        wb_classeur_donnees.Activate
        Rows(var_arbo_debut + 1 & ":" & var_arbo_fin).Select
        Selection.Copy
        'wb_classeur_cible.Activate 
        'ThisWorkbook.Activate
        [A200].Select
        ActiveSheet.Paste

Classeur donnees étant un fichier ouvert à l'aide de la macro via l'explorateur windows, et classeur cible un fichier excel ouvert manuellement et comportant 4 feuilles.

En bidouillant un peu, j'arrive à naviguer jusqu'au Workbook "PERSO" (celui ou sont mes macros) mais pas à ce que je veux...

Merci d'avance!
Benjamin

[flav_cm]

Bonjour,

La macro est lancée depuis quel classeur ?

[joe.levrai]

Bonjour,

que le classeur soit ouvert par macro, ou manuellement, ils sont pilotés de la même manière dans une macro

je comprend pas bien la raison d'être de ta variable wb_classeur_cible

tu la type en "ThisWorkbook", cela n'a pas d'intérêt

ThisWorkbook représente le classeur qui contient la macro qui tourne.

donc on peut simplifier tout ça, et sans activer les classeurs

je pars du principe que wb_classeur_donnees est le classeur qui contient les données sources
wb_classeur_cible reçoit les données

En gros ça ressemblerait (à adapter)

Code :

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

1
2
3
4
5
Sub toto()
Dim wb_classeur_donnees As Workbook
' ouverture de wb_classeur_donnees par macro
wb_classeur_donnees.Rows(var_arbo_debut + 1 & ":" & var_arbo_fin).Copy ThisWorkbook.ActiveSheet.Range("A200")
End Sub

La copie est réalisée dans la feuille active du classeur qui contient les macro

[bencio]

J'ai un classeur (celui que j'ouvre et qui doit contenir les données), et un autre qui contient les macros (masqué), j'ai inséré la fonction dans mon classeur qui contient les données, afin de ne pas avoir à l'activer via le Workbook.

En utilisant le code, j'obtiens l'erreur 438: Propriété ou méthode non gérée par cet objet.

Benjamin.

Code :

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

1
2
3
4
5
6
wb_classeur_donnees.Activate
        Rows(var_arbo_debut + 1 & ":" & var_arbo_fin).Select
        Selection.Copy
        ThisWorkbook.Activate
        [A4].Select
        ActiveSheet.Paste

En utilisant ce code, j'arrive bien à copier mes données de mon fichier source vers mon fichier de destination, mais la macro doit être dans le fichier de destination...

Benjamin

[flav_cm]

Tu peux mettre tes macros dans le fichier source en faisant sélectionner le fichier de destination par l'utilisateur par exemple :

Code :

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

1
2
3
4
5
With Application.FileDialog(msoFileDialogOpen)
   .AllowMultiSelect = False
   If .Show = 0 Then Exit Sub
   nom = .SelectedItems(1)
End With

puis en l'ouvrant (il ne faut pas qu'il soit déjà ouvert!) :

Code :

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

Set Wb = Workbooks.Open(nom)

et en faisant ensuite ta recopie de la même manière que ci-dessus