Ouvrir et copier fichier

[Lenul]

Bonjour le forum,

J'ai un fichier appelé TEST.xls dans lequel j'ai inséré un bouton. Quelqu'un pourrait-il m'aider à créér une macro qui ouvre une boîte de dialogue et que je puisse choisir un fichier (ici Autre.xls) qui copie la feuille de même nom et qui colle les données dans la feuillet LGIT new. Le fichier Autre.xls serrait fermé aussitôt.

Merci à tous pour votre aide toujours très précisieuse.

Bonne journée à tous,
Lenul

 

[Temjeh]

Bonjour

Moi j'avais celui-ci avec lien (sans boite de dialog) si tu veut t'en inspirer

Workbooks.Open Filename:='C:\\Documents and Settings/Claude/Bureau/Autre.xls'
Windows('Autre.xls').Activate
Sheets('Autre').Copy Before:=Workbooks('Test.xls').Sheets('LGIT new')
ActiveSheet.Move After:=Sheets(Sheets.Count)
Windows('Autre.xls').Activate
ActiveWorkbook.Save
ActiveWorkbook.Close

A+

Temjeh

 

[Lenul]

Bonjour Temjeh,

C'est supersympa. Le problème est que c'est mieux avec une boîte de dialogue et aussi le nom des fichiers sera toujours différent...
Je n'ai toujours pas trouvé une parade a tout cela... J'ai encore beaucoup a apprendre.

Lenul

 

[Temjeh]

Bonjour

J'ai pas beaucoup de temps ...vite fait :

Dim Fichier As Variant
Dim Wb As Workbook
Fichier = Application.GetOpenFilename('Fichiers Excel , *.xls')
If Fichier = False Then Exit Sub
Set Wb = Workbooks.Open(Fichier)
Dim Nom
Nom = Wb.Name
Sheets('Autre').Copy Before:=Workbooks('Test.xls').Sheets(1)
ActiveSheet.Move After:=Sheets(Sheets.Count)
Windows(Nom).Activate
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True

Temjeh


Message édité par: temjeh, à: 21/06/2006 11:56

Message édité par: temjeh, à: 24/06/2006 00:37

 

[Abed_H]

Bonjour,

Sub Affiche()
Application.FileDialog(msoFileDialogSaveAs).Show
End Sub

Cordialement

Abed_H