lien entre deux classeurs [VBA]

lien entre deux classeurs [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 03-08-2007 à 09:51:05    

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 :
  1. Sub jhd()
  4. For i = 1 To 200
  5. If Not IsEmpty(Cells(i, 1)) Then
  6. Cells(i, 2) = Windows("Classeur2.xls" ).Activate
  7.     [A1].Copy
  8.     Windows("Classeur1.xls" ).Activate
  9.     [B1].Select
  10.     ActiveSheet.Paste
  11. Else
  12. Cells(i, 2) = ""
  14. End If
  15. Next i
  16. 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.
merci

Reply

Marsh Posté le 03-08-2007 à 09:51:05   

Reply

Marsh Posté le 03-08-2007 à 10:08:29    

Bonjour,
 
regarde là:
http://forum.hardware.fr/hfr/Progr [...] 0477_1.htm
Cordialement

Reply

Marsh Posté le 03-08-2007 à 10:11:56    


Re,
à cette adresse  
http://www.excelabo.net/excel/fich [...] sansouvrir
 
tu trouves ceci:
Comment faire pour affecter à une variable la valeur contenue dans la cellule d'un autre classeur sans ouvrir celui-ci.  
Si tu veux récupérer ce contenu, tape directement dans la cellule de destination
='D:\MesDocuments\Mondossier\[Monclasseur.xls]Feuil1'!B12
sans te tromper dans la ponctuation !
 
Si tu veux par macro affecter ce contenu à une variable A
A = "='" & Chemin & "[" & NomFic & "]" & Onglet & "'!" & Range(Ref).address
 
Si tu veux récupérer le contenu de plusieurs lignes et colonnes alors utilise la macro de GeeDee dérivée de ce truc de John Walkenbach  
http://www.j-walk.com/ss/excel/tips/tip82.htm  
traduit par Flo dans ce classeur exemple à télécharger

Reply

Marsh Posté le 03-08-2007 à 10:24:48    

merci c'est un peu difficile pour moi ça, mais je vais essayer de comprendre

Reply

Marsh Posté le 03-08-2007 à 11:19:13    

bon j'ai fait ça :

Code :
  1. Sub d()
  3. Dim appxl As Excel.Application
  4. Dim fichier As Window
  5. Dim feuille As Worksheet
  6. Set appxl = CreateObject("Excel.application" )
  7.    
  9. With appxl
  10.     .Workbooks.Open "P:\Classeur1.xls"
  11.     .Visible = True
  12. End With
  14. Set fichier = appxl.Windows("Classeur1.xls" )
  15.             fichier.Activate
  16.             Set feuille = appxl.Sheets("feuil1" )
  17.             Range("A1" ).Select
  18.     Selection.Copy
  19.     Windows("Classeur2.xls" ).Activate
  20.     Range("A1" ).Select
  21.     ActiveSheet.Paste
  22.    
  23. appxl.Workbooks("Classeur1.xls" ).Close
  24. Set appxl = Nothing
  26. End Sub


 
mais ça me copie rien du tt :(

Reply

Marsh Posté le 03-08-2007 à 11:29:11    

j'ai trouvé :

Code :
  1. Sub d()
  3. Dim appxl As Excel.Application
  4. Dim fichier As Window
  5. Dim feuille As Worksheet
  6. Set appxl = CreateObject("Excel.application" )
  7.    
  9. With appxl
  10.     .Workbooks.Open "P:\Classeur1.xls"
  11.     .Visible = True
  12. End With
  14. Set fichier = appxl.Windows("Classeur1.xls" )
  15.             fichier.Activate
  16.             Set feuille = appxl.Sheets("feuil1" )
  17.             feuille.Range("A1" ).Select
  18.     feuille.Range("A1" ).Copy
  19.     Windows("Classeur2.xls" ).Activate
  20.      Range("A1" ).Activate
  22.     ActiveSheet.Paste
  23.    
  24. appxl.Workbooks("Classeur1.xls" ).Close
  25. Set appxl = Nothing
  27. End Sub


thx

Reply

Marsh Posté le 03-08-2007 à 15:37:54    

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

Code :
  1. Sub lien2fichiers()
  2. For i = 1 To 2000
  3. If Not IsEmpty(Cells(i, 1)) Then
  4. Cells(i, 2) = "Dim appxl As Excel.Application"
  5. Dim fichier As Window
  6. Dim feuille As Worksheet
  7. Set appxl = CreateObject("Excel.application" )
  8.    
  9.  
  10. With appxl
  11.     .Workbooks.Open "S:\CLOTURE 2007 ANNEMASSE - B28 -\DIVERS\Base articles FT 072007.xls"
  12.     .Visible = False
  13. End With
  15. Set fichier = appxl.Windows("Base articles FT 072007.xls" )
  16.             fichier.Activate
  17. Set feuille = appxl.Sheets("Base articles FT 072007" )
  18.             feuille.Range("A1" ).Select
  19.    
  20.     Windows("gfg .xls" ).Activate
  21.      Cells(i, 2).Select
  22.     ActiveCell.FormulaR1C1 = _
  23.         "=VLOOKUP(RC[-1],'Base articles FT 072007.xls'!R8C2:R17165C5,4,FALSE)"
  24.    
  25. appxl.Workbooks("Base articles FT 072007.xls" ).Close
  26. Set appxl = Nothing
  27. Else
  28. Cells(i, 2) = ""
  29. End If
  30. Next i
  31. End Sub


Est ce que je peux faire plus simple, sachant que c du vba/excel (on peux pas virer les dil et applx)
merci
 
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed