Discussion :

[guigui71]

Bonjour à tous

J'ai un soucis :

je voudrais savoir comment importer un fichier excel dans un autre fichier ?

merci

[MarcelG]

Bonjour

A adapter dans le classeur (ex Classeur1) que tu veux copier (vers Classeur2)

Code :

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

1
2
3
4
5
6
7
8
Public Sub ESSAI()
Dim wk As Worksheet
For Each wk In ThisWorkbook.Worksheets
    With Workbooks("Classeur2")
            wk.Copy After:=.Sheets(.Sheets.Count)
    End With
Next wk
End Sub

[guigui71]

Merci de ta réponse

Cependant le programme ne marche pas, peut être me suis-je mal expliqué :

J'ai une base de donnée dans un classeur excel ( feuil1) et je veux copier dans ce même classeur une autre BDD dans la feuil2.

Merci

[MarcelG]

Bonjour,

Il faut être précis dans les termes (feuille, classeur...)
Un classeur nommé "toto.xls" comprend plusieurs "feuilles" (Ce sont les espaces de travail indicés au départ Feuil1, Feuil2, etc..)

Donc précise:
- De combien de classeurs disposes-tu au départ? (1 ou 2 ?)
- Tu veux copier quel objet : une feuille ou une zone de cellules ?
- Ta copie s'effectue depuis quel emplacement (cellule R1 de la feuille F1 du classeur W1) vers quel emplacement (cellule R2 de la feuille F2 du classeur W2)?

Comme dirait je ne sais plus qui dans ce forum : "De la précision de la question dépend la qualité de la réponse."

Répond intégralement à ces questions, le code suivra.

[guigui71]

je dispose de 2 classeurs ( A et B) comprenant chacun une feuille.
et je veux copier l'intégralité de la feuille de mon classe B dans une nouvelle feuille du classeur A

Ma copie s'effectue à partir de la cellule A1 de la feuille feuil1 du classe B
et je veux copier dans la cellule A1 feuil2 classeur A

Merci

[MarcelG]

Salut,

On en revient donc au code que je t'ai indiqué (certes, on pourrait l'alléger mais que l'on ait 1 feuille ou plusieurs ne change pas grand chose en définitive)

A placer dans un module du classeur B et en adaptant le nom du classeur destinataire.

Si le code tombe en anomalie, précise sur quelle ligne.

On va y arriver.