FORUM MP | Bureautique - Excel : Transferts de valeurs sur un classeur

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

Transferts de valeurs sur un classeur
	Forum : BUREAUTIQUE - EXCEL Sous Catégorie : Excel Type du sujet : Sujet Normale FAQ : FAQ BUREAUTIQUE - EXCEL
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGES : [1] [2]

FORUM BUREAUTIQUE - EXCEL
	Page précedente	Page suivante

Veltins
Nouveau membre

Inscrit : 02/07/2007
Messages : 29

#138511 Posté le 17/07/07 à 12:31

Bonjour,

Je voudrais copier une série de valeur d'une feuille (Saisie) d'un classeur (Bilan) vers un autre classeur (TRIM1,2,3,4 selon le trimestre).

J'ai une erreur qui apparaît, la 9 mais je ne vois pas du tout où je pourrais avoir faux...

Voici ma macro :

Sub TRIM() Select Case Workbooks("Bilan.xls").Worksheets("Hebdo1").[A1].Value Case 1, 2, 3 Workbooks.Open Filename:="W:\…\TRIM1.xls" Workbooks(ClassOuv).Worksheets("a").Range("A3:BA3").Value = Workbooks("Bilan.xls").Worksheets("Saisie").Range("A5:BA5").Value Case 4, 5, 6 Workbooks.Open Filename:=" W:\…\TRIM2.xls " Workbooks(ClassOuv).Worksheets("a").Range("A3:BA3").Value = Workbooks("Bilan.xls").Worksheets("Saisie").Range("A5:BA5").Value Case 7, 8, 9 Workbooks.Open Filename:=" W:\…\TRIM3.xls " Workbooks(ClassOuv).Worksheets("a").Range("A3:BA3").Value = Workbooks("Bilan.xls").Worksheets("Saisie").Range("A5:BA5").Value Case 10, 11, 12 Workbooks.Open Filename:=" W:\…\TRIM4.xls.xls" Workbooks(ClassOuv).Worksheets("a").Range("A3:BA3").Value = Workbooks("Bilan.xls").Worksheets("Saisie").Range("A5:BA5").Value End Select FermTRIM End Sub Sub FermTRIM() 'Ferme tous les classeurs sauf Bilan ActiveWorkbook.Close SaveChanges:=True End Sub

Avez-vous une idée ? Merci d'avance.
Veltins

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1726

#138657 Posté le 19/07/07 à 09:49

bonjour

qu'est-ce que ..... Workbooks(ClassOuv).... ????? Smiley

je crois qu'il serait mieux de copier (copy) la selection
et de la coller (past ou PasteSpecial)

????? [col]un truc dans le genre[/col]

Sub TRIM() Select Case Workbooks("Bilan.xls").Worksheets("Hebdo1").[A1].Value Case 1, 2, 3 Workbooks.Open Filename:=ThisWorkbook.Path & "\TRIM1.xls " Range("A5:BA5").Select Selection.Copy Case 4, 5, 6 Workbooks.Open Filename:=ThisWorkbook.Path & "\TRIM2.xls " Range("A5:BA5").Select Selection.Copy Case 7, 8, 9 Workbooks.Open Filename:=ThisWorkbook.Path & "\TRIM3.xls " Range("A5:BA5").Select Selection.Copy Case 10, 11, 12 Workbooks.Open Filename:=ThisWorkbook.Path & "\TRIM4.xls " Range("A5:BA5").Select Selection.Copy End Select Windows("Bilan.xls").Activate Range("A3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A4").Select FermTRIM End Sub

__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

Veltins
Nouveau membre

Inscrit : 02/07/2007
Messages : 29

#138680 Posté le 19/07/07 à 15:10

Oui c'est beaucoup mieux :)

J'ai une dernière question.

Je voudrais, lorsque je copie ma série de valeur sur la ligne de mon autre classeur, que le lendemain (puisque cela s'effectue une fois par jour) cette nlle ligne avec les nlles valeurs donc s'insert mais en dessous de celle de la veille. J'ai trouvé une macro mais elle me fait le contraire c'est à dire qu'elle insert une ligne au dessus.

J'ai ceci :

Rows("5:5").Select Application.CutCopyMode = False Selection.Insert Shift:=xlDown

Je dois changer quoi exactement pour insérer une ligne en dessous (sachant que je copie ma ligne dans A5:BX5 ?
Merci par avance !

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1726

#138683 Posté le 19/07/07 à 16:13

non c'est pas bon

il faut connaitre la dernière ligne occupée de la colonne A par exemple
avec :
ici derL indique la dernière ligne occupée

derL = Range("A65536").End(xlUp).Row

donc pour avoir la première ligne vide mettre :

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

maintenant que l'on connait la ligne vide on peut saisir la cellule

cells(derLV,1).select

donc dans le programme au lieu de mettre range("A5") qui est une valeur fixe remplacer par ce que je viens d'expliquer

me dire si besoin d'un exemple !!!! Smiley

Voilà
Cdlt
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

Veltins
Nouveau membre

Inscrit : 02/07/2007
Messages : 29

#138777 Posté le 20/07/07 à 08:06

Je teste ceci ce matin.
Merci

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1726

#138783 Posté le 20/07/07 à 10:03

Bonjour

voilà l'exemple Cliquez ICI

à décompresser sur votre disque dur

Smiley

__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1726

#138877 Posté le 21/07/07 à 10:16

Alors qu'en est-il ?
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

Veltins
Nouveau membre

Inscrit : 02/07/2007
Messages : 29

#138936 Posté le 22/07/07 à 12:47

Bonjour,

Je n'ai pas pu tester les fichiers excel mais merci bcp !!!

J'ai testé par contre le premier code par contre, je n'ai que ma cellule B qui se remplie... J'ai donc noté ceci, ca fonctionne mais je pense qu'il doit y avoir une autre solution pour alléger ma macro :

Sheets("Relevé Jour").Select
derLV = Range("B65536").End(xlUp).Row + 1 (je commence dans la colonne B en fait)
Cells(derLV, 1).Select

Worksheets("Relevé Jour.xls").Cells(derLV, 1) = Workbooks("Bilan.xls").Worksheets("Saisie").Range("A5").Value

...

et comme je dois remplir ma ligne jusqu'à la colonne BA, j'ai plus de 52 lignes de programme du coup...

Je peux pas faire plus simple ?
Merci.

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1726

#138951 Posté le 22/07/07 à 21:26

je ne comprends pas trop la demande ???

pour connaître la première ligne vide de la colonne B oui il faut :
derLV = Range("B65536").End(xlUp).Row + 1

pour selectionner la cellule c'est juste

si tu as suivi mon exemple il ne devrait pas y avoir de blème !!!!
c'est ici que je ne pige pas ;-)))
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

Veltins
Nouveau membre

Inscrit : 02/07/2007
Messages : 29

#139054 Posté le 24/07/07 à 08:25

Bonjour,

J'ai essayé de mettre en place le programme que tu as fais mais malheureusement j'ai une erreur sur la ligne qui colle la sélection (PasteSpecial...).

Smiley

HAUT DE PAGE


	Page précédente	Page suivante
FORUM BUREAUTIQUE - EXCEL

PAGES : [1] [2]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.