Discussion :

[BenoitL77]

Bonjour à tous,
J'ai trouvé le code ci dessous sur le forum. Depuis mon fichier de départ, le code permet de sélectionner un autre fichier, puis un onglet de ce fichier.
Le code d'origine copiait le contenu dans la feuil3 (ligne 17 que j'ai passé en commentaire)
Je voudrais ajouter une feuille, coller dedans ce que j'ai copier plus haut, et nommer cette nouvelle feuille "essai".
J'ai ajouter les lignes 18-19-20, mais le code plante à la ligne 19 : erreur d'execution '100' : la méthode paste de la classe worksheet à échoué.

J'imagine qu'il ne reconnait pas l'activesheet, ou ne sait pas quoi copier...

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
Option Explicit
Public wbks As Workbook
Public wbkc As Workbook
Public feuil$
 
Sub importer()
    Dim choix$, Ws As Worksheet, feuil$, x$
    Set wbkc = ThisWorkbook
    MsgBox ("Selectionner le fichier à importer dans ce classeur")
    choix = Application.GetOpenFilename("Fichiers Excel (*.xls; *.xlsx; *.xlsm),*.xls; *.xlsx; *.xlsm")
    If choix = "" Then Exit Sub Else Set wbks = Workbooks.Open(choix)
    For Each Ws In wbks.Worksheets
        UserForm1.ListBox1.AddItem Ws.Name
    Next Ws
UserForm1.Show
wbks.Close 0
'Feuil3.Select
Sheets.Add
            ActiveSheet.Paste
            ActiveSheet.Name = "essai"

Merci de votre aide
Benoit

[Philippe Tulliez]

Bonjour,

J'imagine qu'il ne reconnait pas l'activesheet, ou ne sait pas quoi copier...

Absolument pas.
A partir du moment où on utilise Sheets.Add, il y a automatiquement une insertion de feuille dans le classeur Actif et cette nouvelle feuille devient l'objet ActiveSheet (la feuille active). C'est l'équivalent du Clic droit sur l'onglet d'une feuille et la commande Insertion

C'est forcément la méthode Paste qui coince car on ne voit nulle part l'instruction Copy
Pour copier une feuille entière, on passe pas par un Copier/Coller
Manuellement pour copier ou déplacer une feuille, on fait un clic droit sur l'onglet de la feuille et on sélectionne la commande Déplacer ou Copier...
Ensuite dans la boîte de dialogue, on choisi le classeur et la feuille où on souhaite copier ou déplacer
Utilise l'enregistreur de macro et tu auras la méthode à utiliser

[BenoitL77]

Bonjour Philippe, merci
Je vois bien le principe du sheet.select et sheet.copy, je l'ai utilisé avec succès dans une autre macro.
Cependant...dans le code que j'ai recopié, je ne vois ni select, ni copy...et pourtant, il copie bien l'onglet sélectionné et le colle en feuil3. (feuil3 existante d'ailleurs). Avouez que c'est perturbant pour le profane. y'a t'il d'autres fonctions, objets, userform... planqués quelque part et que je n'aurait pas vu?
Peut être que ce code est trop compact pour mon niveau. Du coup, je ne le comprend pas bien et ne sais pas l'adapter. Y'aurai-t il une autre méthode pour :
-cliquer sur un bouton de commande
-parcourir un exploreur
-sélectionner un fichier
-sélectionner un onglet de ce fichier
-copier l'onglet
-le coller dans le fichier de départ, avant un onglet qui serait tjrs le même
-le nommer avec un nom qui serait tjrs le même

un post, un tuto à me recommander?
Merci

[Philippe Tulliez]

Bonjour,

Y'aurai-t il une autre méthode pour :
-cliquer sur un bouton de commande
-parcourir un exploreur
-sélectionner un fichier
-sélectionner un onglet de ce fichier
-copier l'onglet
-le coller dans le fichier de départ, avant un onglet qui serait tjrs le même
-le nommer avec un nom qui serait tjrs le même
un post, un tuto à me recommander?

• cliquer sur un bouton de commande, voir la FAQ Les feuilles de calcul→Les contrôles de formulaire
• parcourir des dossiers, des fichiers (comme l'explorateur) : Voir exemple dans cette discussion
• sélectionner, un fichier, un onglet : Une fois ouvert en réalité on ne sélectionne pas, on travaille directement sur l'objet
• copier un onglet : Cela dépend si c'est dans le même classeur ou sur autre classeur ou un nouveau classeur (Exemple dans cette discussion)
• nommer avec un nom qui serait tjrs le même : nommer un onglet c'est la propriété Name de l'objet Sheet ou Worksheet

Quelques tutoriels à lire pour débuter

• Formation Excel - VBA débutant - [Jean-Marc RABILLOUD]
• Excel et Visual Basic : Tutoriel - [Sébastien GURUTCHET]
• Initiation au VBA Office - [Olivier LEBEAU]
• Excel et l'enregistreur de macro - [Pierre FAUCONNIER]

Pour en savoir plus sur les sujets traités dans les tutoriels proposés ci-dessus

• La gestion des boucles - [Michel Tanguy (Silkyroad)]
• Utiliser les variables en VBA Excel - [Michel Tanguy (Silkyroad)]
• Manipuler les chaînes de caractères en VB6 et VBA Excel - [Michel Tanguy (Silkyroad)]

Les incontournables pour utiliser l'éditeur et l'indispensable pour déboguer

• Vos premiers pas dans l'éditeur de macros Excel - [Michel Tanguy (Silkyroad)]
• Visual Basic Editor - [Michel Tanguy (Silkyroad)]
• Le débogage sous Visual Basic 6 (1ère partie) - [DarkVader]

[BenoitL77]

Quand on comprend comment fonctionnent les userform, listbox etc...c'est plus simple. Forcément me diras tu....

Merci pour les liens. Dans le code que j'avais copié, j'ai pu découvrir le code de la listbox. C'est là que ce cachait le copier/coller. Et là que j'ai pu ajouter mon insertion et nommage de feuille.
Encore 2-3 ajustements à faire pour coller pile-poil à mon besoin, mais le gros du code est fait.

Merci encore et bonne fin de journée
Benoit