Discussion :

[uploadman18]

Bonjour,

voila je vous expose mon problème j'ai 3 fichiers excel à concatener dans un autre fichier excel mais sous forme de feuilles

J'ai essayer plusieurs macros mais celles ci demande d'indiquer le fichier et ce n'est pas ce que je recherche

Je veux ouvrir un fichier excel cliquer sur ma macro avoir une invite de commande en me demandant quel fichier à insérer en feuille

Merci de votre réponse

[Invité(e)]

Je fais un peu le même truc que toi en ce moment, ceci pourrait t'aider, il s'agit de la macro d'un bouton de commande d'une userform :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub CommandButton1_Click()
 
    Dim Chemin As String, Reponse As Boolean
    Dim Classeur_Maitre As String
    Dim Classeur_Slave As String
 
    Application.DisplayAlerts = False
 
   Classeur_Maitre = ActiveWorkbook.Name
       Chemin = CurDir & "\*.xls"
      Do
        Reponse = Application.Dialogs(xlDialogOpen).Show
 
         If (Reponse) Then
              Classeur_Slave = ActiveWorkbook.Name
              Workbooks(Classeur_Slave).Sheets("Feuil1").Range("A2:H1000").Copy
 
              With Workbooks(Classeur_Maitre).Sheets("Feuil1").Range("A65536").End(xlUp)
              .Offset(2, 8).Value = ActiveWorkbook.Name
              .Offset(2, 0).PasteSpecial Paste:=xlValues
              End With
 
              Workbooks(Classeur_Maitre).Activate
              Workbooks(Classeur_Slave).Close savechanges:=False
          Else
          MsgBox "Fichier créé, Enregistrer sous:"
          End If
      Loop While (Reponse) = True
 
    Copier
 
    MsgBox "Le fichier " & ActiveWorkbook.Name & " va être ouvert à la place de rapatriement.xls"
    ThisWorkbook.Close savechanges:=False
 
    Application.DisplayAlerts = True
 
    Unload UserForm1
 
End Sub

Si tu connais déjà ce genre de code, il suffit d'enlever la partie ou je selectionne un range particulier et ou je le cole avec un offset et de mettre un transfert de feuille à la place. En espérant que ça t'aide à "trouver la voie".

J'explique vite fais le fonctionnement : une boite de dilogue te permet d'ouvrir des fichiers excel de copier ce que tu désire, en boucle jusqu'à que tu ne selectionne plus de fichier, alors ces fichiers sont quitté et la macro te demande d'enregistrer sous.

[uploadman18]

Merci beaucoup de ta réponse clecle par contre il me met une erreur d'execution '9' et en mode pas à pas je ne trouve pas ce qui cloche pourtant le code me parait correct pouvez -vous m'aider Merci

Cordialement

[Invité(e)]

Sur quel ligne ? Qu'a tu remplacé ?

[uploadman18]

Je n'ai rien modifier à ton code mis à part le copier où je l'ai précisé en commentaire 'copier

^^