excel vers excel

Version imprimable

excel vers excel

Bonjour à tous,
je suis à la recherche d'un code qui me permattrait de prendre les données de plusieurs cellules de la feuille d'un classeur1 et de les coller dans d'autres cellules d'un classeur 2

Ce code marche pour 1 cellule mais je n'y arrive pas pour plusieurs(en vracs):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub firstSave_Click() Windows("test(1).xls").Activate Range("G2").Select Selection.Copy Windows("FCMO1.xls").Activate Range("L2:O2").Select ActiveSheet.Paste Windows("test(1).xls").Activate ActiveWindow.Close firstSave.Visible = False End Sub
Merci de votre aide

Avec toutes mes excuses, je reformule
Voila un code qui me convient mieux, mais ça buggue
lorsque je fait du pas à pas ça colle bien les données du 1er fichier dans le 2éme, mais lorsque le bouton disparait, les données collées aussi
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Portage_Click() Windows("FCMO2.xls").Activate Windows("test[1].xls").Activate val1 = Range("C2").Value val2 = Range("G2").Value Windows("FCMO2.xls").Activate Cells.Replace What:="TT", Replacement:=val1, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Cells.Replace What:="dd", Replacement:=val2, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False ActiveWindow.Close Portage.Visible = False End Sub
Qu'elqu'un aurrait-y la solution????
MERCI

29/05/2008, 13h55
ouskel'n'or

Ta méthode est originale, elle pourrait fonctionner mais elle n'est pas vraiment adaptée à ce que tu veux réaliser.
Questions :
Ce que tu veux copier contient-il des formules ?
Veux-tu qu'un lien associe les donnée d'un classeur à l'autre ?
Veux-tu copier également la mise en forme ?
Avec ça on devrait s'en sortir ;)
Tu dis
A+
29/05/2008, 14h02
fthem

dans les cellules copiées il n'y a pas de formules, par contres certainnes sont fusionnées et ensuite, je les colles dans des cellules totalements viersges non fusionnées
Je clique sur un bouton dans le classeur FCMO2.xls qui active ma macro
Mes 2 fichiers sont déja ouverts
la mise en forme est déja définie dans les cellules du fichier FCMO2.xls

Qu'en penses tu?

Tu as oublié les noms de tes feuilles pour les deux classeurs

Code:

1
2
3
4
5
6
7
8
9
Private Sub Portage_Click()
Val1 = Workbooks("test[1].xls").Worksheets(NomFeuil1).Range("C2").value
val2 = Workbooks("test[1].xls").Worksheets(NomFeuil1).Range("G2").value
Workbooks("FCMO2.xls").Worksheets(NomFeuil2).Cells.Replace What:="TT", Replacement:=val1, LookAt:=xlPart
Workbooks("FCMO2.xls").Worksheets(NomFeuil2).Cells.Replace What:="dd", Replacement:=val2, LookAt:=xlPart
ActiveWindow.Close 'True si tu veux entegistrer le fichier, false dans le cas contraire
'ça évite les messages de VBA
Portage.Visible = False
End Sub

Tu peux tester ça pour moi ?
Tu dis
A+

29/05/2008, 15h45
fthem

ça buggue, il me met une erreur d'exécution 9 dés la 2éme ligne

Code:

val1 = Workbooks("test[1].xls").Worksheets(FDMexport).Range("C2").Value

:cry:
29/05/2008, 15h53
ouskel'n'or

Si FDMexport est le nom de la feuille, il doit être entre guillemets

Code:

val1 = Workbooks("test[1].xls").Worksheets("FDMexport").Range("C2").Value
29/05/2008, 16h30
fthem

Oui excuse, j'avais pas vu:roll:
Mais ça réajit toujours pareil quand même, il me fait disparaitre les données collées , en fait il fait excatement pareil qu'avec mon code du début:?

Montre la suite de ton code, l'erreur ne vient pas de là.
ou tes feuilles ne se nomment pas ainsi
Code:

1 2 Val1 = Workbooks("test[1].xls").Worksheets(NomFeuil1).Range("C2").value val2 = Workbooks("test[1].xls").Worksheets(NomFeuil1).Range("G2").value

j'ai 1 fichier qui s'appelle "text[1].xls" avec une feuille "FDMexport"
et un autre qui s'appelle "FCMO2.xls" avec une feuille "FDM" sur laquelle il y a le bouton qui appelle ce code mais mon fichier est truffé de macros.
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Portage_Click() val1 = Workbooks("test[1].xls").Worksheets("FDMexport").Range("C2").Value val2 = Workbooks("test[1].xls").Worksheets("FDMexport").Range("G2").Value Workbooks("FCMO2.xls").Worksheets("FDM").Cells.Replace What:="TT", Replacement:=val1, LookAt:=xlPart Workbooks("FCMO2.xls").Worksheets("FDM").Cells.Replace What:="dd", Replacement:=val2, LookAt:=xlPart ActiveWindow.Close = False 'True si tu veux entegistrer le fichier, false dans le cas contraire 'ça évite les messages de VBA Portage.Visible = False End Sub
Par contre quand j'ouvre Outil\Macro\Vb il me marque Projet FDM2005 sur la barre en tête des modules à gauche, mais en haut il me marque bien Microsoft Visual Basic FCMO2.xls[Module2(Code)]

29/05/2008, 17h14
ouskel'n'or

Vérifie tout de même que tu n'as pas deux fichiers ouverts :aie:
29/05/2008, 20h12
fthem

non, je suis sur qu'il n'y a que ces deux:mur:

Bonsoir

Personnellement, je préfère travailler avec des objets clairement identifiés. Le code est peut-être un peu lourd pour transférer une cellule, mais dès que tu as plusieurs cellules à transférer, tu y gagnes en développement, en lecture de code et en dépistage des erreurs.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub Transfert() Dim wbSource As Workbook Dim wbCible As Workbook Dim CelSource As Range Dim CelCible As Range Dim shSource As Worksheet Dim shCible As Worksheet Set wbSource = Workbooks("classeur source.xls") Set wbCible = Workbooks("classeur cible.xls") Set shSource = wbSource.Worksheets("feuil1") Set shCible = wbCible.Worksheets("feuil1") Set CelSource = shSource.Range("a4") Set CelCible = shCible.Range("b4") CelSource.Copy Destination:=CelCible End Sub
Un avantage est que tu peux avoir autant de classeurs ouverts que tu veux, entre autres...

Ok?

30/05/2008, 08h41
fthem

Même avec ce côde, ça fini par m'effacer les données
je vais craquer:marteau:
30/05/2008, 10h24
ouskel'n'or

Je soupçonne une c...rie... Pas nécessairement de ton fait...
Tu travailles où ? En entreprise ? Chez toi ? A la FAC ?
Une explication : Dans l'éditeur VB et dans la fenêtre VBA-Projects, s'affichent toutes les macros complémentaires validées dans Excel ou par macro.
Si dans VBA tu as un Projet qui porte un nom inconnu, ce n'est pas normal.
Dans Excel, vérifie les Macros complémentaires.
Si tu en vois une inutile, dévalide-la. Tu peux même les dévalider toutes si tu n'en as pas besoin dans ton projet. Il est par ailleurs très facile de les activer par soft et ça allège le démarrage d'Excel. En outre, le faire par soft rend ton projet "portable" en éliminant le risque que la macro complémentaire ne soit pas validée sur un autre poste. Donc, pas de risque à faire ça. (dans Excel, donc, menu outils -> Macros complémentaires)

Deuxième contrôle, dans l'explorateur Windows, vérifie les fichiers qui se trouvent dans "C:\Program Files\Microsoft Office\OfficeXX\XLStart" ou "Ouvrir"
Si tu as un fichier inconnu, tu le déplaces "ailleurs". Tu ne dois avoir dans ce répertoire que le/les fichier(s) que tu y as mis.

Commence par là. Après on commentera ;)
Tu dis
A+

J'ai tout vérifié ça que t'as dit, j'ai recommencé pas à pas et voila ce que ça donne:
Code:

1 2 3 4 5 6 Private Sub Portage_Click() val1 = Workbooks("test[1].xls").Worksheets("FDMexport").Range("C2").Value val2 = Workbooks("test[1].xls").Worksheets("FDMexport").Range("G2").Value Workbooks("FCMO2.xls").Worksheets("FDM").Cells.Replace What:="TT", Replacement:=val1, LookAt:=xlPart Workbooks("FCMO2.xls").Worksheets("FDM").Cells.Replace What:="dd", Replacement:=val2, LookAt:=xlPart
jusqu'e là c'est OK, ça colle tout bien là ou il faut, ensuite, obligé de mettre en commentaire parceque le Close ne lui plait pas il ne veut même pas me démarrer le pas à pas il me dit "Erreur de Compilation, Affectation à une constante non autorisée" et me le surligne "Close" en vert

Code:

'ActiveWindow.Close = False

et enfin, il me met "erreur d'exécution 424/Ojet requis" il ne veut pas me cacher le bouton
Code:

1 2 Portage.Visible = False End Sub
Voila tout:aie:

30/05/2008, 18h20
Pierre Fauconnier

Tu as un = de trop, car Close est une procédure et non une propriété.

Code:

ActiveWindow.Close False

devrait fonctionner
02/06/2008, 08h18
fthem

Ok pour le Close mais pour le reste ça ne vaut toujours pas :cry:

Voila, ça y est, dans mon serveur en créant un dossier à part pour mes fichiers excel le problème a disparu en fait cela venait qu'il y a tellement de fichier stokés dans le serveur que les macros se bouffent les unes avec les autres.
Ce code est donc OK
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Portage_Click() val1 = Workbooks("test[1].xls").Worksheets("FDMexport").Range("C2").Value val2 = Workbooks("test[1].xls").Worksheets("FDMexport").Range("G2").Value Workbooks("FCMO2.xls").Worksheets("FDM").Cells.Replace What:="TT", Replacement:=val1, LookAt:=xlPart Workbooks("FCMO2.xls").Worksheets("FDM").Cells.Replace What:="dd", Replacement:=val2, LookAt:=xlPart ActiveWindow.Close = False 'True si tu veux entegistrer le fichier, false dans le cas contraire 'ça évite les messages de VBA Portage.Visible = False End Sub
Merci à tous et à bientôt pour de nouvelles aventures:lahola: