Discussion :

[valérieF]

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 :

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

[Marc-L]

Bonjour !

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

conformément aux règles de ce forum …

_________________________________________________________________________________________________________

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

[joe.levrai]

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

Code :

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

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

[valérieF]

effectivement c plus court comme code, mais j'ai toujours le bug .... je comprends vraiment pas pourquoi ....

[valérieF]

c'est résolu merci bcp !!!

[valérieF]

Code :

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

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

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

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