Récupérer Cellules dans un fichier Excel pour les copier dans un autre [Résolu]

Messages postés
70
Date d'inscription
jeudi 8 janvier 2009
Statut
Membre
Dernière intervention
21 juin 2011
- - Dernière réponse : cs_Juju1988
Messages postés
70
Date d'inscription
jeudi 8 janvier 2009
Statut
Membre
Dernière intervention
21 juin 2011
- 29 juil. 2010 à 11:44
Bonjour,

Je suis actuellement en stage et amenée à développer en VBA. Je m'exerce un peu avant de me lancer sur le travail confié et j'aurais besoin de votre aide...

Je dispose d'un fichier "analyses.xls" et j'aimerai récupérer dans ce fichier la cellule se situant juste après celle contenant "N° lot" ...

Et ensuite copier le contenu de cette cellule dans mon fichier "essai vba.xls" à un emplacement précis.

J'essaie avec la fonction Find ... mais j'avoue que je bloque un peu beaucoup ...

Pourriez vous m'aider?

Merci d'avance,
Afficher la suite 

9/49 réponses

Messages postés
70
Date d'inscription
jeudi 8 janvier 2009
Statut
Membre
Dernière intervention
21 juin 2011
0
Merci
Le fichier analyses.xls est bien fermé il ne s'ouvre que au moment ou je l'appelle au niveau du
Call Ouvre 
...
Commenter la réponse de cs_Juju1988
Messages postés
70
Date d'inscription
jeudi 8 janvier 2009
Statut
Membre
Dernière intervention
21 juin 2011
0
Merci
Merci encore abdellatyif !!
Commenter la réponse de cs_Juju1988
Messages postés
34
Date d'inscription
jeudi 10 juillet 2003
Statut
Membre
Dernière intervention
29 juillet 2010
0
Merci
enfin
de rien mon ami c'est avec plaisir
Commenter la réponse de cs_abdellatyif
Messages postés
2
Date d'inscription
samedi 17 novembre 2007
Statut
Membre
Dernière intervention
29 juillet 2010
0
Merci
Bonjour,

Je me trouve dans la même situation, et j'ai besoin de récupérer quelques informations d'un fichier excel pour ensuite les copier dans un fichier qui contient un tableau de bord.
J'ai essayé de faire la manipulation avec le code ci-dessus, mais il y a l'erreur qui s'affiche "Erreur d'éxecution 1004".

Est-ce que quelqu'un de vous pourriez m'expliquer où se trouve l'erreur SVP?

Merci d'avance,
Commenter la réponse de moraes78
Messages postés
70
Date d'inscription
jeudi 8 janvier 2009
Statut
Membre
Dernière intervention
21 juin 2011
0
Merci
Cela fait l'erreur sur quelle ligne?
Commenter la réponse de cs_Juju1988
Messages postés
34
Date d'inscription
jeudi 10 juillet 2003
Statut
Membre
Dernière intervention
29 juillet 2010
0
Merci
salut juju et moraes ça va?

je crois que vous avez écris votre code dans une feuille, essayé de le recopier dans un module et vérifié si tu as tjrs le même message d'erreur

bon dv
Commenter la réponse de cs_abdellatyif
Messages postés
70
Date d'inscription
jeudi 8 janvier 2009
Statut
Membre
Dernière intervention
21 juin 2011
0
Merci
Oui ça doit être ça j'ai fait l'erreur déjà ;)
Commenter la réponse de cs_Juju1988
Messages postés
2
Date d'inscription
samedi 17 novembre 2007
Statut
Membre
Dernière intervention
29 juillet 2010
0
Merci
Bonjour abdellatyif et juju,

L'erreur se trouve dans à partir de ces lignes:

Selection.Copy
Windows("essai vba.xls").Activate
Range("B1").Select


Alors, je ne comprends pas l'erreur !!

Merci à vous et bonne journée
Commenter la réponse de moraes78
Messages postés
70
Date d'inscription
jeudi 8 janvier 2009
Statut
Membre
Dernière intervention
21 juin 2011
0
Merci
Est ce que ton code est dans un module ou dans une feuille?

Sinon essaie d'activer ta feuille de classeur
exemple :

Sheets("Données Rapports").Activate
Commenter la réponse de cs_Juju1988