vicctoria
Messages postés17Date d'inscriptionmercredi 21 janvier 2009StatutMembreDernière intervention13 février 2009
-
13 févr. 2009 à 09:39
vicctoria
Messages postés17Date d'inscriptionmercredi 21 janvier 2009StatutMembreDernière intervention13 février 2009
-
13 févr. 2009 à 14:55
Bonjour, voilà je souhaite copier des cellules d'un fichier dans un autre sous excel, pour cela, j'ai créé cette écriture avec laquelle ça marche.
Seulement je souhaite automatiser cela de sorte que dès que je saisi mon texte dans ma cellule de mon fichier 1, la cellule de mon fichier 2 se remplisse automatiquement.
Merci de m'aider
Vicctoria
Sub COPIER()
'Selectionne et Copie la Cellule indiquée
'
'Macro1 Macro
'Macro enregistrée le 02/02/2009 par auberta
'
Windows("NOTE DE FRAIS.xls").Activate
Sheets("Feuil1").Activate
Range("D8").Copy
'End Sub
'Sub COLLER()
'Selectionne puis Colle la Première Cellule Vide à partir de la Cellule indiquée
'
Windows("Budget deplacement 2009.xls").Activate
Sheets("2009").Select
Range("B44").Select
Do While ActiveCell.Value > ""
ActiveCell.Offset(1, 0).Select
Loop
vicctoria
Messages postés17Date d'inscriptionmercredi 21 janvier 2009StatutMembreDernière intervention13 février 2009 13 févr. 2009 à 12:04
Alors, nous en sommes donc qu'avec ton écriture, ma cellule D8 du classeur " NOTE DE FRAIS"se copie, ma ne se colle toujours pas automatiquement dans A44 du classeur "Budget deplacement 2009"
vicctoria
Messages postés17Date d'inscriptionmercredi 21 janvier 2009StatutMembreDernière intervention13 février 2009 13 févr. 2009 à 14:44
Re
Voilà ce que j'ai fais, j'ai vu avec mon responsable et c'est ce qu'il recherche mais il y a une erreur dans la ligne :
Sheets("2009").Select de
Sub COPIER()
'Selectionne et Copie la Cellule indiquée
'
'Macro1 Macro
'Macro enregistrée le 02/02/2009 par auberta
'
Windows("NOTE DE FRAIS.xls").Activate
Sheets("Feuil1").Activate
Range("N33").Copy
'End Sub
'Sub COLLER()
'Selectionne puis Colle la Première Cellule Vide à partir de la Cellule indiquée
'
Application.Workbooks.Open("F:\Methodes\Emma\Budget deplacement 2009.xls").Activate
Windows("Budget deplacement 2009.xls").Activate
Sheets("2009").Select
Range("D44").Select
Do While ActiveCell.Value > ""
ActiveCell.Offset(1, 0).Select
Loop
vicctoria
Messages postés17Date d'inscriptionmercredi 21 janvier 2009StatutMembreDernière intervention13 février 2009 13 févr. 2009 à 14:55
Va savoir pourquoi lol
C'est car il veut un copier et coller
Je peux pas t'expliquer pourquoi....désolée
Oui dans mon document 2 ( Budget deplacement 2009), Je dois coller mes données dans l'onglet 2009