Discussion :

[Arnaud41]

Voila mon problème, dans le code a un moment j'ai ça :

Code :

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

1
2
3
4
nom_fichier_1 = "DépensesFonct_" & date_modif & "_" & heure
 
ActiveWorkbook.SaveAs Filename:=chemin_1 & nom_fichier_1 & ".xls", FileFormat _
                    :=xlOpenXMLWorkbook, CreateBackup:=False

Bon je passe sur certaines ligne.... Donc avec ceci mon fichier s'enregistre sous le nom "DépensesFonct_(date du jour et l'heure)"

Le soucis c'est qu'après je copie certaines valeur de ce fichier, mais a chaque macro exécuté il change de nom par rapport a la date et l'heure !

Du coup le code qui suit beaucoup plus loin :

Code :

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

1
2
3
4
5
6
Windows("DépensesFonct_09-2012.xls").Activate '<---- Il bogue ici, normal le fichier ne corresponds pas avec celui qu'il a enregisté plus haut...    
Selection.Copy
    Windows("SuiviBAPARC.xls").Activate
    Range("D14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Comment faire pour qu'il trouve le bon fichier ou je copie mes valeurs ?

@+ Arnaud

[Daniel.C]

Bonjour,

Ton "SaveAs" enregistre le classeur au format "xlsx". Je dirais que son nom est maintenant :
"DépensesFonct_09-2012.xls.xlsx"

[Theze]

Bonjour,

Comme ceci peut être ?

Code :

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

1
2
 
Windows(nom_fichier_1 & ".xls").Activate

La variable "nom_fichier_1 " doit avoir la bonne portée pour être utilisée dans ton second bout de code.

Hervé.

[Arnaud41]

Salut, merci "Theze"

Bon ça a l'air de prendre en compte le bon classeur, cependant j'ai une erreur d'exécution 1004 sur la ligne 5, 6...

Code :

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

1
2
3
4
5
6
Windows(nom_fichier_1 & ".xls").Activate 
Selection.Copy
    Windows("SuiviBAPARC.xls").Activate
    Range("D14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Parallèlement j'ai une autre soucis et je ne sais pas comment le gérer :

Plus haut dans le code j'ai ça :

Code :

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

1
2
3
nom_fichier_1 = "DépensesFonct_" & date_modif & "_" & heure
nom_fichier_2 = "DépensesInvest_" & date_modif & "_" & heure
nom_fichier_3 = "Recettes_" & date_modif & "_" & heure

Puis un code de condition qui regarde dans deux cellules, et suivant ce qu'il trouve il va enregistrer le fichier différemment...

Comment faire pour que dans cette ligne la :

Code :

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

Windows(nom_fichier_1 & ".xls").Activate

il puisse faire la différence entre le fichier ouvert, qui peut être :

Code :

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

1
2
3
nom_fichier_1 = "DépensesFonct_" & date_modif & "_" & heure
nom_fichier_2 = "DépensesInvest_" & date_modif & "_" & heure
nom_fichier_3 = "Recettes_" & date_modif & "_" & heure

@+ Arnaud et merci

[Theze]

Bonjour,

Il est assez difficile de te répondre avec précision en ne voyant que des bouts de code mais il te faut éviter autant que possible les "Activate", "Select", 'Selection", etc.. car je pense que tes soucis viennent principalement de là !
Utilise des variables "Workbook", "Worksheets" et "Range" pour transférer des valeurs des uns aux autres, exemple :

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
 
Dim CLS_DepensesFonct As Workbook
Dim CLS_DepensesInvest As Workbook
Dim CLS_Recettes As Workbook
Dim Fe_DepensesFonct As Worksheet
Dim Fe_DepensesInvest As Worksheet
Dim Fe_Recettes As Worksheet
Dim Plage As Range
 
'les classeurs
Set CLS_DepensesFonct = Workbooks("DépensesFonct_" & date_modif & "_" & heure & ".xls")
Set CLS_DepensesInvest = Workbooks("DépensesInvest_" & date_modif & "_" & heure & ".xls")
Set CLS_Recettes = Workbooks("Recettes_" & date_modif & "_" & heure & ".xls")
 
'les feuilles à prendre en compte pour chaque classeur (adapter leurs noms)
Set Fe_DepensesFonct = CLS_DepensesFonct.Worksheets("Feuil1")
Set Fe_DepensesInvest = CLS_DepensesInvest.Worksheets("Feuil1")
Set Fe_Recettes = CLS_Recettes.Worksheets("Feuil1")
 
'défini la plage à copier (pour l'exemple)
Set Plage = Fe_DepensesFonct.Range("A1:D20")
 
'copie cette dernière dans la feuille "Feuil1" du classeur "CLS_DepensesInvest"
Plage.Copy Fe_DepensesInvest.Range("A1")

Pour gérer l'absence du classeur, tu peux utiliser le code ci-dessous :

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
 
Dim Cls As Workbook
 
'gère l'erreur causée par l'absence du classeur
On Error Resume Next
 
Set Cls = Workbooks(nom_fichier_1 & ".xls")
 
'si erreur, le classeur n'exister pas sinon, l'active
If Err.Number <> 0 Then
 
    MsgBox "Le classeur '" & nom_fichier_1 & ".xls' n'est pas ouvert !"
 
Else
 
    Cls.Activate
 
End If

Hervé.

[Arnaud41]

Salut,

Bon pas resolu mais du coup je pars sur autre chose...

@+ et merci