J
Jean P
Guest
Bonjour à tous
J'ai un petit problème sur lequel je bloque.
Situation:
a) à l'aide d'un usf (déja fait)
b) je choisi une date (DTPicker - déja fait)
c) et je dois la copier sur plusieurs feuilles du classeur cible
d) a chaque jour je recommence la même macro, donc la date doit changer de colonne à chaque fois
Problème:
a) j'ai un message d'erreur 91 - Variable objet ou variable de bloc With non définie
b) et le débogeur m'amène à la ligne : WSname = WS.Name
Voici ce que j'ai fait pour l'instant (et ce, en adpatant différentes solutions trouvés sur le forum ):
Private Sub CommandButton1_Click()
Dim WBCible As Workbook
Dim WS As Worksheet
Dim WSname As String
Dim Jour As Variant
Set WBCible = Workbooks("Historique cartierville.xls")
Jour = DateValue(DTPicker1.Value)
WSname = WS.Name
With WBCible.Sheets(WSname)
Jour.Copy .Cells(15, .Range("IV15").End(xlToLeft).Column + 1)
End With
Exit Sub
Unload Me
End Sub
Merci pour votre aide
Jean P
J'ai un petit problème sur lequel je bloque.
Situation:
a) à l'aide d'un usf (déja fait)
b) je choisi une date (DTPicker - déja fait)
c) et je dois la copier sur plusieurs feuilles du classeur cible
d) a chaque jour je recommence la même macro, donc la date doit changer de colonne à chaque fois
Problème:
a) j'ai un message d'erreur 91 - Variable objet ou variable de bloc With non définie
b) et le débogeur m'amène à la ligne : WSname = WS.Name
Voici ce que j'ai fait pour l'instant (et ce, en adpatant différentes solutions trouvés sur le forum ):
Private Sub CommandButton1_Click()
Dim WBCible As Workbook
Dim WS As Worksheet
Dim WSname As String
Dim Jour As Variant
Set WBCible = Workbooks("Historique cartierville.xls")
Jour = DateValue(DTPicker1.Value)
WSname = WS.Name
With WBCible.Sheets(WSname)
Jour.Copy .Cells(15, .Range("IV15").End(xlToLeft).Column + 1)
End With
Exit Sub
Unload Me
End Sub
Merci pour votre aide
Jean P