lien entre deux classeurs [VBA]

FORUM Tom's Hardware » Programmation » VB / VBA / VBS » lien entre deux classeurs [VBA]

lien entre deux classeurs [VBA]

Il y a 405 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici

Voir les posts : Par défaut Tous Les bonnes notes Les notes insuffisantes

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : lien entre deux classeurs [VBA]

myelmehdi

Plus d'informations

03-08-2007 à 09:45:49

Bonjour, j'ai un petit problème si vous pouvez m'aider (je suis débutant en vba)
voilà, je travaille sur un classeur qui fait appel à un autre, voiçi le code que j'ai fait:

Code :

Sub jhd()
For i = 1 To 200
If Not IsEmpty(Cells(i, 1)) Then
Cells(i, 2) = Windows("Classeur2.xls" ).Activate
[A1].Copy
Windows("Classeur1.xls" ).Activate
[B1].Select
ActiveSheet.Paste
Else
Cells(i, 2) = ""
End If
Next i
End Sub

Donc je voudrai, dans le classeur 1 , si la cellule dans la colonne A est vide, ne rien faire, sinon faire un copier coller d'une cellule d'un classeur 2.
Ce code marche, seulement si le classeur 2 est ouvert. Y-t'il un moyen de le faire fonctionner sans l'ouvrir

zeb

Profil : Modérateur libre

Plus d'informations

03-08-2007 à 10:32:18

Masquer

Mon Dieu quelle horreur !!!!!!!!
Explique-moi la ligne 6, si tu peux.

Il est impossible de savoir ce qu'il y a dans un livre sans ouvrir ce livre.
C'est pareil pour les fichiers en général et les classeurs Excel en particulier !

A lire : (Dernier exemple du premier message) http://www.presence-pc.com/forum/p [...] 4953-1.htm

Message édité par zeb le 03-08-2007 à 10:35:13

---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...

myelmehdi

Plus d'informations

03-08-2007 à 11:17:55

Masquer

oui je sais c'une énorme.
voilà mnt mon new code

Code :

Sub d()
Dim appxl As Excel.Application
Dim fichier As Window
Dim feuille As Worksheet
Set appxl = CreateObject("Excel.application" )
With appxl
.Workbooks.Open "P:\Classeur1.xls"
.Visible = True
End With
Set fichier = appxl.Windows("Classeur1.xls" )
fichier.Activate
Set feuille = appxl.Sheets("feuil1" )
Range("A1" ).Select
Selection.Copy
Windows("Classeur2.xls" ).Activate
Range("A1" ).Select
ActiveSheet.Paste
appxl.Workbooks("Classeur1.xls" ).Close
Set appxl = Nothing
End Sub

ça marche sauf que ça me copie pas la cellule

myelmehdi

Plus d'informations

03-08-2007 à 11:29:01

Masquer

j'ai trouvé :

Code :

Sub d()
Dim appxl As Excel.Application
Dim fichier As Window
Dim feuille As Worksheet
Set appxl = CreateObject("Excel.application" )
With appxl
.Workbooks.Open "P:\Classeur1.xls"
.Visible = True
End With
Set fichier = appxl.Windows("Classeur1.xls" )
fichier.Activate
Set feuille = appxl.Sheets("feuil1" )
feuille.Range("A1" ).Select
feuille.Range("A1" ).Copy
Windows("Classeur2.xls" ).Activate
Range("A1" ).Activate
ActiveSheet.Paste
appxl.Workbooks("Classeur1.xls" ).Close
Set appxl = Nothing
End Sub

thx

zeb

Profil : Modérateur libre

Plus d'informations

03-08-2007 à 13:27:07

Masquer

Mais pourquoi Diable fais-tu des Activate et autre Select ?
Quel VB partiques-tu ? (VB, Excel/VBA, Word/VBA, Access/BA)

---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...

zeb

Profil : Modérateur libre

Plus d'informations

03-08-2007 à 13:30:32

Masquer

Si la réponse est Excel/VBA, aucune nécessité de recréer une instance d'Excel :

Code :

Sub d()
Dim classeur As Workbook
Set classeur = Workbooks.Open("P:\Classeur1.xls" )
Windows("Classeur2.xls" ).Range("A1" ) = classeur.Sheets("feuil1" ).Range("A1" )
Set classeur = Nothing
End Sub

---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...

myelmehdi

Plus d'informations

03-08-2007 à 15:27:05

Masquer

c'est bien VBA sur excel. c'est que qu'avec ton code c'est plus simple .merci

myelmehdi

Plus d'informations

03-08-2007 à 15:36:26

Masquer

mais en fait tout ça c'est pour pouvoir écrire ce code:

Code :

Sub lien2fichiers()
For i = 1 To 2000
If Not IsEmpty(Cells(i, 1)) Then
Cells(i, 2) = "Dim appxl As Excel.Application"
Dim fichier As Window
Dim feuille As Worksheet
Set appxl = CreateObject("Excel.application" )
With appxl
.Workbooks.Open "S:\CLOTURE 2007 ANNEMASSE - B28 -\DIVERS\Base articles FT 072007.xls"
.Visible = False
End With
Set fichier = appxl.Windows("Base articles FT 072007.xls" )
fichier.Activate
Set feuille = appxl.Sheets("Base articles FT 072007" )
feuille.Range("A1" ).Select
Windows("gfg .xls" ).Activate
Cells(i, 2).Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1],'Base articles FT 072007.xls'!R8C2:R17165C5,4,FALSE)"
appxl.Workbooks("Base articles FT 072007.xls" ).Close
Set appxl = Nothing
Else
Cells(i, 2) = ""
End If
Next i
End Sub

Est ce que je peux faire plus simple?

zeb

Profil : Modérateur libre

Plus d'informations

03-08-2007 à 16:39:47

Masquer

Je constate que tu ne prends pas en compte ce que je te dis.
Tant pis.

---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...

myelmehdi

Plus d'informations

03-08-2007 à 17:24:44

Masquer

si j'ai essayé mais ça bloque. qd je fais F8 je m'aperçois que c'est au niveau de Windows("Classeur2.xls" ).Range("A1" ) = classeur.Sheets("feuil1" ).Range("A1" ).
si je me suis inscrit ici, c'est pour apprendre et dc j'ai interet à prendre en compte tt ce qui se dit.

Aller à :

FORUM Tom's Hardware » Programmation » VB / VBA / VBS » lien entre deux classeurs [VBA]

Page générée en 0.787 secondes

Annonces Google

Sujets relatifs

voir tout

Actualités relatives

Les dernières actualités

voir tout

Les derniers tests

voir tout