Copie/colle cellule excel d'1 fichier à 1autr
Résolu/Fermé
tony020422
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
-
3 juin 2009 à 14:08
NicoDisso Messages postés 230 Date d'inscription mardi 26 mai 2009 Statut Membre Dernière intervention 22 août 2009 - 5 juin 2009 à 14:45
NicoDisso Messages postés 230 Date d'inscription mardi 26 mai 2009 Statut Membre Dernière intervention 22 août 2009 - 5 juin 2009 à 14:45
A voir également:
- Copie/colle cellule excel d'1 fichier à 1autr
- Fichier rar - Guide
- Liste déroulante excel - Guide
- Fichier host - Guide
- Aller à la ligne dans une cellule excel - Guide
- Fichier iso - Guide
24 réponses
NicoDisso
Messages postés
230
Date d'inscription
mardi 26 mai 2009
Statut
Membre
Dernière intervention
22 août 2009
32
4 juin 2009 à 10:05
4 juin 2009 à 10:05
Pourquoi tu ne fais pas une boucle au lieu du copier coller ?
tony020422
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
6
5 juin 2009 à 09:46
5 juin 2009 à 09:46
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 ;-)
NicoDisso
Messages postés
230
Date d'inscription
mardi 26 mai 2009
Statut
Membre
Dernière intervention
22 août 2009
32
5 juin 2009 à 09:51
5 juin 2009 à 09:51
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 ;-))
tony020422
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
6
5 juin 2009 à 10:09
5 juin 2009 à 10:09
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
NicoDisso
Messages postés
230
Date d'inscription
mardi 26 mai 2009
Statut
Membre
Dernière intervention
22 août 2009
32
5 juin 2009 à 10:11
5 juin 2009 à 10:11
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 ?
tony020422
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
6
5 juin 2009 à 10:15
5 juin 2009 à 10:15
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 ;-)
tony020422
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
6
5 juin 2009 à 11:07
5 juin 2009 à 11:07
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
NicoDisso
Messages postés
230
Date d'inscription
mardi 26 mai 2009
Statut
Membre
Dernière intervention
22 août 2009
32
5 juin 2009 à 11:11
5 juin 2009 à 11:11
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
tony020422
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
6
5 juin 2009 à 11:28
5 juin 2009 à 11:28
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 ?!
tony020422
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
6
5 juin 2009 à 11:41
5 juin 2009 à 11:41
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 !
NicoDisso
Messages postés
230
Date d'inscription
mardi 26 mai 2009
Statut
Membre
Dernière intervention
22 août 2009
32
5 juin 2009 à 11:41
5 juin 2009 à 11:41
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...
tony020422
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
6
5 juin 2009 à 11:48
5 juin 2009 à 11:48
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........
NicoDisso
Messages postés
230
Date d'inscription
mardi 26 mai 2009
Statut
Membre
Dernière intervention
22 août 2009
32
5 juin 2009 à 12:00
5 juin 2009 à 12:00
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.
tony020422
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
6
5 juin 2009 à 12:01
5 juin 2009 à 12:01
eeuuhhh....pas sur... lol
NicoDisso
Messages postés
230
Date d'inscription
mardi 26 mai 2009
Statut
Membre
Dernière intervention
22 août 2009
32
5 juin 2009 à 12:03
5 juin 2009 à 12:03
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...
tony020422
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
6
5 juin 2009 à 12:05
5 juin 2009 à 12:05
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!!
tony020422
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
6
5 juin 2009 à 12:05
5 juin 2009 à 12:05
j'ai trouvé ca mais je sais pas si ca peut le faire...........
https://codes-sources.commentcamarche.net/
https://codes-sources.commentcamarche.net/
tony020422
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
6
5 juin 2009 à 12:06
5 juin 2009 à 12:06
quoi que je viens d'accéder à "imprimante et telecopieurs"......et il y a ttes les impimantes de l'agence.......
tony020422
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
6
5 juin 2009 à 12:07
5 juin 2009 à 12:07
mais je ne peux pas ajouter quoi que ce soit....restrictions trop fortes...
tony020422
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
6
5 juin 2009 à 12:08
5 juin 2009 à 12:08
je crois que je v devoir me résigner, ca va pas etre possible de faire ce que je veux......