piwa
XLDnaute Occasionnel
Bonjour,
Voila je dispose d'une macro ci dessous qui fonctionne parfaitement sur mon micro perso sous xl 2003 et des que je l'utilise sous mon micro pro avec aussi Xl 2003 j'ai un message d'erreur de bibilotheque introuvable sur un ligne :
Wb.Sheets("Trace34").Range("B" & a).Value = Date sur Date VBA bloc avec le message Bibliotheque introuvable ?????
Voila le code Global :
Private Sub Workbook_Open()
Dim Wb As Workbook
Dim a As Long
'Traceur d 'ouverture de Fichier Utilisateur + Date + Heure ds Fichier Log.xls Externe
' Ouvrir le fichier Histo (attention chemin)
Application.ScreenUpdating = False 'Masquer l'affichage
Set Wb = Workbooks.Open(Filename:="S:\Ventes_34\Suivi 34\temp\LogSuivi.xls")
a = Wb.Sheets("Trace34").Range("A65536").End(xlUp).Row + 1
Wb.Sheets("Trace34").Range("A" & a).Value = Application.UserName
Wb.Sheets("Trace34").Range("B" & a).Value = Date
Wb.Sheets("Trace34").Range("C" & a).Value = Now - Int(Now)
'Fermer en sauvegardant les modifications
Wb.Close True
Application.ScreenUpdating = True 'Retablir l'affichage
MsgBox "AVERTISSEMENT : Activer les macros IMPERATIVEMENT sinon les resultats seront erronés et/ou certaines fonctions seront impossibles. Donc si vous avez repondu NON , fermer le classeur et recommencer. Merci © 2006 PiwA"
End Sub
Merci de votre aide
Voila je dispose d'une macro ci dessous qui fonctionne parfaitement sur mon micro perso sous xl 2003 et des que je l'utilise sous mon micro pro avec aussi Xl 2003 j'ai un message d'erreur de bibilotheque introuvable sur un ligne :
Wb.Sheets("Trace34").Range("B" & a).Value = Date sur Date VBA bloc avec le message Bibliotheque introuvable ?????
Voila le code Global :
Private Sub Workbook_Open()
Dim Wb As Workbook
Dim a As Long
'Traceur d 'ouverture de Fichier Utilisateur + Date + Heure ds Fichier Log.xls Externe
' Ouvrir le fichier Histo (attention chemin)
Application.ScreenUpdating = False 'Masquer l'affichage
Set Wb = Workbooks.Open(Filename:="S:\Ventes_34\Suivi 34\temp\LogSuivi.xls")
a = Wb.Sheets("Trace34").Range("A65536").End(xlUp).Row + 1
Wb.Sheets("Trace34").Range("A" & a).Value = Application.UserName
Wb.Sheets("Trace34").Range("B" & a).Value = Date
Wb.Sheets("Trace34").Range("C" & a).Value = Now - Int(Now)
'Fermer en sauvegardant les modifications
Wb.Close True
Application.ScreenUpdating = True 'Retablir l'affichage
MsgBox "AVERTISSEMENT : Activer les macros IMPERATIVEMENT sinon les resultats seront erronés et/ou certaines fonctions seront impossibles. Donc si vous avez repondu NON , fermer le classeur et recommencer. Merci © 2006 PiwA"
End Sub
Merci de votre aide
