Discussion :

[jazziestan]

bonjour,


C'est peut être une question complétement abrutit mais est il possible de compléter un fichier excel sans l'ouvrir?

[Michel_M]

Bonjour,

oui

voir:
http://silkyroad.developpez.com/VBA/ClasseursFermes/

[patricktoulon]

bonjour jazziestan

oui effectivement ca existe mais tres complexe bien que le tuto de silkiroad soit complet il n'en reste pas moins que ca n'est pas si facile j ai eu a recourir a ce procedé et en temp que debutant j y ai laisser quelque cheveux
cependant j ai trouver une autre solution qui est celle ci


a supposer que ton classeur fermé s'appelle "toto.xls et qu'il se trouve dans C:/mondossier

le quel sur celui que tu travail s'appelle "titi.xls"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
private sub boutontransfert_click()
dim trucagarder a variant
trucagarder = range("D17").value
 
 
 
 
 
Workbooks.Open"c:\mon dossier\toto.xls"
 
range ("a1").value=trucagarder
active workbook.close savechange=true
end sub

en gros tu a copier au depart la cellule D17 dans titi.xls

et tu le colle dans toto.xls en A1 et tu save et ferme toto.xls du meme coup
voila pour moi ca marche


bien evidement siitu a plusieur feuille dans toto il te faudra preciser la feuille
a supposer que ca soit la feuille ""feuil1""

Code :

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

1
2
3
 
 
sheets("feuil1").range("a1").value=trucagarder