Discussion :

[thuglife]

Bonjour,

Voici mon petit soucis, j'ai un vba dans un classeur qui ouvre tous les fichiers excel présent dans le dossier du classeur.
Tout fonctionne nickel jusqu'à ce que j'essai de mettre la partie ouverture de fichier dans un sous programme. Là sa ne marche plus et je ne sais pas pourquoi.
Voici la base qui fonctionne :

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
 
Sub Principal()
    Dim Fichier As String, Chemin As String
    Dim Wb As Workbook
 
    Chemin = ThisWorkbook.Path & "\"
    Fichier = Dir(Chemin & "*.xlsm")
    Do While Fichier <> ""
    ...
    ...
    Wb.Close True
    Set Wb = Nothing
    Fichier = Dir
    Loop
End Sub

Et la même chose mais qui ne fonctionne plus :

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
 
Sub Principal()
    Dim Fichier As String, Chemin As String
    Dim Wb As Workbook
 
    Chemin = ThisWorkbook.Path & "\"
    Fichier = Dir(Chemin & "*.xlsm")
    Sec
End Sub
 
Private Sub Sec()
    Dim Fichier As String, Chemin As String
    Dim Wb As Workbook
    Do While Fichier <> ""
    ...
    ...
    Wb.Close True
    Set Wb = Nothing
    Fichier = Dir
    Loop
End Sub

Un petit coup de pouce :-) ?

[gnain]

Il faut déclarer tes variables en tête du module.

[thuglife]

Cela fonctionne nickel merci !!!!

Par contre maintenant dans mon sous programme, je copie une cellule d'un classeur que j'ouvre, je ferme le classeur et je copie la valeur sauvegarder dans le classeur de base en A1.
Sa marchait en un seul programme mais maintenant j'ai une erreur "la méthode range de l'objet _global" a échoué :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Do While Fichier <> ""
    NomClasseur = ActiveWorkbook.Name
    Set Wb = Workbooks.Open(Chemin & Fichier)
          Reference = Range("C1").Value
    Wb.Close True
    Set Wb = Nothing
          Range("A1").Value = Reference
    Fichier = Dir
    Loop
End Sub

Sa bug a Range("A1").Value = Reference

[gnain]

peut-être

Code :

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

Reference = wb.Range("C1").Value

[Invité]

Bonjour,
J'arrive vraiment trop tard mais pour le fun!

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
 
Sub Principal()
    Dim Fichier As String, Chemin As String
 
    Chemin = ThisWorkbook.Path & "\"
    Fichier = dir(Chemin & "*.xlsm")
While fichier<>""
    Sec Chemin & fichier 
Fichier=dir
Wend
End Sub
 
Private Sub Sec(Fichier As String)
    Dim Wb As Workbook
   set wb = workbooks.open(fichier)
   ThisWorkbook.seets(1).Range("A1").Value = wb.sheets(1).Range("C1").Value
 
    Wb.Close True
    Set Wb = Nothing
 
End Sub