Copier un tableau excel vers un autre sans ouvrir le premier! [Résolu]

Signaler
Messages postés
30
Date d'inscription
mercredi 13 février 2008
Statut
Membre
Dernière intervention
21 février 2017
-
Messages postés
30
Date d'inscription
mercredi 13 février 2008
Statut
Membre
Dernière intervention
21 février 2017
-
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
 

1 réponse

Messages postés
30
Date d'inscription
mercredi 13 février 2008
Statut
Membre
Dernière intervention
21 février 2017

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