code VBA copie colle cellule d'1 fichier excel à 1autre

Bonjour tout le monde,

Je voudrais réaliser quelque chose de simple, mais que je ne sais pas mettre en oeuvre....

Il faudrait arriver à copier le contenu d'une cellule (exemple C9) d'1 fichier excel (appelé Création dossier chantiers.xls) vers 1 autre fichier excel appelé Tableau de Bord modifié.XLS et stocké ici:
Y:\TKAF\R04\A422\_Commun-Agence\Roger\Travail Antony

Attention le ficher de destination possède déjà de nombreuses lignes... Il convient de coller la valeur à la suite de ce qu'il y a déjà.... Dans la colonne A par exemple.


Merci par avance pour votre aide !! :ccool:

Bonjour,
si tes deux fichiers sont ouverts :

Code:

---

1 2 3 4 5

dim dl as integer with workbooks("travail antony.xls").worksheets("nomde tafeuille") dl = .range("a" & .rows.count).end(xlup).row + 1 .range("a" & dl).value = workbooks("Création dossier chantiers.xls").worksheets("nomdetafeuille").range("c9").value end with

---

à adapter

Je ne suis pas programmeur mais plutôt une sorte d'hybride entre le mathématicien et le mécanicien, c'est pourquoi tu n'auras pas un code tout fait mais des piste pour faire ton propre code ;)

Pour ouvrir un fichier regarde l'aide sur

Code:

---

Workbooks.Open

---

L'enregistreur de macro aurait très bien pu te donner la commande.

ensuite je te conseiller de préciser a chaque fois quelle classeur tu utilise

Code:

---

workbooks("classeur1.xls).worsheets("feuil1").CeQueTuVeux

---

Pour copier regarde l'aide sur la fonction copy
tu peux directement mettre la cible a la suite c'est plus pratique dans ton cas
enfin
pour connaitre la dernière ligne utilisé d'une feuille regarde ici tu rajoute 1 et tu a le numéro de la première ligne vide

Voila je te laisse regarder tout ca. Commence ta macro fait quelque essai puis reviens nous voir si ca coince

Edit : Bonjour casefayere, visiblement tu as été plus gentil que moi ;)

Bonjour Krovax,

Citation:

---

visiblement tu as été plus gentil que moi

---

mon bon coeur me perdra 8-)
Mon code n'est valable que si les deux classeurs sont ouverts, je n'ai jamais regardé les codes pour travailler sur des classeurs fermés ,je préfère les ouvrir:mouarf:

bonne journée

Bonjour Messieurs,

Tout d'abord merci pour vos conseils!!

Pour l'instant rien ne se passe (j'ai rajouté le script à la suite de celui de ma macro) mais je pense que c'est dû au fait que mon fichier excel de destination lance à son tour une macro automatique aussi.....

Je vais donc coller le script a la suite de mon fichier destination......nous verrons bien!

Ca ne marche pas......

En même temps j'ai une erreur ici qui s'explique:

Code:

---

.Range("A" & dl).Value = Workbooks("Création dossier chantiers.xls").Worksheets("Feuil1").Range("C9").Valu

---

puisque je suis à ce moment là sur le fichier Tableau de Bord modifié.XLS

Je ne vois pas trop quoi faire et comment faire...

Je pense que mon code devrait fonctionner, mais comme je n'ai aucune indication sur tes autres codes, je ne peux rien dire,
quels messages d'erreur as-tu ?

J'ai mis ça comme code sur la macro de mon fichier excel d'où je copie les données:

Code:

---

1 2 3 4 5 6 7

Workbooks.Open Filename:="Y:\TKAF\R04\A422\_Commun-Agence\Roger\Travail Antony\Tableau de Bord modifié.XLS"   Dim dl As Integer With Workbooks("Tableau de Bord modifié.XLS").Worksheets("Feuil1") dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1 .Range("A" & dl).Value = Workbooks("Création dossier chantiers.xls").Worksheets("Feuil1").Range("C9").Value End With

---

Dans celui de destination la macro n'est pas compliquée mais fait apparaître un pop up à l'ouverture... Je n'ai rien modifié dans cette macro...

A priori pas de message d'erreur.... Mais rien ne se passe sur le fichier Tableau de Bord modifié.XLS....

sans trop de conviction,
essayes ce code

Code:

---

1 2 3 4 5

Dim dl As Integer With Workbooks("Tableau de Bord modifié.XLS").Worksheets("Feuil1") dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1 .Range("A" & dl).Value = ThisWorkbook.Worksheets("Feuil1").Range("C9").Value End With

---

Je ne comprends pas, j'ai rajouté ça dans mon script mais rien ne se passe... Ni modification, ni erreur...

dans tes deux classeurs respectifs, les feuilles concernées se nomment bien "feuil1" ? est-ce bien la cellule C9 qu'il faut copier ?

si oui, je ne vois pas où est l'erreur

remarque: j'ai fais un test en enlevant ttes les macros "pop up..." s'appliquant sur le dossier source et pareil rien ne se passe!

Sinon oui les 2 feuilles de mes 2 classeurs s'appellent bien Feuil1,

et la cellule a copier est la C9 du classeur "Création dossier chantiers.xls" vers la 1ere cellule vide de la colonne A du classeur "Tableau de Bord modifié.XLS"

juste pour verifier autre chose, peux-tu essayer comme ça

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim dl As Integer, valeuracopier as string valeuracopier = Workbooks("Création dossier chantiers.xls").Worksheets("Feuil1").Range("C9").Value   Workbooks.Open Filename:="Y:\TKAF\R04\A422\_Commun-Agence\Roger\Travail Antony\Tableau de Bord modifié.XLS"   With Workbooks("Tableau de Bord modifié.XLS").Worksheets("Feuil1") dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1 .Range("A" & dl).Value = valeuracopier End With

---

Pas d'erreur mais rien ne se passe...

Je ne comprends vraiment pas là !!:calim2:

Sinon cette commande ne ferait pas la même chose ?!

Code:

---

Cells(Columns(1).Cells.Count, 1).End(xlUp).Row

---

il faut vérifier petit à petit
essayes déjà ça

Code:

---

1 2 3 4

Dim dl As Integer, valeuracopier as string valeuracopier = Workbooks("Création dossier chantiers.xls").Worksheets("Feuil1").Range("C9").Value msgbox valeuracopier stop

---

en début de code pour vérifier la valeur et dis-moi quoi

un mesage box me retourne la valeur de la cellule C9 !! donc ca c'est bon:ccool:

Continues à vérifier à ces lignes

Code:

---

1 2	dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1 msgbox .Range("A" & dl).address

---

avec ca:

Code:

---

1 2 3 4 5

Dim dl As Integer, valeuracopier As String valeuracopier = Workbooks("Création dossier chantiers.xls").Worksheets("Feuil1").Range("C9").Value dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1 MsgBox .Range("A" & dl).Address Stop

---

rien en se passe

en tapant ca tel quel :

Code:

---

1 2 3 4 5 6

Dim dl As Integer, valeuracopier As String 'valeuracopier = Workbooks("Création dossier chantiers.xls").Worksheets("Feuil1").Range("C9").Value dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1 <-- ERREUR MsgBox .Range("A" & dl).Address Stop

---

et l'erreur est :"référence incorrecte ou non qualifiée"

a priori l'erreur est liée au mot "Rows"

donc c'est à ce niveau que quelque chose ne va pas

Code:

---

Workbooks("Tableau de Bord modifié.XLS").Worksheets("Feuil1")

---

ne serait-ce pas le mot modifié => pour modifie,l'accent en moins ?

D'aprés le débogueur l'erreur semble être liée au mot "Rows"......

Mais je vais regarder ce que tu dis (l'histoire de l'accent)

non ss accent rien ne se passe :cry: :cry:

avec ce code la:

Code:

---

1 2 3 4 5 6 7

Workbooks.Open Filename:="Y:\TKAF\R04\A422\_Commun-Agence\Roger\Travail Antony\Tableau de Bord modifie.XLS"   Dim dl As Integer With Workbooks("Tableau de Bord modifie.XLS").Worksheets("Feuil1") dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1 .Range("A" & dl).Value = Workbooks("Création dossier chantiers.xls").Worksheets("Feuil1").Range("C9").Value End With

---

en mettant ca seulement:

Code:

---

1 2 3 4

Workbooks.Open Filename:="Y:\TKAF\R04\A422\_Commun-Agence\Roger\Travail Antony\Tableau de Bord modifie.XLS"   dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1 MsgBox .Range("A" & dl).Address

---

erreur de compilation:référence incorrecte ou non qualifiée a priori dû a "Rows"

et si tu ouvres uniquement ton fichier

Code:

---

1 2 3 4

Workbooks.Open Filename:="Y:\TKAF\R04\A422\_Commun-Agence\Roger\Travail Antony\Tableau de Bord modifié.XLs With Workbooks("Tableau de Bord modifié.XLS").Worksheets("Feuil1") dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1 msgbox dl

---

et vérifie le dl, parce que je suis sur de mon code pour dl, derniere ligne + 1

ce code la me sort "49" qui est bien ma 1ere ligne vide.....

donc le nom de fichier est bon, il est logique que si tu remets cette partie de code

Code:

---

1 2 3 4

With Workbooks("Tableau de Bord modifié.XLS").Worksheets("Feuil1") dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1 .Range("A" & dl).Value = valeuracopier End With

---

a49 doit se retrouver avec la valeur de la variable valeuracopier,

sinon il va certainement falloir que tu envoies tes fichiers avec des données bidon et allégés pour que je regardes de plus près

Bonjour,

Juste pour information, je viens d'essayer le code de Casefayere et chez moi cela fonctionne très bien.

Vous avez essayé en mode Débogage, Pas-à-pas détaillé pour voir ce qui ce passe.

Lorsque vous lancez le code votre 2ème fichier est bien fermé ?

vous pouvez aussi essayer :

Code:

---

dl = .Range("A65536").End(xlUp).Row + 1

---

en ecrivant va:

Code:

---

1 2 3 4 5 6

Workbooks.Open Filename:="Y:\TKAF\R04\A422\_Commun-Agence\Roger\Travail Antony\Tableau de Bord modifie.XLs" With Workbooks("Tableau de Bord modifie.XLS").Worksheets("Feuil1") dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1 .Range("A" & dl).Value = valeuracopier End With MsgBox valeuracopier

---

ca me retourne un msg box mais vide....la valeuracopier semble etre une cellule vide! alors que le contenu de ma cellule C9 de mon fichier "Création dossier chantiers.xls" est "ESSAI" !!

Merci Jacques Jean (et bonsoir),
ça me rassure, je ne suis pas dans l'erreur,
c'est vrai qu'il faudrait vérifier pas à pas

tout à l'heure, tu ne m'as pas répondu pareil

Code:

---

un mesage box me retourne la valeur de la cellule C9 !! donc ca c'est bon

---

je ne comprends plus

Oui mais la variable valeuracopier de toute à l'heure et celle la ne sont pas les même!

Toute à l'heure :

Code:

---

1 2 3 4

Dim dl As Integer, valeuracopier as string valeuracopier = Workbooks("Création dossier chantiers.xls").Worksheets("Feuil1").Range("C9").Value msgbox valeuracopier stop

---

Maintenant :

Code:

---

1 2 3 4

Workbooks.Open Filename:="Y:\TKAF\R04\A422\_Commun-Agence\Roger\Travail Antony\Tableau de Bord modifie.XLs" With Workbooks("Tableau de Bord modifie.XLS").Worksheets("Feuil1") dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1 .Range("A" & dl).Value = valeuracopier

---

je reverrai ce soir car je dois rentrer chez moi

à ce soir

ooo c'est pas vrai le boulet.........

je suis vraiment désolé mais la fatigue etant la je n'ai pas vu que j'avais mis en fin de script:

Code:

---

1 2	Application.Quit ActiveWindow.Close SaveChanges:=False

---

et je vérifiais a chaque fois mon Tableau de Bord modifie.XLS sans jamais constaté de changement...normal vu que ca se fermait sans s'enregistrer !!!!!!!!!!:aie:

aahh j'ai trop les nerfs j'ai perdu du temps et je vais en fait perdre je suis désolé quel débil!!

merci pour tout en tout cas vraiment, votre aide m'est fort précieuse!!!

Bonne fin d'aprem et a bientôt sur developpez :P

Comme quoi il suffisait de vérifier d'abord en "pas-à-pas", vous auriez compris le "pourquoi".

Et merci de ne pas oublier :resolu:

j'étais prêt à me remettre au charbon mais bonne nouvelle ! il n'y pas un langage VBA par utilisateur :aie:
je suis content que ça soit résolu, à moins que........d'autres problèmes viennent se faire jour.

Bonne soirée tony, Jacques Jean, le foruim