Importer des données avec VBA

Version imprimable

Bonjour,

J'aimerais créer une macro qui permette à l’utilisateur de sélectionner un fichier Excel et copier les données du fichier sélectionné vers une feuille non vide du fichier dans lequel se trouve la macro. J'ai trouvé cette procédure sur le forum que j'ai un peu modifié et elle bug maintenant

Pourriez vous m'aider svp ?

Cordialement

Code:

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
40
41
42
43
44
45
46
47
48
Sub Importer_Donnees()
 
'IMPORTATION D'UNE SEULE FEUILLE DE DONNEES
 
Dim DestBook As Workbook, SourceBook As Workbook
Dim DestSheet As Worksheet
Dim RetVal As Boolean
 
' Turn off screen updating.
Application.ScreenUpdating = False
 
'chemin en relatif du dossier ou se trouve tes données
ChDir ("C\")
'ou en hard
'Chemin = "C:\...\dossier"
 
MonFichier = Application.GetOpenFilename(FileFilter:="Fichiers Excel (*.xl*), *.xl*")
' Set object variables for the active book and active cell.
Set DestBook = ActiveWorkbook
Set DestSheet = Sheets(1) 'active la cellule OU TU AIMERAIS COPIER LES DONNEES
 
' Show the Open dialog box.
RetVal = Application.Dialogs(xlDialogOpen).Show(Chemin & "\*.*")
 
' If Retval is false (Open dialog canceled), exit the procedure.
If RetVal = False Then Exit Sub
 
' Set an object variable for the workbook containing the text file.
Set SourceBook = ActiveWorkbook
 
' Copy the contents of the entire sheet containing the text file.
Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy
 
'OU copie un range défini
'Range("A1:AD2000").copy
 
' Activate the destination workbook and paste special the values
' from the text file.
DestBook.Activate
DestCell.PasteSpecial Paste:=xlValues
 
' Close the book containing the text file.
SourceBook.Close False
 
Application.ScreenUpdating = True
 
 
End Sub

17/07/2015, 10h59
kiki29

Salut, une réponse peut-être ici en l'adaptant, si besoin est, à ton contexte.

P.-S. : supprime ton post qui n'est pas dans le bon forum
17/07/2015, 11h24
aziz1015

Citation:

Envoyé par kiki29

Salut, une réponse peut-être ici en l'adaptant, si besoin est, à ton contexte.

P.-S. : supprime ton post qui n'est pas dans le bon forum

Bonjour,

Merci pour votre aide.

Je ne suis pas vraiment un expert en VBA.
Pourriez vous juste me dire quelle erreur il y a sur mon code s'il vous plaît ? Parce que je me perds un peu dans le code que du fichier fusion.
Aussi comment supprimer un post sur ce forum ?

Cordialement

Bonjour
afin d'eviter les activate et autre tu pourrais te contenter d'une variable tableau
principe :
tu ouvre , tablo=ta plage desirée , tu ferme , destination=tablo
Code:

1 2 3 4 5 Set SourceBook = ActiveWorkbook tablo = Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Value SourceBook.Close False DestCell.Resize(UBound(tablo), 1) = tablo Application.ScreenUpdating = True
remarque: quand tu ferme la source le classeur de destination reprend le focus

et puis ca plant un peu a cause de ca aussi
Code:

1 2 ' Show the Open dialog box. RetVal = Application.Dialogs(xlDialogOpen).Show(Chemin & "\*.*")
a aucun moment chemin est déterminé !!!!!

bonjour,
le souci n'est pas de copier du code trouver sur le forum mais de se l'approprier!

Code:

1
2
3
4
5
MonFichier = Application.GetOpenFilename(FileFilter:="Fichiers Excel (*.xl*), *.xl*")
' If Retval is false (Open dialog canceled), exit the procedure.
If MonFichier = False Then Exit Sub
' Set an object variable for the workbook containing the text file.
Set SourceBook = Workbooks.Open(MonFichier)

Citation:
Envoyé par patricktoulon
Bonjour
afin d'eviter les activate et autre tu pourrais te contenter d'une variable tableau
principe :
tu ouvre , tablo=ta plage desirée , tu ferme , destination=tablo
Code:

1 2 3 4 5 Set SourceBook = ActiveWorkbook tablo = Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Value SourceBook.Close False DestCell.Resize(UBound(tablo), 1) = tablo Application.ScreenUpdating = True
remarque: quand tu ferme la source le classeur de destination reprend le focus

et puis ca plant un peu a cause de ca aussi
Code:

1 2 ' Show the Open dialog box. RetVal = Application.Dialogs(xlDialogOpen).Show(Chemin & "\*.*")
a aucun moment chemin est déterminé !!!!!
Bonjour,

Merci pour votre réponse
je ne comprends pas trop l'idée avec le tablo. Aussi, je ne connais pas forcément le nombre de cellules du fichier où récupérer les données.

Cordialement

Rebonjour,

J'ai pu le corriger comme ça, toutefois à l'ouverture, il ne pointe pas directement sur le répertoire C. Comment pourrais je arranger cela ?

Cordialement

Code:

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
40
41
42
Sub ImportTextFile()
 
Dim DestBook As Workbook, SourceBook As Workbook
Dim DestCell As Range
Dim RetVal As Boolean
Dim Chemin As String
 
' désactive le rafraichissement de l'écran avant la macro
Application.ScreenUpdating = False
 
'chemin en relatif du dossier ou se trouve tes données
Chemin = "C:\"
'ou en hard
'Chemin = "C:\...\dossier"
 
' Set object variables for the active book and active cell.
Set DestBook = ActiveWorkbook
Set DestCell = Range("A1") 'active la cellule où j'aimerais copier les données
 
' Show the Open dialog box.
RetVal = Application.Dialogs(xlDialogOpen).Show(Chemin & "\*.*")
 
' If Retval is false (Open dialog canceled), exit the procedure.
If RetVal = False Then Exit Sub
 
' Set an object variable for the workbook containing the text file.
Set SourceBook = ActiveWorkbook
 
' Copy the contents of the entire sheet containing the text file.
Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy
 
 
' active la destination et copie entièrement les éléments du classeur
DestBook.Activate
DestCell.PasteSpecial Paste:=xlValues
 
' Close the book containing the text file.
SourceBook.Close False
 
Application.ScreenUpdating = True
 
End Sub

Merci d'avance pour votre aide

17/07/2015, 15h51
patricktoulon

re
re
tu n'as pas l'impression qu'il y a un anti slash en trop la !!!!!
Code:

1 2 Chemin = "C:\" RetVal = Application.Dialogs(xlDialogOpen).Show(Chemin & "\*.*")
17/07/2015, 16h58
aziz1015

Merci pour votre aide, le programme fonctionne très bien. Je me demande maintenant s'il est possible de faire choisir une feuille spécifique par une boîte de dialogue, lorsque l'utilisateur aura choisi le fichier à partir duquel copier les données.

Cordialement