erreur 1004 - lors de l'execution d'un Workbooks.Open (variable)

Version imprimable

Bonjour,

Je suis au début de l'elaboration d'une macro excel et je ne comprends pas pkoi ma macro bug lors de l'instruction
"Workbooks.Open (CheminFichierSourceComplet)"

alors que si je remplace la variable par la valeur de la variable, le fichier s'ouvre correctement....

merci pour votre aide

valérie

mon code :

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
Sub Creer_Conso_ProdMail_WVS1()
 
Dim wbConsoW As Workbook    'fichier Conso W
Dim wsConsoW As Worksheet   'feuille conso W
Dim wbSource As Workbook   'fichier à ouvrir
Dim wsSource As Worksheet  'feuille où on cherche les données
Dim wbConsoFinal As Workbook    'fichier Conso W
Dim wsConsoWFinal As Worksheet   'feuille conso W
 
Dim Plage_Liste_IA_PM As Range
Dim Cel As Range
Dim IA_PM As String
Dim Nom_Fichier As String
Dim CheminFichierSourceComplet As String
Set wbConsoW = ThisWorkbook
 
 
'Set Nom_Fichier = "Prévision_PM_2017_" & IA_PM & ".xlsx"
'Set CheminFichierConsoW = wbConsoW.Path & "\"
'Set CheminFichierSource = wbConsoW.Path & "\" & "Prévsions_IA_PM_mois_En_Cours" & "\"
 
 
With Sheets("index")
    Set Plage_Liste_IA_PM = Sheets("index").Range("IA_PM_Liste_Fichiers")
End With
 
For Each Cel In Plage_Liste_IA_PM
 
    If Cel = "" Then
    Exit For
    End If
 
 
 IA_PM = Cel.Value
 
 MsgBox (IA_PM)
 
 
Nom_Fichier = "Prévision_PM_2017_" & IA_PM & ".xlsx"
 
CheminFichierConsoW = wbConsoW.Path & "\"
MsgBox (CheminFichierConsoW)
 
CheminFichierSource = wbConsoW.Path & "\" & "Prévsions_IA_PM_mois_En_Cours" & "\"
MsgBox (CheminFichierSource)
 
CheminFichierSourceComplet = CheminFichierSource & Nom_Fichier
 
MsgBox (CheminFichierSourceComplet)
 
''''''Range("F25") = CheminFichierSource & Nom_Fichier
 
'''''Workbooks.Open CheminFichierSource & Nom_Fichier
 
Workbooks.Open (CheminFichierSourceComplet)
'''Workbooks.Open (CheminFichierSourceComplet)
 
 
 
Worksheet.Select (IA_PM)
 
'MsgBox derlig_reelle(wsSource.Range("A12:A31"))
 
 
 
Next
 
 
End Sub

09/03/2017, 23h56
Marc-L

Bonjour !

Je vois une faute d'orthographe dans la ligne n° … Ah zut le code n'a pas été balisé ‼

:tagcode: conformément aux règles de ce forum …

_________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

C'est vrai que c'est plus pratique avec les balises, regarde

Code:

1
2
3
4
5
6
7
Sub Creer_Conso_ProdMail_WVS1()
         Dim Cel As Range
    For Each Cel In Sheets("index").Range("IA_PM_Liste_Fichiers").Cells
          If Cel.Value = "" Then Exit For
          Workbooks.Open (ThisWorkbook.Path & "\Prévsions_IA_PM_mois_En_Cours\Prévision_PM_2017_" & Cel.Value & ".xlsx")
    Next Cel
End Sub

oups, j'ai un peu simplifié par habitude

10/03/2017, 11h07
valérieF

effectivement c plus court comme code, mais j'ai toujours le bug .... je comprends vraiment pas pourquoi ....
10/03/2017, 11h34
valérieF

c'est résolu merci bcp !!!

c'est résolu merci bcp !!!
10/03/2017, 11h44
Marc-L

C'est juste le chemin & nom de fichier incorrect, n'existant pas !
C'est comme l'Orthographe, aucune faute n'étant acceptée …

Et c'est simple à vérifier via la fonction Dir …
10/03/2017, 12h03
unparia

Bonjour
Un indice : il manque un "i" quelque-part
Repérer où ne nécessite aucune connaissance en code VBA, mais de la relecture, du soin et de l'attention.

petite question complémentaire

Code:

1
2
3
4
5
6
7
8
 
Sub Creer_Conso_ProdMail_WVS2()
         Dim Cel As Range
    For Each Cel In Sheets("index").Range("IA_PM_Liste_Fichiers").Cells
          If Cel.Value = "" Then Exit For
          Workbooks.Open (ThisWorkbook.Path & "\Prévision_PM_2017_*" & Cel.Value & ".xlsx")
    Next Cel
End Sub

J'ai rajouté une étoile à la fin de "Prévision_PM_2017_*" pour que je puisse gérér les mois mais ca ne fonctionne pas ....

10/03/2017, 15h19
Marc-L

Seul un nom exact de fichier peut être ouvert !

Consulter l'aide VBA de la fonction Dir là aussi …