Discussion :

[Elijah37]

Bonjour,

J'ai un petit problème avec un module sur Excel.

Je veux ouvrir un classeur, copier un champ sur mon classeur principal puis refermer le classeur annexe.

Tout se passe bien sauf la fermeture.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim fic1 as String
fic1 = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "Donnez le nom du 1er Fichier")
 
Application.Workbooks.Open (fic1)
ActiveSheet.Range(plage1).Select
Selection.Copy
Application.ThisWorkbook.Activate
Range("D105:E105").Offset(0, n).PasteSpecial
 
Workbooks(fic1).Close
'''Erreur d'execution 9 (voir titre du topic)

Les information sur internet quant à ce problème sont très varièes mais aucune ne semble mener exactement à mon probleme.

Merci de bien vouloir m'aider.

[ouskel'n'or]

Il nous manque des bout mais bon.

Code :

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

1
2
3
4
5
6
Application.Workbooks.Open (fic1)
DoEvents 'laisse à fic1 le temps de s'ouvrir
ActiveSheet.Range(plage1).Copy
ThisWorkbook.Worksheets("NomDeLaFeuille").Range("D105:E105").Offset(0, n).PasteSpecial '****** là, il manque un bout *****
DoEvents 'laisse le temps à la copie de se faire
Activeworkbook.Close false 'ferme le fichier fic1 sans l'enregistrer

DoEvents laisse le temps au fichier de se fermer avant de passer à la suite du code si suite il y a

[Elijah37]

Cela ne fonctionne pas, voici le code en entier.

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Private Sub CommandButton1_Click()
Dim fic1 As String, fic2 As String, fic3 As String, fic4 As String, fic5 As String
fic1 = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "Donnez le nom du 1er Fichier")
fic2 = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "Donnez le nom du 2ème Fichier")
fic3 = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "Donnez le nom du 3ème Fichier")
fic4 = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "Donnez le nom du 4ème Fichier")
fic5 = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "Donnez le nom du 5ème Fichier")
Dim plage1 As String
Dim plageso1 As String
Dim n As Integer
Dim ok As Boolean
ok = False
n = 0
Do Until ok = True
    If ActiveSheet.Range("D6:E6").Offset(0, n) <> "" Then
        n = n + 2
    Else
        ok = True
    End If
Loop
 
''''''''''''''''''''''''''''''''''''''''''''''''
plage1 = "F4"
''''''''''''''''''''''''''''''''''''''''''''''''
 
Application.Workbooks.Open (fic1)
ActiveSheet.Range(plage1).Select
Selection.Copy
ActiveWorkbook.Close False
Application.ThisWorkbook.Activate
Range("D101:E101").Offset(0, n).PasteSpecial
 
Application.Workbooks.Open (fic2)
ActiveSheet.Range(plage1).Select
Selection.Copy
Application.ThisWorkbook.Activate
Range("D102:E102").Offset(0, n).PasteSpecial
 
Application.Workbooks.Open (fic3)
ActiveSheet.Range(plage1).Select
Selection.Copy
Application.ThisWorkbook.Activate
Range("D103:E103").Offset(0, n).PasteSpecial
 
Application.Workbooks.Open (fic4)
ActiveSheet.Range(plage1).Select
Selection.Copy
Application.ThisWorkbook.Activate
Range("D104:E104").Offset(0, n).PasteSpecial
 
Application.Workbooks.Open (fic5)
ActiveSheet.Range(plage1).Select
Selection.Copy
Application.ThisWorkbook.Activate
Range("D105:E105").Offset(0, n).PasteSpecial
 
''en erreur
Workbooks(fic1).Close
Workbooks(fic2).Close
Workbooks(fic3).Close
Workbooks(fic4).Close
Workbooks(fic5).Close
''
 
 
End Sub

[tirex28]

Bonjour,

Essaye:

Code :

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

Workbooks(dir(fic1)).Close

Cordialement,

Tirex28/

[Elijah37]

Ne fonctionne pas , désolé

[ouskel'n'or]

As-tu testé mon code ?

Et puis "ça ne fonctionne pas !" n'est pas une réponse : Message d'erreur ? Est-ce le même ? Quel est-il ? Sur quelle ligne ?
Aide-nous à t'aider !
A+

[Elijah37]

SI je dit "cela ne fonctionne pas" , c'est qu'il n'y a aucune amélioration quelque soit la solution. Sinon j'aurais dit "c'est presque ça mais j'ai une autre erreur".

L'erreur est toujours la même indiquée lors de la création du topic.

Le close pose problème.

[fring]

Bonjour tlm,

Le close pose problème parce que la variable fic1 ne contient pas uniquement le nom du classeur mais son nom + son chemin complet

Un autre bug pourrait également survenir si l'utilisateur clic sur "annuler" dans la boîte de dialogue d'ouverture de fichier.

A tester

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
Private Sub CommandButton1_Click()
Dim fic(1 To 5) As Variant
Dim wbk As Workbook
Dim plage1 As String
Dim plageso1 As String
Dim n As Integer
Dim ok As Boolean
Dim i As Integer
 
ok = False
n = 0
Do Until ok = True
    If ActiveSheet.Range("D6:E6").Offset(0, n) <> "" Then
        n = n + 2
    Else
        ok = True
    End If
Loop
 
''''''''''''''''''''''''''''''''''''''''''''''''
plage1 = "F4"
''''''''''''''''''''''''''''''''''''''''''''''''
 
For i = 1 To 5
    fic(i) = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "Donnez le nom du Fichier " & i)
Next
 
Application.ScreenUpdating = False
For i = 1 To 5
    If fic(i) <> False Then
        Set wbk = Application.Workbooks.Open(Filename:=fic(i))
        ActiveSheet.Range(plage1).Copy
        Application.ThisWorkbook.Activate
        Range("D101:E101").Offset(i - 1, n).PasteSpecial
        wbk.Close
    End If
Next
Application.ScreenUpdating = True
 
End Sub

EDIT : Modification de la variable wbk, une seule suffit

[Elijah37]

Merci Beaucoup, le problème est réglé.

Merci aussi pour le ptit coup d'optimisation