Macro: manipuler des classeurs sans les ouvrir

Résolu

Classeur

Bertrand_Labevue Messages postés 18 Date d'inscription Statut Membre Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention - 28 mai 2014 à 23:30

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...

Afficher la suite

A voir également:

Vba copier une feuille dans un autre classeur sans ouvrir
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Jitbit macro recorder - Télécharger - Confidentialité
Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
Excel récupérer couleur cellule sans macro ✓ - Forum Bureautique

6 réponses

Réponse 1 / 6

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

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....

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Bonjour,

Tu n'as pas vu son nom ? C'est l'inspecteur la bévue :-)
eric

Réponse 3 / 6

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

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

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

Bonjour

De + pour utiliser cette technique, il faut absolument que la feuille source soit sous la forme d'une liste de données (base de données) et sans cellules fusionnées ni lignes vides dans la liste, et si c'est le cas, il faut être extrêmement précis dans la demande- quelle feuille, quelles rangées- et on ne copie pas l'ensemble de la feuille mais les données dont on a besoin
en déverser une partie: la quelle ? adresse ?

Si tu veux qu'on essaie de t'aider: il nous faut une demande précise et non des voeux pieux

Et Bonjour à Mamzelle Jeanne

Réponse 4 / 6

Bertrand_Labevue Messages postés 18 Date d'inscription Statut Membre Dernière intervention

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...

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Bonjour,

thisWorkbook est le classeur de la macro.
Prend l'habitude de déclarer et typer tes variables. Ca évite des ambiguïtés à vba, et fait ressortir plus fréquemment certaines erreurs.
Au début :
dim Wbk2 as workbook, sheet1 as worksheet

Sans tester quoique ce soit.
Sheets(sheet1) : tu t'adresses à la collection Sheets de toutes les feuilles. Il attend donc en paramètre un nom de feuille (Sheets("sheet1"))ou un index (Sheets(1)). Or sheet1 est un worksheet, donc sheet1.Copy
Problème : tu as choisis sheet1 en nom de variable. Si tu es sur excel anglais il me semble que sheet1 est également un codename (autre façon de désigner une feuille. Dans le projet VBE tu vois codename(nom_de_la_feuille)), on ne sait plus trop à qui tu t'adresses. Sheets("Courrier Classé") aura peut-être Sheet2 en codename dans un autre classeur. Utilise plutôt sh1 comme variable. Ca lève toute ambiguité pour le lecteur et vba, en plus tu gagneras ton temps à l'écriture.

eric

Réponse 5 / 6

Bertrand_Labevue Messages postés 18 Date d'inscription Statut Membre Dernière intervention

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 ?

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Pour savoir si une feuille existe tu l'actives et tu traites l'erreur.
Qcq chose comme
on error resume next
sheets("Feuil1").activate
if err > 0 then
msgbox "pb"
exit sub
endif
on error goto 0
' suite du programme
...

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 nouvelle contient toutes les info c'est plus simple de supprimer l'ancienne que de chercher à l'actualiser.
Sinon ce n'est plus une copie mais analyser les 2 feuilles sur toutes les lignes pour voir lesquelles ramener, modifier ou supprimer.

eric

Réponse 6 / 6

Bertrand_Labevue Messages postés 18 Date d'inscription Statut Membre Dernière intervention

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 :)

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

j'ai utilisé une autre solution
?? C'est ce que je t'indiquais au 2nd point, supprimer la feuille...
Et pourquoi balayer toutes les feuilles si tu connais son nom ?
on error resume next ' au cas où la feuille n'existe pas
Sheets("Courrier en retard").Delete
on error goto 0
suffit...

Le 1er point (Pour savoir si une feuille existe...) répondait à cette question :
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.

eric

Discussions similaires

Extraction de données fichiers Excel via macro

Copier plage cellules d'un classeur vers un autre classeur

Impossible de déplacer une feuille vers un autre classeur

EXCEL effacer la formule et garder la donnée brut obtenue

Modèle Etiquettes??

"Ce classeur comporte des liaisons avec un autre classeur"

Votre réponse

Discussions similaires