Copie onglet excel avec VBA Résolu/Fermé

Question

Bonjour,

Je viens vers vous car je rencontre un problème avec la copie d'un onglet Excel via VBA.

Je voudrais faire la copie d'un onglet nommé "Exploitations" présent sur un fichier Excel que j'ouvre systématiquement en 1er, pour le mettre à la fin d'un autre fichier Excel dit "Actif".

Le problème vient du fait que je ne peux pas mettre le nom d'un fichier précis pour la copie, puisque le fichier de destination n'aura jamais le même nom.

Je ne sais pas si je suis très clair, mais en gros je veux copier mon onglet d'un fichier ouvert en 1er à un ActivWorkbook.

J'ai essayé plein de méthode différente (que je ne comprends pas vraiment) comme vous pourrez voir ci-dessous :

'Workbooks(1).Sheets(1)("exploitations").Copy After:=Workbooks.ActiveSheets(26)
    'Sheets(1)("exploitations").Select
    'Worksheets(1)("exploitations").Copy After:=ActiveWorkbooks.Sheets(26)
    'Sheets(1)("exploitations").Copy After:=Workbooks.Sheets(26)
    'Sheets(1)("Feuil1").Copy After:=Workbooks("Exemple.xlsm").Sheets(Workbooks("Exemple.xlsm").Sheets.Count)

Pourriez-vous m'éclairer s'il vous plaît ?

Le Pingou · Answer

Bonjour,

Je comprends, copier feuille d'un classeur vers un autre ...!

Note: valable pour 2 classeurs ouverts....!!!!

Sub CopieFeuilleAutreClasseur()
nomCl = ActiveWorkbook.Name
For Each wb In Workbooks
    MsgBox "Le classeur " & wb.Name & " est ouvert."
    If wb.Name <> nomCl Then
        nbsh = wb.Sheets.Count
        Sheets("exploitations").Copy After:=Workbooks(wb.Name).Sheets(nbsh)
        Exit For
    End If
Next wb ' Macro1 Macro
Range("A1").Select
End Sub

ItzFolloWerS · Answer

Bonjour,

Je vous remercie pour votre réactivité.

Cependant, j'ai déjà essayé cette démarche mais le problème va venir de cette partie

=Workbooks("NomAutreClasseur.xlsx")

Je ne peux pas mettre un nom de classeur puisque l'onglet que je veux copier ira dans des fichiers Excel ayant des noms différents.

C'est pour ça que je voulais, utiliser une sorte de "ActivWorkbook" pour lui dire de me le copier dans le dernier fichier Excel sélectionné.

Le Pingou · Answer

Bonjour,

Merci de revoir la correction du poste 1...(message croisé!)

Le Pingou · Answer

Bonjour,

Il me semble que vous avez plus de 2 classeurs ouverts, dans ce cas voir ce code:

Sub CopieFeuilleAutreClasseur()
nomCl = ActiveWorkbook.Name
For Each wb In Workbooks
    If wb.Name <> nomCl Then
        reponse = MsgBox("Est-ce le bon classeur: " & wb.Name, vbQuestion + vbYesNo + vbDefaultButton2, "Décision")
        If reponse = 6 Then
            nbsh = wb.Sheets.Count
            Sheets("Feuil1").Copy After:=Workbooks(wb.Name).Sheets(nbsh)
            Exit For
        End If
    End If
Next wb
Range("A1").Select
End Sub

ItzFolloWerS · Answer

Rebonjour,

Je vous remercie.

Sheets("Feuil1").Copy After:=Workbooks(wb.Name).Sheets(nbsh)

A cette ligne je rencontre "Erreur d'exécution '9'" "L'indice n'appartient pas à la sélection.".

Qu'est-ce que cela signifie ?

Je vous remercie par avance

Le Pingou · Answer

Bonjour,

Je viens de contrôler le code et cela fonctionne sans erreur.

Avez-vous utiliser le code du poste 4 ...?

La macro est bien dans le classeur ou se trouve la feuille (exploitations)...?

ItzFolloWerS · Answer

Bonjour,

La macro est effectivement mise sur la feuille exploitation et j'ai bien utilisé celui du poste 4 et essayé le celui du 1er poste.

J'obtiens le même message d'erreur…

Au cas où j'aurai moi-même mal copié, vous trouverez ci-dessous le code :

Sub CopieFeuilleAutreClasseur()
nomCl = ActiveWorkbook.Name
For Each Wb In Workbooks
    If Wb.Name <> nomCl Then
        reponse = MsgBox("Est-ce le bon classeur: " & Wb.Name, vbQuestion + vbYesNo + vbDefaultButton2, "Décision")
        If reponse = 6 Then
            nbsh = Wb.Sheets.Count
            Sheets("exploitations").Copy After:=Workbooks(Wb.Name).Sheets(nbsh)
            Exit For
        End If
    End If
Next Wb
Range("A1").Select
End Sub

Je vous remercie par avance

Le Pingou · Answer

Bonjour,

Merci de me communiquer les valeurs dans les variables: Wb.Name ...... nbsh.......!

Contrôler que le nom de la feuilles exploitations est correct...(Majuscule /minuscule).. !

ItzFolloWerS · Answer

Ci-dessous les valeurs, si je ne me trompe pas

Le nom de la feuille quant à lui est correct.

Le Pingou · Answer

Bonjour,

Merci les valeurs semblent correctes.

Cependant il manque le Wb.Name ??????

Pour le nom ce n'est pas sur car vous mentionnez :

je voudrais faire la copie d'un onglet nommé "Exploitations"

Donc une majuscule au début et non pas minuscule...!

ItzFolloWerS · Answer

Bonjour,

Je ne comprends pas pourquoi il me manque le "Wb.name"

Et concernant le nom de l'onglet c'est bien "exploitation". J'ai quand même essayé avec une majuscule mais cela ne fonctionne pas mieux.

Vous préféreriez peut-être que je vous donne le fichier Excel, pour regarder ?

Le Pingou · Answer

Bonjour,

Oui le fichier sera plus utile sur Accueil de Cjoint.com et poster le lien!

ItzFolloWerS · Answer

Bonjour,

Veuillez trouver le lien. Vous trouverez la macro dans le module 1!

https://cjoint.com/c/MDykTRUhBTo

Le Pingou · Answer

Bonjour,

Merci, chez moi tout fonctionne correctement.

Lors de la demande pour sélectionner le classeur qui doit recevoir la feuille (Exploitation) avez-vous bien choisi le bon classeur...(ce  classeur doit être ouvert...!) ?

ItzFolloWerS · Answer

Bonjour,

Je vous envoie également l'un des fichiers qui doit recevoir la feuille.

Je fais tous comme vous me conseillez de faire mais rien ne fonctionne...

https://www.cjoint.com/c/MDymvzypMLo

Le Pingou · Answer

Bonjour,

Merci, cela fonctionne parfaitement  la feuille est bien insérée en dernière position du classeur :ItzFolloWerS_DOSSIER-REVISIONV19-1

Les 2 classeurs : https://www.cjoint.com/c/MDyuKbPK2eZ

ItzFolloWerS · Answer

Bonjour,

En effet, il fonctionne.

Je viens de comprendre d'où provenait l'erreur.

Celle-ci provient du fait que la macro ne fonctionne pas dans le sens que je voudrais.

Je veux dire par là que pour que votre macro fonctionne, je dois sélectionner le doc impôt en dernier (Actif) alors que pour moi ça devrait être l'inverse, c’est-à-dire que le dossier de révision devrait être le dernier sélectionné.

Toutes mes macros fonctionnent comme ça (j'importe les données du doc impôt "1er fichier ouvert" dans le dossier de révision "fichier actif/dernier sélectionné").

Je ne sais pas si je suis clair dans mes explications...

Le Pingou · Answer

Bonjour,

Oh, mal formuler depuis le départ..!

En résumé la macro se trouve dans le classeur ou je doit importer la feuille "exploitations" d'un autre classeur qui est ouvert ou fermé ???

Merci de Votre retour¨!

ItzFolloWerS · Answer

Bonjour,

La macro, doit être présente dans le classeur qui possède l'onglet Exploitations.

Et à partir de cette macro je dois l'envoyer dans un autre classeur qui est ouvert.

Si vous voulez un exemple:

Workbooks(1).Sheets(1).Range("B19:L19").Copy Destination:=ActiveSheet.Range("B19:L19")

(Workbooks(1).Sheets(1) ) = Doc impot

(Copy Destination:=ActiveSheet) = Dossier de révision

Là je fais une copie d'une ligne du doc impôt au dossier de révision.

C'est cette logique que je veux respecter.

Le Pingou · Answer

Bonjour,

Eh bien c'est exactement le cas, la macro est dans le classeur (expl: DocumentimpotV2023-1.xlsm) qui à la feuille Exploitations et vous choisissez le classeur (expl: DOSSIER-REVISIONV19-1.xlsm) qui reçoit la feuille en dernière position

Le Pingou · Answer

Bonjour,

Question complémentaire. depuis quelle classeur vous déclencher la macro...!

Le Pingou · Answer

Bonjour,

Je suppose que ma question précédente est juste , donc essayer ceci : https://cjoint.com/c/MDzjbrJsKfZ

ItzFolloWerS · Answer

Bonjour,

J'ai modifié la macro comme ci-dessous:

nbsh = Workbooks(2).Sheets.Count

Workbooks(1).Sheets("Exploitations").Copy After:=Workbooks(2).Sheets(nbsh)

Avec ça, j'ai pu avoir le résultat que je voulais.

Le Pingou · Answer

Bonjour,

Merci pour les réponses aux poste 21 et 22.

Concernant cette modification, ce n'est pas certain que cela fonctionne correctement si vous avez plus de 2 classeurs ouverts a vous de voir ! Qui sont les

Workbooks(1) et Workbooks(2)

ItzFolloWerS · Answer

Bonjour,

Justement après vérifications, il y a déjà une macro plus haut qui s'occupe de vérifier s'il y a d'autre classeur d'ouvert.

Normalement, je ne devrais pas avoir de blocage !

Je vous remercie pour votre aide.

Le Pingou · Answer

Bonjour,

Merci, en marge il est toujours préférable d'avoir des codes précis, attention les recherche si une erreur se produit et pas toujours visible du premier coup.