Discussion :

[aziz1015]

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 :

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
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

[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

[aziz1015]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
' Show the Open dialog box.
RetVal = Application.Dialogs(xlDialogOpen).Show(Chemin & "\*.*")

a aucun moment chemin est déterminé !!!!!

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[aziz1015]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[aziz1015]

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 :

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
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

[patricktoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Chemin = "C:\"
RetVal = Application.Dialogs(xlDialogOpen).Show(Chemin & "\*.*")

[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