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

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