Téléchargement
illégal
Posez votre question Signaler

Excel WBA copie d'un fichier à l'autre

MIMI - Dernière réponse le 28 nov. 2009 à 18:59
Bonjour,
Je copie des informations selon l'instruction ci-dessous
Sheets("Feuil1").Cells(i, 1) = Sheets("Feuil2").Cells(i, 1)
Je voudrais indiquer que la feuille 2 est sur un autre fichier Excel ouvert.
j'ai essayé d'ajouter windows à mon instruction mais cela ne marche pas :
Sheets("Feuil1").Cells(i, 1) = Windows("toto.xls").Sheets("Feuil2").Cells(i, 1)
Merci par avance pour votre aide
Lire la suite 

Excel WBA copie d'un fichier à l'autre »

10 réponses
Réponse
+0
moins plus
Ricky38 4413Messages postés 15 mars 2008Date d'inscription 26 mai 2012Dernière intervention 28 nov. 2009 à 17:28
Salut,

tu as essayé
Sheets("Feuil1").Cells(i, 1) = Workbook("toto.xls").Sheets("Feuil2").Cells(i, 1)

 Ajouter un commentaire
Afficher les 4 commentaires
Ricky38- 28 nov. 2009 à 17:44
mets un s a workbook
MIMI - 28 nov. 2009 à 18:01
j'ai mis un "s" a Workbooks
mais j'ai un nouveau mesasge d'erreur "erreur execution 9 l'indice n'apartient pas à la sélection

Merci pour ton aide

Mimi

Sub aa()

For i = 1 To 10

Sheets("Feuil1").Cells(i, 1) = Workbooks("Classeur2.xls").Sheets("Feuil2").Cells(i, 1)
Sheets("Feuil1").Cells(i, 2) = Workbooks("Classeur2.xls").Sheets("Feuil2").Cells(i, 2)
Sheets("Feuil1").Cells(i, 3) = Workbooks("Classeur2.xls").Sheets("Feuil2").Cells(i, 3)

Next i

End Sub
Ricky38- 28 nov. 2009 à 18:04
moi j'ai mit Worksheets au lieu de sheets
Ajouter un commentaire
Réponse
+0
moins plus
Ricky38 4413Messages postés 15 mars 2008Date d'inscription 26 mai 2012Dernière intervention 28 nov. 2009 à 17:42
plutot ceci:

Workbooks("test1").Worksheets("Feuil2").Range("B3") = Workbooks("test2").Worksheets("Feuil1").Range("A1")

donc de test2 A1 à test1 B3

 Ajouter un commentaire
Afficher les 4 commentaires
Ricky38- 28 nov. 2009 à 18:25
tu as essayé de changer les Range() pour ton Cells(i, 1) ?
MIMI - 28 nov. 2009 à 18:36
Ca marche tout à fait :

Sub aa()

For i = 1 To 10

Workbooks("Classeur1").Sheets("Feuil1").Cells(i, 1) = Workbooks("Classeur2").Sheets("Feuil1").Cells(i, 1)
Workbooks("Classeur1").Sheets("Feuil1").Cells(i, 2) = Workbooks("Classeur2").Sheets("Feuil1").Cells(i, 2)
Workbooks("Classeur1").Sheets("Feuil1").Cells(i, 3) = Workbooks("Classeur2").Sheets("Feuil1").Cells(i, 3)

Next i

End Sub

Encore merci pour ton aide

Bonne soirée

Mimi
Ricky38- 28 nov. 2009 à 18:59
fait plaisirs
Ajouter un commentaire
Posez votre question
Ce document intitulé « Excel WBA copie d'un fichier à l'autre » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?