Discussion :

[lionel63300]

Bonjour

Je fais des extractions excel d'un logiciel de l'éducation nationale.
Avec un autre classeur, je souhaite synthétiser les données de cette extraction par l'intermédiaire de TCD et autres requêtes.

Mon problème est que lors d'une nouvelle extraction, et donc "écrasement" de mon fichier de base de donnée, le deuxième classeur ne reconnait plus sa source ! Il n'aime pas se faire remplacer la première ligne !

Après pas mal de temps, à lire les aides ou à fréquenter d'autres forums, j'en suis venu à vouloir passer par du VBE qui ouvrirait mon extraction, copierait à partir de la 2° ligne, ouvrirait ma base de données, collerait les données, et fermerait les deux classeurs ! ouf !

J'y arrive presque(enfin, je crois), mais j'ai encore quelques petits problèmes.
La première fois, cela marche bien (sauf pour la fermeture des fichiers!)
La deuxième fois, il bloque sur le collage des données(je pense que c'est parce que le fichier n'est pas enregistré et/ou fermé !)
C'est la ligne "activesheet.paste" !

Voici ma macro : (j'avoue qu'il y a pas mal de vieilles lignes que j'ai essayé !)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub MaJExBadeDo()
'
' MaJExBadeDo Macro
' Macro enregistrée le 09/12/2009 par secretariat2
'
 
 
Dim source As String
Dim base As String
 
source = "C:\extract.xls"
base = "C:\badedo.xls"
 
' ouvrir l'extraction SCONET
Workbooks.Open Filename:=source
' rendre Excel visible
' objExcel.Visible = False
 
' Copier de la ligne 2 à 2500
Rows("2:2500").Select
Selection.Copy
 
' ouvrir la base de données
Workbooks.Open Filename:=base
' rendre Excel visible
' objExcel.Visible = True
 
' Coller les 2500 lignes dans la base
Rows("2:2500").Select
ActiveSheet.Paste
' Workbooks("badedo.xls").Close SaveChanges:=True
' Fermer les fichiers
Workbooks.Close
 
' Workbooks.Close Filename:=source
 
' Workbooks("extract.xls").Close SaveChanges:=True
' Workbooks("badedo.xls").Close SaveChanges:=True
' fermer les documents Excel
' objExcel.Quit
 
' libérer la mémoire
Set objExcel = Nothing
End Sub

J'espère ne pas avoir été trop compliqué !

Merci

[Krovax]

Bonjour,
Bienvenu sur le forum très jolie mise en forme mais la prochaine fois pour éviter de te fatiguer
Regarde ici
http://www.developpez.net/forums/d57...ation-boutons/

une question
Quel est l'erreur ?

Pour la fermeture il faut préciser quel workbook

Code :

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

workbooks("extract").close true

true pour enregistrer, false pour ne pas enregistrer rien pour laisser le choix a lutilisateur.

sinon je te propose d'intancer tes classeur a leur ouverture
(je tape a la voler il faudra peut être corriger la frappe)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
dim wbsource as workbook
dim wbdest as workbook
Dim source As String
Dim base As String
 
set wbsource=Workbooks.Open(Filename:=source)
set wbdest =Workbooks.Open(Filename:=base )
 
'en une ligne si ca fonctionne
wbsource.worksheets(1).rows("2:2500").copy wbdest.worksheets(1).rows("2") 
wbsource.close false
wbdest.close true

[lionel63300]

Merci à toi

J'étais prêt à abandonner; et à passer à de la vrai programmation, mais je vais persévérer un petit peu plus !

Même si je pense qu'excel-query-... me promet encore de belles crises de nerfs !

Donc, ta réponse fonctionne bien !

Deux questions, que veut dire "intancer"
Que sont les "(1)" derrière les woorksheets ?

A+

[Krovax]

ouch difficile
instancier pas intancer

en autodidacte voici ma définition

Je créé un objet classeur

Code :

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

dim wbdest as workbook

cette ligne

Code :

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

set wbdest =Workbooks.Open(Filename:=base )

Signifie que j'ouvre le classeur destination et que wbdest va représenter (pointer vers) ce classeur.
Du coup je peux aussi bien utiliser wbset que workbokks("leClasseur")

edit : qu'entends tu par de la "vrai programmation" ?

rq : on met Set pour les objet rien pour les variable

Code :

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

1
2
3
4
dim wbsource as workbook
set wbsource =Workbooks.Open(Filename:=source)
dim a as long
a=1544

Pour le numéro
Worksheets représente la collection de toutes les feuills (worksheet) sans le s
le numéro signifie que je prend la première de la collection Worksheets .
J'aurais pu utiliser le nom de l'onglet et demander la feuille nommé Feuil1 dans la collection worksheets

Code :

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

Worksheets("Feuil1")

Si tu n'est pas familier des objet collection, etc... ben fait comme moi essaye de suivre lit des tutos un jour les choses se mettont en place dans ta tête


Ps : si quelqu'un peux me corriger, comme dit dans ce domaine je suis autodidacte et je n'en fait que depuis quelque mois par intermitence

[EmmanuelleC]

Avis d'une autodidacte débutante

l'avantage de worksheets(#) par rapport a worksheets("nom") c'est qu'on est pas obligé de connaitre le nom qu'aura l'onglet à l'avance. J'ai trouvé ca plus simple d'etre sure de l'emplacement ou j'insere mon onglet (par exemple a la fin ou en premiere position :p) que du nom qu'il aura (si par exemple quelqu'un d'autre a bossé sur le fichier avant et déja créé le nom, ou si c'est juste un nom temporaire genre Sheet1 qui va avoir un n° variable selon le nbre d'onglet qu'on a déja créé dans la session)

[Krovax]

Autre solution pour parler d'un onglet est d'utiliser le codename
qui lui ne dépend ni de la position ni du nom de longlet vu par lutilisateur sur excel. Il est donc plus difficile a modifier. Dans l'éditeur de macro c'est le nom qui n'est pas entre parenthèse dans l'arbre du projet.
Mais je crois que l'on séloigne un peu là

Et si c'est pour avoir ton onglet juste après l'insertion tu peux l'intencier ce qui évite tout souci