copier un tableau excel vers un autre sans ouvrir le premier!Résolu

Question

Bonjour a tous!
Comment puis-je copier un tableau, sans ouvrir le fichier excel qui le contient, et le coler dans un autre fichier excel (ouvert celui-là) 
En espérant être assez claire! (C pas gagné)
Je vous remercie par avance.
Aurore

aurore52230 · Accepted Answer

Finalement j'ai réussi seul :


Donc j'ai créer une UserForm où l'utilisateur doit allé chercher le fichier ou se trouve le tableau, l'ouvrir grace à la Userform et enfin copier le contenu du classeur sur la feuil1.


En code cela donne ça :
Private Sub CommandButton1_Click()
    Dim chemin As String    'nom de variable récupérant le chemin du fichier
    Dim Fichier As String
    Dim NFichier As String
 
    chemin = Application.GetOpenFilename
    'Ici Range("D17" ) est la case dans laquelle tu veux afficher le chemin du fichier
    TextBox1.Text = chemin
    NFichier = Mid(chemin, InStrRev(chemin, "") + 1)
    TextBox2.Text = NFichier
End Sub


Private Sub CommandButton2_Click()
Dim strFichierXL As String
strFichierXL = TextBox1.Text
Application.Workbooks.Open strFichierXL
End Sub


Private Sub CommandButton3_Click()
Range("F7").Select
    Windows(TextBox2.Text).Activate
    Cells.Select
    Range("G1").Activate
    Selection.Copy
    Windows("Nouveau Feuille de calcul Microsoft Excel (3).xls").Activate
    Sheets("Feuil1").Select
    Cells.Select
    ActiveSheet.Paste
    Range("M38").Select
    Sheets("Feuil2").Select
    Range("C10").Select
End Sub

Private Sub CommandButton1_Click()
    Dim chemin As String    'nom de variable récupérant le chemin du fichier
    Dim Fichier As String
    Dim NFichier As String
 
    chemin = Application.GetOpenFilename
    'Ici Range("D17" ) est la case dans laquelle tu veux afficher le chemin du fichier
    TextBox1.Text = chemin
    NFichier = Mid(chemin, InStrRev(chemin, "") + 1)
    TextBox2.Text = NFichier
End Sub


Private Sub CommandButton2_Click()
Dim strFichierXL As String
strFichierXL = TextBox1.Text
Application.Workbooks.Open strFichierXL
End Sub


Private Sub CommandButton3_Click()
Range("F7").Select
    Windows(TextBox2.Text).Activate
    Cells.Select
    Range("G1").Activate
    Selection.Copy
    Windows("Nouveau Feuille de calcul Microsoft Excel (3).xls").Activate
    Sheets("Feuil1").Select
    Cells.Select
    ActiveSheet.Paste
    Range("M38").Select
    Sheets("Feuil2").Select
    Range("C10").Select
End Sub

Encore merci à ceux qui se sont creusé la tête

Copier un tableau excel vers un autre sans ouvrir le premier!

1 réponse

Votre réponse

Discussions similaires