Discussion :

[dorina]

Bonjour à tous !

Je suis débutant en VBA et j'ai du mal à faire la fusion de 2 macros que j'ai crée, c'est pour cela que j'ai besoin de votre aide désespérément !
En effet, je dois à travers un bouton, qui se trouve sur ma Feuil1 de mon fichier Excel 1, parcourir des fichiers Excel.
Lorsque je trouve le fichier qu'il me faut, si je le choisit, je dois faire en sorte de générer une copie de ses feuilles de calcul dans mon fichier de base (Excel 1) à la suite de la feuille principale (la ou se trouve le bouton).
A présent j'ai réussi à faire une fonction qui va parcourir des fichier et une autre qui permet la copie d'un fichier sélectionné (en dur) dans mon classeur de base (Excel1).

Code :

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

1
2
3
4
5
6
Sub copier()
    Set FichSource = Application.Workbooks.Open(cheminFichSAS) 'avec le chemin vers Classeur.xltm
 
    FichSource.Sheets("Feuil1").Range("a1:i68").Copy ThisWorkbook.Sheets("Feuil2").Range("A1")
    FichierSource.Close True
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'-------------------------
Sub parcourir()
    Dim AppExcel As New Excel.Application
    Dim FichierSource As Variant
 
    FichierSource = AppExcel.GetOpenFilename
 
    If FichierSource <> False Then
        MsgBox FichierSource 'ce ici que j'ai essayer d'implémenter ma fonction parcourir mais sans réussite 
 
    Else
        MsgBox "vous n'avez choisi aucun fichier"
    End If
End Sub

Si mes explications ne sont pas claires n’hésitez pas à me le dire.

Je vous remercie d'avance !!

[dorina]

Finalement je pense avoir trouvé la solution mais si vous avez d'autres idées, méthodes je suis prenante !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub parcourir_selectionner()
    Dim AppExcel As New Excel.Application
    Dim FichSource As Variant
 
    FichSource = AppExcel.GetOpenFilename
    Set FichS_source = Application.Workbooks.Open(FichSource)
 
    If FichSource <> False Then
        FichS_source.Sheets("A").Range("a1:i68").Copy ThisWorkbook.Sheets("Feuil2").Range("A1")
        FichS_source.Close True
    Else
        MsgBox "vous n'avez choisi aucun fichier"
    End If
End Sub

[marot_r]

Bonjour.

Cela paraît bien à un petit détail prés.

On évite d'utiliser un fichier tant qu'on est pas certain qu'il est dispo, donc il conviendrait de faire test de la sélection avant d'ouvrir le fichier.
Et à priori tu n'as pas défini FichS_source ou alors c'est une variable globale.
Je vais supposé que c'est une omission dans le code modifié ci-dessous.

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
Sub parcourir_selectionner()
    Dim AppExcel As New Excel.Application
    Dim FichSource As Variant
    dim FichS_source as Workbook
 
    FichSource = AppExcel.GetOpenFilename
 
    If FichSource <> False Then
        Set FichS_source = Application.Workbooks.Open(FichSource)
        FichS_source.Sheets("A").Range("a1:i68").Copy ThisWorkbook.Sheets("Feuil2").Range("A1")
        FichS_source.Close True
    Else
        MsgBox "vous n'avez choisi aucun fichier"
    End If
End Sub

A+