Extraire

A

anna

Guest

• 3 Juin 2005

• #31

alors la tu va regretter de m avoir repondu al premiere fois 😉 😱
alors ca ne marche toujour pas
ce que je fais:
j ouvre les deux fichier

je me mes sur Fiche_DAR puis je lance la Macro

Sub Regroupe()
Application.ScreenUpdating = False
DL1 = Workbooks('Fiche_DAR').Sheets(1).Range('a65536').End(xlUp).Row
DL2 = Workbooks('Fiche_DAR_Temp').Sheets(1).Range('a65536').End(xlUp).Row

Workbooks('Fiche_DAR_Temp').Sheets(1).Activate
Workbooks('Fiche_DAR_Temp').Sheets(1).Range('a4:AE' & DL2).Copy
Workbooks('Fiche_DAR').Sheets(1).Activate
ActiveSheet.Paste Destination:=Worksheets(1).Range('a' & DL1 + 1)

Application.ScreenUpdating = True


End Sub


Le AE etant ma derniere colonne dans les deux fichier et a4 car les donne ne commence qu 'a a4
et la paf erreur toujour dans DL1

pleaaaaaaase heeeelp me.
thanks to you sir 🙂

 

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 3 Juin 2005

• #32

Re Bonjour Anna

Le dossier Zip avec les deux fichiers fonctionnent parfaitement

Baside [file name=ANNA.zip size=12902]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ANNA.zip[/file]

 

Pièces jointes

• ANNA.zip

  12.6 KB · Affichages: 29
• ANNA.zip

  12.6 KB · Affichages: 26
• ANNA.zip

  12.6 KB · Affichages: 23

Vote positif 0 Vote négatif

A

anna

Guest

• 3 Juin 2005

• #33

alors la je n comprend plus rien
j ai ouvert tes deux fichier et j ai lancer la macro regroupe depuis Fiche_DAR eh ben j ai toujour le message d'erreur:
'Erreur d'execution '9'
L'indice n'appartient pas a la selection.
serieux je n comprend plus rieen
je suis au bord de la crise de nerf la.
je suis vraiment desole de t embeter comme ca chef 😱

 

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 3 Juin 2005

• #34

ReeeeeBonjour Anna le forum

Comment çà marche ?

Ouvrir les deux dossiers

Menu --> Fenêtre --> Réorganiser --> Vertical

Cliquer sur le bouton GO et observer

Baside [file name=ANNA_20050603151216.zip size=13301]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ANNA_20050603151216.zip[/file]

 

Pièces jointes

• ANNA_20050603151216.zip

  13 KB · Affichages: 26

Vote positif 0 Vote négatif

A

anna

Guest

• 3 Juin 2005

• #35

Serieux toujours rien toujours le meme message.
j ai meme redemarrer en se disant qu il y a peu etre des truc qui traine et toujour rien.
:silly:

 

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 3 Juin 2005

• #36

Re

Essais sur 2000 ou 2003 sous Win 2000 Pro pas de problèmes

Ya un truc mais où ?

Pas dans le fichier

Baside

P.S. ouvre VBE avec Alt+F1 positionne le curseur sur la première ligne de la macro et touche F8, F8 ... pour voir où la macro coince

 

Vote positif 0 Vote négatif

A

anna

Guest

• 3 Juin 2005

• #37

en fait ca coince des que j essaie d'execute la ligne:
DL1 = Workbooks('Fiche_DAR').Sheets(1).Range('a65536').End(xlUp).Row

anna

 

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 3 Juin 2005

• #38

Regarde le nom du fichier et si la feuille est bien en première position (le plus à gauche), il doit y avoir un pb de ce côté là

 

Vote positif 0 Vote négatif

A

anna

Guest

• 3 Juin 2005

• #39

ben non tout est ok en plus je n fais maintenant des test que sur les deux fichier que tu viens de m'envoyer avec le bouton GO!!!!!!
pitieeeeeeeeeeeeeeeeeee,je vais passe un sale WE avec ca :evil:

 

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 3 Juin 2005

• #40

Envoie le dossier origine que je regarde

 

Vote positif 0 Vote négatif

A

anna

Guest

• 3 Juin 2005

• #41

ne t etonne pas si tu vois les meme donne c juste pour les test
on a un fichier Temp à 63 ligne de donée et le fiche_DAR (qui est cense recupere plus tard tout les donnée doit a la fin contenir 63+63 ligne. [file name=Test_20050603160626.zip size=34943]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_20050603160626.zip[/file]

 

Pièces jointes

• Test_20050603160626.zip

  34.1 KB · Affichages: 36

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 3 Juin 2005

• #42

T'as une version américaine d'excel ?

les feuilles ont comme nom sheet1

Il faut nommer Feuil1 ... tes feuilles pour que le code fonctionne ou mettre Sheet1 dans le code

 

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 3 Juin 2005

• #43

J'ai une erreur avec tes fichiers je regarde

 

Vote positif 0 Vote négatif

A

anna

Guest

• 3 Juin 2005

• #44

oui mais dans le code j utilise bien Sheet1
puis j ai renommer sheet en feuil1 et toujours rien

 

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 3 Juin 2005

• #45

Ces fichiers avec la macro fonctionnent bien sur mon ordi [file name=ANNA_Ba.zip size=29646]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ANNA_Ba.zip[/file]

 

Pièces jointes

• ANNA_Ba.zip

  29 KB · Affichages: 32

Vote positif 0 Vote négatif