Macro: manipuler des classeurs sans les ouvrirRésolu/Fermé

Question

Bonjour, 

je débute en macro excel et j'ai pas mal de questions sans réponse malgré les nombreux sujets qui existent déjà (peut-être une histoire de synonymes, mais bref).

En fait j'ai besoin de copier des pages d'un classeur2 dans un classeur1.

Ouvrir le classeur2 via une macro à partir du classeur1 : j'utilise Workbooks.Open Filename:=Application.GetOpenFilename("Excel Files,*.xls")

mais ensuite, comment lui indiquer proprement d'ouvrir le classeur2, d'y chercher la page qui m'intéresse et la coller proprement dans le classeur1 ? 

Je précise que je n'ai pas vraiment besoin d'ouvrir à l'écran le classeur2 (enfin sauf si les fonctions ne permettent pas de faire autrement) et que je suis sous excel 2003. Merci d'avance...

michel_m · Answer

Bonjour
en titre tu écris: 
 manipuler des classeurs sans les ouvrir

et dans ton texte
comment lui indiquer proprement d'ouvrir le classeur2

bizarre, vous avez dit bizarre....

Bertrand_Labevue · Answer

J'ai pas pris ce pseudo pour rien :)

Je reprends:

en fait  je travaille dans le classeur1, et j'aimerais extraire le contenu du classeur2 (feuilles, rangées de cellules, bref tout sont contenu) pour en déverser une partie dans le classeur1. Voilà. Et Bertrand Labévue est l'un des potes de Gaston Lagaffe :p

eriiic · Answer

Re,

Si vraiment tu veux travailler avec un classeur fermé voir plein d'exemples ici : http://boisgontierjacques.free.fr/pages_site/ado.htm 

C'est quand même plus simple de l'ouvrir...

eric

Bertrand_Labevue · Answer

D'accord. Admettons que je vais le faire en ouvrant le classeur, je ne vais pas faire mon difficile ;). Par contre ensuite je voudrais copier une feuille du classeur2 pour la ranger telle quelle dans le classeur1... J'ai tenté des trucs, mais je pense que je ne comprends pas comment typer les variables correctement pour récupérer ma feuille d'un côté avant de la coller. En fait je n'arrive pas à lire certains trucs dans le code je pense (au sens de "je n'ai pas encore pigé la logique").

Par exemple, certains mots-clés comme thisWorkbook désignent toujours le classeur d'où part la macro ou celui qui est activé sur le moment:

là j'ai tenté ça :
Sub Fusion_Click()
If Not Application.Dialogs(xlDialogOpen).Show Then Exit Sub
Set Wbk2 = ActiveWorkbook
Set sheet1 = Wbk2.Worksheets("Courrier en retard")
ThisWorkbook.Activate
'la ligne ci-dessus ramène au classeur1
Sheets(sheet1).Copy After:=Sheets("Courrier Classé")

ça fonctionne jusqu'à la dernière ligne où il me sors une erreur de type... là vous m'avez déjà bien guidé mine de rien, mais malgré tout les tutos disponible y a encore trop de chose que je ne saisis pas dans la philo du typages de variable je pense...

Bertrand_Labevue · Answer

Merci beaucoup !

Avec ça + l'enregistreur automatique de macro pour tester quelques idées, j'ai fini par obtenir un code qui fait ce que je veux sur ma question. (ça a beaucoup simplifié mon code aussi). Je note bien ce que tu dis sur les noms de variable. Il y a l'équivalent d'Oracle (Java...) pour recenser les types d'objet et les méthodes pour VBA ?

Sub Init_Fusion_Click()
If Not Application.Dialogs(xlDialogOpen).Show Then Exit Sub
Sheets("Courrier en retard").Copy After:=ThisWorkbook.Sheets("Courrier Classé")
End Sub

Cela dit, j'aimerais aussi que: 
Si la feuille "Courrier en retard" existe déjà, elle soit juste actualisée plutôt qu'une deuxième soit crée.
Si la feuille "Courrier en retard" n'existe pas dans le classeur2, un message d'erreur s'affiche et la macro laisse tomber l'affaire.

C'est possible de faire ça facilement ?

Bertrand_Labevue · Answer

Merci, à force de tâtonner j'ai utilisé une autre solution: 

On Error Resume Next
For i = 1 To Worksheets.Count
    If Worksheets(i).Name = "Courrier en retard" Then Sheets("Courrier en retard").Delete
Next i

je vais mettre ce sujet en résolu :)

Macro: manipuler des classeurs sans les ouvrir

6 réponses

Discussions similaires

Newsletters