Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Programmation

Vba excel active workbooks

Dernière réponse le 15 mai 2008 à 21:11:06 aurelie76, le 13 mai 2008 à 23:03:46

Signaler ce message aux modérateurs

Bonjour,

j'ai un soucis avec mon code, j'ai une erreur d'excécution 9 lorsque je veux delete un classeur appellé par une variable

voici le code :

....
Fichier = Application.GetOpenFilename
Workbooks.Open Fichier 'ouverture arborescence
classeur1 = ActiveWorkbook.Name
'MsgBox classeur1
Workbooks("classeur1.xls").Delete
....

à l'instruction Workbooks("classeur1.xls").Delete, j'ai l'indice n'appartient pas à la sélection ?
quelqu'un peut-il m'aider, merci,

aurelie

Configuration: Windows XP
Internet Explorer 7.0

Meilleures réponses pour « vba excel active workbooks » dans :

Cette page

Posez votre question Répondre

dandypunk, le 14 mai 2008 à 23:36:32

Esssaye de mettre le chemin complet.
E.g. C:\DossierDeTravail\Classeur1.Xls)
Qui plus est, avant d'effacer ton fichier, ferme le. Il y a certainement plus simple, mais ça tourne.
SNOC XUA TROM (Vieille devise coloniale)

Répondre à dandypunk

aurelie76, le 15 mai 2008 à 06:05:17

Bonjour dandypunk,

le pb c'est que je ne connais pas l'instruction ou la ligne de commande pour récupérer le chemin d'accès, je sais l'afficher dans un msgbox mais comment la récupérer pour l'insérer dans le code ? si tu connais cette instruction merci.

aurelie76

Répondre à aurelie76

dandypunk, le 15 mai 2008 à 07:35:33

Salut aurélie, essaye de remplacer Name par Path Il y a certainement plus simple, mais ça tourne.
SNOC XUA TROM (Vieille devise coloniale)

Répondre à dandypunk

aurelie76, le 15 mai 2008 à 11:55:45

Dandypunk,

j'ai tourné le path dans tous les sens mais je n'obtiens pas le résultat souhaité. Je continue à chercher, merci pour tes conseils et aide,

aurelie

Répondre à aurelie76

lermite222, le 15 mai 2008 à 12:51:14

Bonjour,
Pas clair du tout...
Fichier = Application.GetOpenFilename
Workbooks.Open Fichier 'ouverture arborescence

'Ici je suppose que tu veux renommer le classeur 1, mais c'est pas possible d'avoir 2 classeurs du même nom dans la même instance d'excel !!
'Donc, plutôt que de renommer classeur1; le supprimé
'classeur1 = ActiveWorkbook.Name
'Delete n'est pas une action valable, si tu veux fermer...
workbooks("Classeur1").Close
pour avoir le 'path' d'un classeur il faut qu'il ai déjà été sauver sur le DD idem pour FullName
chemin = ActiveWorkbook.FullName
A+

Répondre à lermite222

aurelie76, le 15 mai 2008 à 13:21:46

Bonjur Lermitte,

Merci de me venir en aide une fois de plus, en fait, de mon classeur principal j'ouvre l'arborescence de mon C:\ et je choisis n'importe quel document xls de C et j'insère les feuilles de ce document dans mon classeur principal. Les deux classeurs sont donc ouverts : le principale et le classeur choisi sous C:\. Une fois laes feuilles insérées dans le doc principal, je veux fermer le classeur "choisi"

Private Sub insérer_Click()

Dim Sh As Worksheet
Dim classeur2 As String
Dim classeur1 As String
Dim nom1 As String
Dim wb As Workbook

MsgBox "confirmer insérer fichier : ?", vbYesNo

insérer.Enabled = False

Fichier = Application.GetOpenFilename
Workbooks.Open Fichier 'ouverture arborescence
classeur1 = ActiveWorkbook.Name
'MsgBox classeur1

For Each Sh In Workbooks(classeur1).Worksheets
Workbooks(classeur1).Sheets(Sh.Name).Copy After:=Workbooks("Fiche_d'entretien_OSP_2008ter.xls").Sheets(5)
Next Sh
' MsgBox classeur1

Workbooks("classeur1.xls").Activate

Workbooks(classeur1).Close

et j'ai une erreur excécution 9 (l'indice n'appartient pas à la sélection.

c'est plus compliqué que je croyais BVA, merci pour tes conseils sur les instructions.

aurélie.

Répondre à aurelie76

lermite222, le 15 mai 2008 à 18:47:15

Faut mettre des guillemets
Workbooks("classeur1.xls").Close >> s'il à déjà été sauvé, sinon
Workbooks("classeur1").Close

Répondre à lermite222

Lupin.A, le 15 mai 2008 à 13:39:31

Bonjour,

essayer comme ceci :

Option Explicit

Private Sub insérer_Click()

    Dim Sh As Worksheet
    Dim classeur2 As String, classeur1 As String
    Dim nom1 As String, wb As Workbook

    MsgBox "confirmer insérer fichier : ?", vbYesNo

    ' n.b. Éviter les accents de la langue française
    ' dans les instruction même si celle-ci sont des
    ' noms de fonctions ou routine que vous avez créé.
    insérer.Enabled = False

    Fichier = Application.GetOpenFilename
    Workbooks.Open Fichier 'ouverture arborescence
    classeur1 = ActiveWorkbook.FullName
    'MsgBox classeur1

    For Each Sh In Workbooks(classeur1).Worksheets
        Workbooks(classeur1).Sheets(Sh.Name).Copy _
            After:=Workbooks("Fiche_d'entretien_OSP_2008ter.xls").Sheets(5)
    Next Sh
    ' MsgBox classeur1

    Workbooks(classeur1).Activate
    Workbooks(classeur1).Close
    Kill classeur1

End Sub
'

Lupin

Répondre à Lupin.A

aurelie76, le 15 mai 2008 à 21:11:06

Bonsoir Lupin, Lermitte222,

Merci pour tous vos conseils super précieux, sans vous j'y serais encore, félicitations pour vos connaissances et expériences dans ce domaine, on a besoin de personnes comme vous sur ce site.
Consciente de vous avoir accaparés, je vous réitère encore tous mes remerciements.

bisous à tous, aurélie.

Répondre à aurelie76

Posez votre question Répondre