Bonjour à tous,

J'ai un nouveau projet à monter et malheureusement, malgré mes recherches et multiples essais, ça ne fonctionne pas. Je demande donc votre aide pour y voir clair, svp.

J'ai des factures mensuelles que je souhaite copier dans un classeur de sommaire pour ensuite pouvoir faire différents calculs.

La feuille a copier n'ayant jamais le même nom, je tente l'utilisation d'une boite texte pour définir le nom du classeur à importer. Voici ce que j'ai jusqu'à maintenant, malheureusement non fonctionnel :

Sub CopierDansSommaire()

Dim NomClasseur As String

Dim FactureMensuelle As Workbook

Dim Sommaire As Workbook

Dim FeuilleFacture As Worksheet

NomClasseur = InputBox("Quel est le nom du classeur ouvert d'où proviennent les données?")

Set FactureMensuelle = Workbooks(NomClasseur)

Set Sommaire = Workbooks("SOMMAIRE_Elus.xls")

For Each FeuilleFacture In FactureMensuelle.Sheets

FeuilleFacture.Copy After:=Workbooks("SOMMAIRE_Elus.xls").Sheets(Sommaire.Sheets.Count)

Next

End Sub

Je demande la copie à la fin des feuilles dans ce code, ne sachant pas comment le faire sur la feuille active. Si c'était possible de l'envoyer dans la feuille active de Sommaire, comme ça je pourrais me positionner sur la bonne feuille (dans le fond je n'ai besoin et il n'y a qu'une feuille dans FactureMensuelle). Je pourrais ainsi préparer mes onglets des 12 mois d'avance.

Un gros gros merci d'avance les astuciens !

Bonjour,

Non non, elle n'a pas disparu, elle était seulement retenue hors du monde informatique quelques jours. La revoici avec la ferme intention de produire quelque chose de correct et fonctionnel... avec votre aide tant appréciée !

Voici réponse aux questions:

1- Il s'agit en effet de copier à partir d'un classeur (Facture) qui n'a jamais le même nom. Le nom de ce classeur est défini par le fournisseur de service selon le mois de facturation et le groupe facturé.

2- Il n'y a toujours qu'une seule feuille par "Facture" et elle s'appelle "Informations détaillées" (si ça peut être utile...)

3- Le code VBA se trouve dans le classeur Sommaire. J'ai un classeur sommaire par groupe (j'utiliserai le même code pour mes différents classeurs Sommaire. Ex: Sommaires - Cadres - 2019)

4- La feuille active est l'endroit où je veux importer mes données "Facture". Je comptais préparer mes 12 onglets mensuels, me positionner sur la feuille à importer (ex: juin) et l'importer à cet endroit. Peut-être est-ce plus simple de l'importer à la fin et de renommer mon onglet créé à l'importation ?

Debrief, je te remercie de ton aide généreuse. Je vais analyser et comprendre tes fichiers joints dès à présent.

J'ai été lire et farfouiller dans le code du classeur que tu as inclus. Ouille ! Je ne comprends pas grand chose quand on tombe au "Bolean" et variables. J'aimerais tant pourtant ! Je dois vraiment mettre sur ma "toDo" d'apprendre à écrire du VBA comma ça.

J'ai tout de même réussi à faire ce que je voulais en simplifiant le tout à l'extrême et repartant de ma macro de base. Voici ce que ça donne.

Sub CopierDansSommaire()

Dim NomClasseur As String

Dim FactureMensuelle As Workbook

Dim Sommaire As Workbook

Dim FeuilleFacture As Worksheet

NomClasseur = InputBox("Quel est le nom du classeur ouvert d'où proviennent les données(avec.xlsx)?")

Set FactureMensuelle = Workbooks(NomClasseur)

Set Sommaire = Workbooks("SOMMAIRE_Elus.xlsm")

For Each FeuilleFacture In FactureMensuelle.Sheets

FeuilleFacture.Copy After:=Workbooks("SOMMAIRE_Elus.xlsm").Sheets(Sommaire.Sheets.Count)

Next

Sheets("Informations détaillées").Name = InputBox("Quel est le mois importé?")

End Sub

C'est amplement suffisant pour importer mes données. Reste maintenant à compiler le tout dans sommaire, selon le numéro d'employé...

Par contre, idéalement, j'aimerais que cette macro ouvre le classeur nécessaire plutôt que demander lequel est ouvert. Je n'arrive pas à décortiquer ton code pour n'utiliser que la portion nécessaire, sans marquer le nom du classeur dans une case. Veux-tu m'aider pour cette portion svp ?

Un immense merci et je garde précieusement ton classeur pour l'étudier et arriver à le comprendre !

Merci, j'intègre ça immédiatement dans mon code et je teste.

Pour le sommaire, j'ai créé une nouvelle question, pour ne pas mêler les cartes. https://forum.pcastuces.com/sommaire___vba-f23s40018.htm

Merci encore !

Je ne connais pas bien la logique de ton affaire mais rien ne t'empêche de saisir le nom de la feuille que tu viens de copier et de la renommer avec ce nom saisi. Ou si c'est des noms de mois, donner son numéro et générer son nom.Donc tu n'importe pas "sur" la feuille, tu importes "une" feuille que tu nommes de la manière qui te plait.

C'est ce que je fais avec la dernière mouture. Merci !

Par contre, le OpenWorkbook, je n'y arrive pas. Ce doit être tout bête mais non, je n'y arrive pas. Voudrais-tu me clarifier le tout svp, quoi ajouter et où?

merci

En dernière mouture (J'ai continué à bosser dessus et à tenter de comprendre) j'arrive à ouvrir le fichier de facture mais pas réutiliser la variable NomClasseur dans la macro, même en la déclarant publique. J'ai définitivement besoin d'un cours et je vais aller le chercher! En attendant, merci encore et encore pour ton aide.

Voici le classeur Sommaire: https://www.cjoint.com/c/IFktN5wuTAw

Et voici un exemple de facture: https://www.cjoint.com/c/IFktQOjVKyw

C'est absolument PARFAIT !

Un immense MERCI Debrief pour ton aide, elle m'est précieuse. Je ne sais comment t'exprimer plus complètement ma gratitude!

Bonne journée !