Discussion :

[sebastien_oasis]

Bonjour,

je viens vous faire part de mon probleme relatif a un copier coller de feuilles excel, d un classeur a un autre, voici le 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
17
18
19
20
 Dim app As Application 
  Dim sheet As Worksheet 
  Dim book As Workbook 
  Dim fname As String 
 
  Set app = CreateObject("Excel.Application") 
  Set book = app.Workbooks.Add '  creation du classeur qui va recevoir la feuille 
 
  fname = ("C:\Vielle\Manipulation fichiers excel\testbook") & ("_") & Date & (".xls") 
  book.SaveAs filename:=fname '  enregistrement du classeur créé 
 
  Set sheet = Worksheets("Prozess_Modul_FMEA ") '  voici le nom de la feuille du classeur actif que je souhaite copier. 
 
  sheet.Copy Before:=book.Sheets(1) '  voici la ligne où ca plante 
 
 
  book.Close False 
  app.Quit 
 
End Sub

Le probleme intervient a la ligne ou l on desire copier la feuille selectionnée, je pense que c est du au fait que celle ci est mal identifiée mais je ne vois pas comment je peux mieux le faire. Je pense que c est vraiment tout bete.. mais meme avec l aide et tout un tas de syntaxes utilisées... ca vient pas.

Avez vous deja rencontrer ce genre de pb?

PS: Le message d erreur est:

Method 'Copy' of object '_Worksheet' failed

Merci par avance pour votre aide et le temps passé,

Sebastien

[marsupilami34]

Bonjour,

Je vois que tu copie ta feuille mais je ne vois pas ou tu la colles
Sinon, tu peux aussi t'aider de l'éditeur de marco dans ce cas là.

[sebastien_oasis]

En fait, depuis l aide, j ai pu trouver une syntaxe comme celle ci:

Code :

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

sheet.Copy Before:=book.Sheets(1)

afin de copier la feuille selectionnée (ie: sheet) dans le classeur que je viens de créer et d enregistrer (ie: book).

Le probleme c est que je ne peux pas nommer ce classeur par une chaine de caractere car elle change chaque jour...

C est pour ca aussi que je ne peux pas me servir de l editeur de macro car je suis obligé de connaitre le nom du fichier et celui des feuilles (ce qui est un probleme car les gens qui utiliserons cette apllication n ont pas tous la meme langue dans leur pack office... lol) enfin bref il faudrait vraiment que j y arrive sans devoir nommer par leurs noms precis les feuilles et les classeurs.