Copier une feuille excel

[teodormircea]

Je voudrais savoir si il y a un moyen de copier un fichier excel, (avec une interface interactive-ou on peut explorer les dossier choisir le fichier et les colonnes qu'on desire copier dans la feuille active), et puis le coller dans l'emplacement ou on veux sur la feuille

 

[teodormircea]

Re : Copier une feuille excel

J'ai rajoute une feuille excel avec une explication pour pouvoir lacer un copier-coller, si il y a quelqu'un qui pourras me donner un coup de main je lui remercie d'avance 😀

 

[gilbert_RGI]

Re : Copier une feuille excel

Bonjour
avec ceci

Sub FichierOuvrir()
  FichierAOuvrir = Application.Dialogs(xlDialogOpen).Show
  MsgBox FichierAOuvrir
End Sub

'il faut mieux employer la boite suivante
'Outils/Références : cocher "Microsoft Excel XX.X Object Library"

Sub ChoixFichier()
  FichierChoisi = Application.GetOpenFilename
  MsgBox FichierChoisi
End Sub

Cdlt

RGI

 

[teodormircea]

Re : Copier une feuille excel

Merci gilbert je connais cette méthode ,pour chercher un fichier , le truc apres c'est de avoir afficher dans une texte box les colonnes qu'on veux copier et puis l'emplacement ou on veux copier (choisir la feuille du workbook et la cellule de référence ou on veux copier
😀
Le truc c'est de montrer e fichier dans une list et pas l'ouvrir, juste choisir les colonnes a copier et l'emplacement

 

[teodormircea]

Re : Copier une feuille excel

Est-il possible de chercher un fichier excel avec la méthode écrite mais d'afficher dans une text box les colonnes de ce fichier, avoir la possibilité de choisir des colonnes et de les copier dans le worbook qui exécute le macros dans la première feuille a l'endroit ou on clique avec la sourie😕

 

[gilbert_RGI]

Re : Copier une feuille excel

Bonjour

copier ce code dans un module standard

Option Explicit
Dim myRow As Long
Dim wks As Worksheet


Sub FoldersList()
Set wks = Worksheets.Add
myRow = 0

[COLOR="Red"]'Sélectionne ton répertoire ici :[/COLOR]
Call FoldersInFolder("C:\")
End Sub


Sub FoldersInFolder(myFolderName As String)

Dim FSO As Object
Dim myBaseFolder As Object
Dim myFolder As Object
Set FSO = CreateObject("scripting.filesystemobject")

Set myBaseFolder = FSO.GetFolder(myFolderName)

For Each myFolder In myBaseFolder.SubFolders
myRow = myRow + 1
wks.Cells(myRow, "A").Value = myFolder.Path
Call FoldersInFolder(myFolder.Path)
Next myFolder

End Sub

il crée une feuille avec la liste des fichiers


je pense que c'est cela car la demande n'est pas trés claire

Cdlt

RGI

 

[teodormircea]

Re : Copier une feuille excel

Voila avec un peut plus d'explications

A partir d'un workbook actif je veux voir dans une list box les colonnes d'un autre fichier(avoir la possibilité de choisir ce fichier avec un browsser). Une fois cette list box affiche avoir la possibilité de choisir les colonnes qu'on veux copier dans le workbook actif a l'endroit ou je place la sourie.
MERCI POUR TON INTÉRÊT 😀

 

[teodormircea]

Re : Copier une feuille excel

VOILA J'ai trouve ce code qui copie deux fichier excel dans un seule feille
Alors je voudrais le modifier pouvoir chercher moi meme, un par un les fichier a copier, et puis les copier cote a cote pas un sous l'autre comme ici

Sub MergeSheets()

    Dim SrcBook As Workbook

    Dim fso As Object, f As Object, ff As Object, f1 As Object

       

    Application.ScreenUpdating = False

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set f = fso.Getfolder("C:\Temp\")

    Set ff = f.Files

    

    For Each f1 In ff

        Set SrcBook = Workbooks.Open(f1)

        Range("A1:IV" & Range("A65536").End(xlUp).Row).Copy

        ThisWorkbook.Worksheets(1).Activate

        Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial

        Application.CutCopyMode = False

        SrcBook.Close

    Next

End Sub

 

[teodormircea]

Re : Copier une feuille excel

VOILA UNE SOLUTION TROUVE SUR LE MEME FORUM AVEC PEUT DE MODIFICATIONS



Sub Workbook_Open()
Dim vFichiers As Variant, vFileToOpen As Variant
Worksheets("ORIGINAl").Activate
vFichiers = Application.GetOpenFilename("*.xls, *.xls", , "Tous pour un et un pour tous", , True)
Application.ScreenUpdating = False
With ActiveWorkbook.Sheets(1)
For Each vFileToOpen In vFichiers
Workbooks.Open vFileToOpen
Range(Cells(1, 1), Cells(Cells(65536, 1).End(xlUp).Row, Cells(1, 255).End(xlToLeft).Column)).Copy _
Destination:=.Cells(.Cells(65536, 8).End(xlUp).Row, 8)
ActiveWorkbook.Close
Next vFileToOpen
End With
Application.ScreenUpdating = True
End Sub

 

[gilbert_RGI]

Re : Copier une feuille excel

VOILA UNE SOLUTION TROUVE SUR LE MEME FORUM AVEC PEUT DE MODIFICATIONS



Sub Workbook_Open()
Dim vFichiers As Variant, vFileToOpen As Variant
Worksheets("ORIGINAl").Activate
vFichiers = Application.GetOpenFilename("*.xls, *.xls", , "Tous pour un et un pour tous", , True)
Application.ScreenUpdating = False
With ActiveWorkbook.Sheets(1)
For Each vFileToOpen In vFichiers
Workbooks.Open vFileToOpen
Range(Cells(1, 1), Cells(Cells(65536, 1).End(xlUp).Row, Cells(1, 255).End(xlToLeft).Column)).Copy _
Destination:=.Cells(.Cells(65536, 8).End(xlUp).Row, 8)
ActiveWorkbook.Close
Next vFileToOpen
End With
Application.ScreenUpdating = True
End Sub

voilà c'est très bien 😉