Discussion :

[chouki60]

Bonjour à tous,

Je souhaiterai avoir une macro qui me permette d'importer des données d'un autre onglet (du même classeur) ou d'un autre classeur excel.
Dans les deux cas ils s'agit de tableaux ayant les mêmes "titres" de colonnes.
Voici ce que j'ai codé:

Code :

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

1
2
3
4
5
6
Private Sub Import_CB_Click()
    Sheets("Suivi des FT").Range("A12:T10000").Copy 
    With Sheets("Decision sur les actions") 
    Range("A20").Insert Shift:=xlDown
    End With 
End Sub

Et alors j'ai une erreur d'execution 1004 qui apparait..
Et je pense que même si ce code marchait, il fonctionnerai seulement pour un onglet dans le même classeur.
Les feuilles que je peux importer d'un autre classeur se nomerraient : Suivi des FT_semXX (XX correspond au numéro de la semaine).

Merci d'avance pour votre aide!

[Fvandermeulen]

Salut,

Tu réponds plus ou moins toi même...

Si c'est un classeur différent, il faut que VBA le connaisse, hors là ce n'est pas mentionné.
Idem pour les onglets, je ne vois pas dans le code comment tu lui indique un onglet qui peut-être variable (a moins que j'ai mal compris et que c'est toujours le même onglet).

Voici un lien vers un post où je viens de réagir, c'est une méthode pour ouvrir un classeur auquel on affecte une valeur, enfin je te laisse lire en espérant que ce soit clair...
http://www.developpez.net/forums/d10...connaitre-nom/

Pour ce qui est de l'erreur 1004, vérifie le nom des tes feuilles (et pas besoin du with dans cette utilisation, ceci suffit)

Code :

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

1
2
    Sheets("Suivi des FT").Range("A12:T10000").Copy 
    Sheets("Decision sur les actions").Range("A20").Insert Shift:=xlDown

A+

[chouki60]

Bonjour,

En fait, je me suis débrouiller pour que les informations à copier viennent uniquement de l'onglet "Suivi des FT" qui sera toujours le même.
Alors le programme que j'ai fait et le suivant :

Code :

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

1
2
3
4
Private Sub Import_CB_Click()
    Sheets("Suivi des FT").Range("A12:T10000").Copy
    Sheets("Decision sur les actions").Range("A20").Insert Shift:=xlDown
End Sub

Et il se passe quelque chose de très bizarre... Ce code fonctionne (2-3fois) et puis ensuite il y a une erreur d'execution 1004 :
"Pour éviter la perte de données, Microsoft excel ne peut pas déplacer de cellules non vides en dehors de la feuille.
Essayer de supprimer ou d'effacer les cellules situées à droite et sous vos données.

Quelqu'un peut m'aider?

[Fvandermeulen]

Salut,

A force d'insérer tu as du arriver au bout du nombre de ligne.

[chouki60]

En fait mon erreur venait de mon bouton effacer.
J'effacer mais ne supprimer pas c'est pourquoi j'étais arrivée au nombre maxi d e lignes..
Merci beaucoup!