Importer données avec fenêtre windows

[Linkeed]

Bonjour,

Je souhaite avec une macro qui en s’exécutant :

1. Ouvre une fenêtre Windows me permettant de sélectionner un fichier
2. Copie la feuille1 de ce fichier source dans mon fichier de référence (origine) sur la feuille3

J'ai trouvé ce code qui semble être ok mais je n'arrive pas à insérer mes noms de feuille

Sub test()
Dim a As Variant, Nom As String

Nom = ActiveWorkbook.Name
ChDrive "C:" ' Choix du lecteur
ChDir "C:\" 'Choix du répertoire
a = Application.GetOpenFilename("fichier excel (*.xls), *.xls", _
, "Sélection de vos fichiers excel", , True)

Select Case TypeName(a)
Case Is = "Boolean"
Exit Sub
Case Else
For b = LBound(a) To UBound(a)
Workbooks.Open a(b)
Next
End Select

Nom2 = ActiveWorkbook.Name
Cells.Select
Selection.Copy
Windows(Nom).Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.DisplayAlerts = False
Windows(Nom2).Close
Application.DisplayAlerts = True

End Sub

Pouvez-vous m'aider svp
Cdlt

 

[Roland_M]

Re : Importer données avec fenêtre windows

bonjour,

en dessous de > Nom2 = ActiveWorkbook.Name
rajouter ceci > NomFeuil$ = ActiveSheet.Name
et à la fin après fermeture
ActiveSheet.Name = NomFeuil$


par-contre je comprends pas bien là !?
For b = LBound(a) To UBound(a)
Workbooks.Open a(b)
Next

plusieurs fichiers sont ouverts !?

s'il s'agit de recopier les feuil1 de chaque classeur ce n'est pas ça du tout !?
attends réponse pour t'aider !

 

[Roland_M]

Re : Importer données avec fenêtre windows

re

voir la macro modifée pour copier la première feuille de plusieurs classeurs sélectionnés !

Sub TestCopiFeuil()
Dim Fichs As Variant
ChDir ThisWorkbook.Path
Fichs = Application.GetOpenFilename("fichier excel (*.xls), *.xls", , "Sélect Fichier(s)", , True)
If TypeName(Fichs) = "Boolean" Then Exit Sub

On Error GoTo TraitErreur: Err.Clear
Application.ScreenUpdating = False
Application.EnableEvents = False
For I = LBound(Fichs) To UBound(Fichs)
  Workbooks.Open Fichs(I): Sheets(1).Select: NomClasOpen$ = ActiveWorkbook.Name
  ActiveSheet.Copy After:=Workbooks(ThisWorkbook.Name).Sheets(ThisWorkbook.Sheets.Count)
  Application.DisplayAlerts = False
  Workbooks(NomClasOpen$).Close SaveChanges:=False
  Application.DisplayAlerts = True
  ThisWorkbook.Activate
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
M$ = "Nombre de Fichier(s)= " & UBound(Fichs): MsgBox M$, vbOKOnly, "Opération terminée"
Exit Sub

TraitErreur: 's/prog
Application.ScreenUpdating = True
Application.EnableEvents = True
Msg$ = "Erreur " & Err.Source & "  No " & Err.Number & vbLf & vbLf & Err.Description
MsgBox Msg$, vbCritical, "", Err.HelpFile, Err.HelpContext
On Error GoTo 0: Err.Clear: Exit Sub
End Sub

 

[Roland_M]

Re : Importer données avec fenêtre windows

re

pour ceux que ça interressent !

Deux routines pour copier des feuilles de plusieurs classeurs
Voir Module1...

LA 1'Routine > Sub TestCopiFeuil1()
copie une feuille, uniquement la première soit Sheets(1)

LA 2'Routine > TestCopiFeuilX()
copie une feuille sélectionnée dans une liste avec les feuilles du classeur chargé
tourne avec > Public ReponseMsgBox As Variant
et l'userform > fm_MsgBoxINPUT

il est possible de les essayer direct en tapant F5

 

[Linkeed]

Re : Importer données avec fenêtre windows

Bonjour Roland,

J'ai essayé toutes tes macros et elles fonctionnent très bien.
Ton dernier fichier est nickel.
Merci beaucoup.

Bonne journée