Discussion :

[tony020422]

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 !!

[casefayere]

Bonjour,
si tes deux fichiers sont ouverts :

Code :

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

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

[Krovax]

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 :

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

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 :

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

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

[casefayere]

Bonjour Krovax,

visiblement tu as été plus gentil que moi

mon bon coeur me perdra
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

bonne journée

[tony020422]

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 :

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

.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...

[casefayere]

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 ?

[tony020422]

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

Code :

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

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....