Discussion :

[theshark85]

Bonjour,

Je souhaite faire un copier/coller d'une feuille excel quise trouve dans A.xls, vers B.xls que je viens de creer. Seul probleme j'y arrive pas.
Voici mon code:

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
 
'Nouveau répertoire
 
      pathFile = "c:\"
     nameFile = pathFile & A.CBAn.Value & "_" & A.CBMois.Value & "_Quittance.xls"
    Application.Workbooks.Add
    Application.ActiveWorkbook.SaveAs nameFile
 
    For i = 1 To nb
 
        Sheets("Modele").Copy Workbooks(nameFile)
        NomFeuille = "Quit" & i
        Workbooks(nameFile).ActiveSheet.Name = NomFeuille
        Workbooks(nameFile).Worksheets(NomFeuille).Activate
 
    Next i

Le nouveau classeur est bien crée.

C'est la copie qui me met une erreur: L'indice n'appartient pas à la sélection
Quelqu'un a une idée ou pourrais em dire ce qui ne va pas.
Merci.

[tirex28]

Bonjour,

Essaye de préciser le nom du classeur de ta feuille "modele" avant de faire la copie.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
        Workbooks("A.xls").Sheets("Modele").Copy Workbooks(nameFile)

Cordialement,

Tirex28/

[theshark85]

ça ne fonctionne pas, même avec ta solution. Toujours, la même erreur.

[tirex28]

Re,

Comme ceci alors:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ThisWorkbook.Sheets("Modele").Copy Before:=Workbooks(nameFile).Sheets(1)

Cordialement,

Tirex28/

[theshark85]

Je pense que c'est mon code qui doit avoir un probleme car même avec la deuxieme solution, j'ai toujours la même erreur ("Lindice n'appartient pas à la sélection") et ça plante à cette ligne: ThisWorkbook.Sheets("Modele").Copy Before:=Workbooks(nameFile).Sheets(1)


Je suis sous Excel 2007

et le code à présent est celui-ci:

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
21
22
23
24
25
26
27
28
29
 
    Dim nameFile As String
    Dim pathFile As String
    Dim NomFeuille As String
    Dim nb As Integer
    Dim i As Integer
 
 
    'Init 
    '-----------------------------------------------
    nb = 12
 
    'Nouveau répertoire
    pathFile = "c:\"
    nameFile = pathFile & A.CBAn.Value & "_" & A.CBMois.Value & "_B.xls"
    Application.Workbooks.Add
    Application.ActiveWorkbook.SaveAs nameFile
 
    For i = 1 To nb
 
        'Workbooks("A.xls").Sheets("Modele").Copy after:=Workbooks(nameFile).Sheets("Feuil1")
        ThisWorkbook.Sheets("Modele").Copy Before:=Workbooks(nameFile).Sheets(1)
        'ThisWorkbook.Sheets("Modele").Copy Workbooks(nameFile)
 
        NomFeuille = "Quit" & i
        Workbooks(nameFile).ActiveSheet.Name = NomFeuille
        Workbooks(nameFile).Worksheets(NomFeuille).Activate
 
    Next i

Aucune de ces solutions fonctionnes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
'Workbooks("Quittance.xls").Sheets("Modele").Copy after:=Workbooks(nameFile).Sheets("Feuil1")
        ThisWorkbook.Sheets("Modele").Copy Before:=Workbooks(nameFile).Sheets(1)
        'ThisWorkbook.Sheets("Modele").Copy Workbooks(nameFile)

pourtant le fichier excel est bien crée, et il est ouvert.

[tirex28]

Bonsoir,

Le probleme vient peut etre du contenu de ta variable namefile, que renvoie l'instruction ci-dessous placé avant ta boucle?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Msgbox workbooks(namefile).sheets.count

cordialement,

Tirex28/