Copie/colle cellule excel d'1 fichier à 1autr
Résolu
tony020422
Messages postés
445
Date d'inscription
Statut
Membre
Dernière intervention
-
NicoDisso Messages postés 230 Date d'inscription Statut Membre Dernière intervention -
NicoDisso Messages postés 230 Date d'inscription Statut Membre Dernière intervention -
Bonjour tout le monde,
je voudrais réaliser qqch de simple pr vous Ô programmeurs mais que je ne sais pas mettre en oeuvre....
il faudrait arriver a 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 nbeuses 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 pr votre aide !!
je voudrais réaliser qqch de simple pr vous Ô programmeurs mais que je ne sais pas mettre en oeuvre....
il faudrait arriver a 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 nbeuses 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 pr votre aide !!
A voir également:
- Copie/colle cellule excel d'1 fichier à 1autr
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Excel cellule couleur si condition texte - Guide
- Comment réduire la taille d'un fichier - Guide
24 réponses
Slt nico!! dsl de répondre que maintenant mais g t hier en entretien d'embauche tte la journée ;-)
Comme je te l'ai dit dans l'autre post:
pr mon pb je l'ai résolu à l'aide de ca:
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 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
je sais pas si c'est la meilleure solution mais ca marche!! par contre pr le pb des choix de bac d'alimentation pr l'impression mes recherches internet m'avaient orientées vers ce que tu me proposes mais je ne sais pas comment le réaliser...RDV sur ce fil de discussion ;-)
Comme je te l'ai dit dans l'autre post:
pr mon pb je l'ai résolu à l'aide de ca:
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 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
je sais pas si c'est la meilleure solution mais ca marche!! par contre pr le pb des choix de bac d'alimentation pr l'impression mes recherches internet m'avaient orientées vers ce que tu me proposes mais je ne sais pas comment le réaliser...RDV sur ce fil de discussion ;-)
Ok,
en fait tu fais une nouvelle imprimante qui boucle vers celle que tu veux utiliser et tu l'appelle imprimante Bac 01
Ensuite dans les options d'impression par défaut tu definis le bac 01.
idem pour la suite imprimante Bac 02 defini Bac 02
apres dans ton programme, tu n'as plus qu'a selectionner l'imprimante qui va bien
PS : pour ton entretin d'embauche, tu prevois des petites royalties pour moi ;-))
en fait tu fais une nouvelle imprimante qui boucle vers celle que tu veux utiliser et tu l'appelle imprimante Bac 01
Ensuite dans les options d'impression par défaut tu definis le bac 01.
idem pour la suite imprimante Bac 02 defini Bac 02
apres dans ton programme, tu n'as plus qu'a selectionner l'imprimante qui va bien
PS : pour ton entretin d'embauche, tu prevois des petites royalties pour moi ;-))
Slt Nico,
en fait je ss en stage sur marseille, mais j'ai fais un entretien sur Nice....du coup mon appli a seduit sur marseille mais sur nice ils ne l'ont pas vu.....certes j'en ai parlé vite fait mais c'est diffiile a cerner ce que cela fait...
il n'empeche que je ss vraiement content de ce que j'ai fais, et que ca a bcp plu.....reste que c'est en grande partie dû a toi!!
Merci pr tt c'est sur!!
par contre j'ai compris le principe de ce qu'il faudrait faire......mais je ne sais pas comment le formaliser....
en fait je ss en stage sur marseille, mais j'ai fais un entretien sur Nice....du coup mon appli a seduit sur marseille mais sur nice ils ne l'ont pas vu.....certes j'en ai parlé vite fait mais c'est diffiile a cerner ce que cela fait...
il n'empeche que je ss vraiement content de ce que j'ai fais, et que ca a bcp plu.....reste que c'est en grande partie dû a toi!!
Merci pr tt c'est sur!!
par contre j'ai compris le principe de ce qu'il faudrait faire......mais je ne sais pas comment le formaliser....
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
En plus t'es dans le sud, t'as trop de chance ! ;-)
par contre j'ai compris le principe de ce qu'il faudrait faire......mais je ne sais pas comment le formaliser....
c'est a dire, que veux tu formaliser ?
par contre j'ai compris le principe de ce qu'il faudrait faire......mais je ne sais pas comment le formaliser....
c'est a dire, que veux tu formaliser ?
ben en fait je ss nicois a la base ... et j'essai au max de rester dans le Sud....c'est pas simple mais je m'accroche!
ben pr formaliser ca:
"en fait tu fais une nouvelle imprimante qui boucle vers celle que tu veux utiliser et tu l'appelle imprimante Bac 01
Ensuite dans les options d'impression par défaut tu definis le bac 01.
idem pour la suite imprimante Bac 02 defini Bac 02
apres dans ton programme, tu n'as plus qu'a selectionner l'imprimante qui va bien"
c'est pas evident pr une quiche comme moi ;-)
ben pr formaliser ca:
"en fait tu fais une nouvelle imprimante qui boucle vers celle que tu veux utiliser et tu l'appelle imprimante Bac 01
Ensuite dans les options d'impression par défaut tu definis le bac 01.
idem pour la suite imprimante Bac 02 defini Bac 02
apres dans ton programme, tu n'as plus qu'a selectionner l'imprimante qui va bien"
c'est pas evident pr une quiche comme moi ;-)
tiens au fait je dois avoir un beug avec excel...j'ai 2 fichiers ouverts que je souhaite fermer..
celui actif s'appelle Tableau de Bord modifie.XLS tandis que l'autre en ofn s'appelle Création dossier chantiers.xls
j'aimerais enregistrer les modifs de Tableau de Bord modifie.XLS et ne pas enregistrer celle de l'autre fichier..
j'ai ca comme script:
ActiveWindow.Close savechanges:=True
Workbooks("Création dossier chantiers.xls").Close savechanges:=False
A la fin pr fermer excel j'ai essayé tt ce que j'ai trouvé la mais rien n'y fait!! excel reste ouvert.....comprends pas!!
https://forum.hardware.fr/hfr/Programmation/VB-VBA-VBS/commande-fermer-vba-sujet_72324_1.htm
celui actif s'appelle Tableau de Bord modifie.XLS tandis que l'autre en ofn s'appelle Création dossier chantiers.xls
j'aimerais enregistrer les modifs de Tableau de Bord modifie.XLS et ne pas enregistrer celle de l'autre fichier..
j'ai ca comme script:
ActiveWindow.Close savechanges:=True
Workbooks("Création dossier chantiers.xls").Close savechanges:=False
A la fin pr fermer excel j'ai essayé tt ce que j'ai trouvé la mais rien n'y fait!! excel reste ouvert.....comprends pas!!
https://forum.hardware.fr/hfr/Programmation/VB-VBA-VBS/commande-fermer-vba-sujet_72324_1.htm
il te demande d'enregistrer ton classeur ?
Si oui , il faut lui dire
Workbooks("Création dossier chantiers.xls").saved = true
comme ca il t'embete plus
et si c'est pour fermer excel
application.quit
Si oui , il faut lui dire
Workbooks("Création dossier chantiers.xls").saved = true
comme ca il t'embete plus
et si c'est pour fermer excel
application.quit
avec mon script tt se passe comme je veux.....sauf que quelque soit le code que je tape rien n 'y fait excel ne veut pas se fermer!!
par contre une idée sur l'histoire des imprimantes ?!
par contre une idée sur l'histoire des imprimantes ?!
aa c bon...j'ai rajouté ca dans "ThisWorkBook"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Quit
End Sub
et excel se ferme bien !!
pr les imprimantes je ne sais tjs pas comment procéder........si tu pouvais me filer un coup de main !
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Quit
End Sub
et excel se ferme bien !!
pr les imprimantes je ne sais tjs pas comment procéder........si tu pouvais me filer un coup de main !
tu as combien de fenetre ouverte quand tu veux fermer excel ?
pour ce qui est des imprimantes c'est dans windows que ca se passe, tu dois le faire avant sur chaque poste qui utilse ton programme...
pour ce qui est des imprimantes c'est dans windows que ca se passe, tu dois le faire avant sur chaque poste qui utilse ton programme...
Pr Excel le pb est réglé ca y est....
Pr mon appli, un seul PC va en etre équipé......les accés y sont trés restreints (java, sons et options régionales sont les seules options dispos dans le panneau de config.....) et je ne sais pas comment réaliser ce dont tu me parles! mais si c'est trop compliqué c'est pas grave je laisse tomber........
Pr mon appli, un seul PC va en etre équipé......les accés y sont trés restreints (java, sons et options régionales sont les seules options dispos dans le panneau de config.....) et je ne sais pas comment réaliser ce dont tu me parles! mais si c'est trop compliqué c'est pas grave je laisse tomber........
Tu sais installer une imprimante dans windows ?
--
Le succès, c'est la hauteur à laquelle vous rebondissez quand vous avez touché le fond.
--
Le succès, c'est la hauteur à laquelle vous rebondissez quand vous avez touché le fond.
panneau de configuration/imprimante/ajouter une imprimante.
Ensuite tu regardes celle que tu veux utiliser et tu l'installes.
donc tu vas l'avoir en double, sur la nouvelle clique droit option dimpression et tu lui dis le magasin a utiliser.
et voila...
Ensuite tu regardes celle que tu veux utiliser et tu l'installes.
donc tu vas l'avoir en double, sur la nouvelle clique droit option dimpression et tu lui dis le magasin a utiliser.
et voila...
ba vi alors c'est la manip que je pensais faire.....................mais je n'ai pas accés a ca:
Panneau de configuration/imprimante/ajouter une imprimante car les accés sont super restreints!!
Panneau de configuration/imprimante/ajouter une imprimante car les accés sont super restreints!!
j'ai trouvé ca mais je sais pas si ca peut le faire...........
https://codes-sources.commentcamarche.net/
https://codes-sources.commentcamarche.net/
quoi que je viens d'accéder à "imprimante et telecopieurs"......et il y a ttes les impimantes de l'agence.......