jeanba
XLDnaute Occasionnel
Bonjour le Forum,
J'ouvre ce fil pour un bout de code qui marche un coup sur 2...
besoin de vos lumières.
Explications:
J'ai un classeur source (WbData) depuis lequel je copie certaines données vers un classeur destinataire (WbExp).
Le code renvoie l'erreur suivante :
Sur cette ligne:
Besoin de votre aide.
Merci
Jeanba
J'ouvre ce fil pour un bout de code qui marche un coup sur 2...
besoin de vos lumières.
Explications:
J'ai un classeur source (WbData) depuis lequel je copie certaines données vers un classeur destinataire (WbExp).
VB:
Option Explicit
Dim WbData As Workbook ' WbData = Classeur de données source
Dim WbExp As Workbook ' WbExp = Classeur destinataire
Dim ShData As Worksheet ' ShData = Feuille du classeur de données source
Dim ShExpP As Worksheet ' ShExpP = Feuille du classeur destinataire nommé "PARAMETRES"
Dim ShExpD As Worksheet ' ShExpD = Feuille du classeur destinataire nommé "DONNEES"
Dim Mois, i&
Dim mmois, Nom, réponse
Private Sub UserForm_Initialize()
Set WbData = ThisWorkbook
End Sub
Private Sub CommandButton2_Click()
' 1. Ouvre le fichier destinataire
' ------------------------------------
Application.ScreenUpdating = False
Unload Me
' 2. Sélectionne le mois à clôturer et générer le fichier comptable
Mois = (Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", _
"Décembre"))
For i = 1 To 12
If Me.Controls("OptionButton" & i).Value = True Then
If WbData.Sheets(Mois(i - 1)).Range("L4") = "" Then
MsgBox ("Le journal du mois de " & WbData.Sheets(Mois(i - 1)).Range("B7") & " n'est pas clôturé! " & _
Chr(10) & "Aucun transfert ne peut avoir lieu tant que le journal concerné n'est pas clôturé!")
GoTo FIN
Le code renvoie l'erreur suivante :
Sur cette ligne:
Besoin de votre aide.
Merci
Jeanba