Copie "Basique" vers fichier Excell (VBA)

Question

Messieurs,
Je reviens "&#224; la charge" avec mon m&#234;me probl&#232;me de copie sur un fichier excell.
Le code suivant ne fonctionne pas et plante
au niveau de "activesheet.paste" (propri&#233;t&#233; ou m&#233;thode non g&#233;r&#233;e par cet objet).

Sub ouvrir()


Dim objetSynthese As Workbook


 ' je souhaite copier les lignes 3 &#224; 14 du fichier Excell sur lequel je programme vers un autre fichier "toto"
 ' je souhaite &#224; chaque fois que j'ouvre Toto qu'une feuille soit cr&#233;&#233;e
 ' je souhaite que le nom de cette feuille provienne du fichier ouvrir Excell (contenu de la 1&#232;re cellule


Sheets("depart").Select
nomdelafeuille = Cells(1, 1)
Rows("3:14").Select
Selection.Copy
      
Set objetSynthese = GetObject("C:	oto.xls")
objetSynthese.Activate
Sheets.Add
Sheets(1).Name = nomdelafeuille
objetSynthese.Save
Range("A1").Select
ActiveSheet.Paste
ActiveWorkbook.Close
Set objetSynthese = Nothing
    
End Sub

D'o&#249; peut provenir mon souci ? Qu'ai je oubli&#233; ? Quelqu'un peut il m'aider SVP ?
Merci par avance pour votre aide pr&#233;cieuse....

 Lolo

ScSami · Answer

As-tu essay&#233; ma derni&#232;re solution ???

(tu sais, faut parfois &#234;tre patien dans la vie!!! ... avant de reposter!)

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

Copie "Basique" vers fichier Excell (VBA)

1 réponse

Discussions similaires