aurore52230
Messages postés30Date d'inscriptionmercredi 13 février 2008StatutMembreDernière intervention21 février 2017
-
24 juin 2009 à 10:05
aurore52230
Messages postés30Date d'inscriptionmercredi 13 février 2008StatutMembreDernière intervention21 février 2017
-
26 juin 2009 à 10:04
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
A voir également:
Copier un tableau excel vers un autre sans ouvrir le premier!
aurore52230
Messages postés30Date d'inscriptionmercredi 13 février 2008StatutMembreDernière intervention21 février 2017 26 juin 2009 à 10:04
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