Excel - Erreur : "Impossible d'accéder aux pa
fireware
-
fireware -
fireware -
Quand j'ai installé MS office 2000 prenium, j'ai eu ce message d'erreur à la fin de son installation :
"Impossible d'accéder aux paramètres de configuration du Serveur Web personnel Microsoft."
Puis l'installation se termine.
Tout fonctionne, sauf quand j'utilise un fichier excel d'un ami me permettant de gérer mon compte bancaire. Ce fichier utilise des macro et Virtual Basic. Quand je l'ouvre j'ai ce message :
"Impossible de charger le objet car il n'est pas disponible sur cette machine."
Puis j'ai un autre message en apyuant sur diverses boutons :
"Erreur de compilation dans le module caché : UserForm1"
Cela vient forcément de mon PC puisque le programe marche impec sur un autre PC qui a lui aussi Windows XP familiale.
Donc si quelqu'un a la solution merci.
"Impossible d'accéder aux paramètres de configuration du Serveur Web personnel Microsoft."
Puis l'installation se termine.
Tout fonctionne, sauf quand j'utilise un fichier excel d'un ami me permettant de gérer mon compte bancaire. Ce fichier utilise des macro et Virtual Basic. Quand je l'ouvre j'ai ce message :
"Impossible de charger le objet car il n'est pas disponible sur cette machine."
Puis j'ai un autre message en apyuant sur diverses boutons :
"Erreur de compilation dans le module caché : UserForm1"
Cela vient forcément de mon PC puisque le programe marche impec sur un autre PC qui a lui aussi Windows XP familiale.
Donc si quelqu'un a la solution merci.
1 réponse
-
Alors j'ai fait quelques modif.
Le 1er message d'erreur ne s'affiche plus (celui avec l'objet) mais quand je clique sur un bouton, un autre s'affichait. J'ai résolu le problème en voyant qu'il manquez un fichier .dll dans la bibliothèque (outils > référence).
Donc j'ai mis ce fichier .dll mais un autre message d'erreur a remplacé l'ancien :
Erreur 424
Objet required
Sur cette ligne :
DTPicker1.Day = Day(Date)
De ce paragraphe :
' initialisation de la fenêtre
Private Sub UserForm_Activate()
derlig = Application.WorksheetFunction.Max(Range("a:a"))
cel1 = "a" & derlig + 2
cel2 = "b" & derlig + 2
cel3 = "c" & derlig + 2
cel4 = "d" & derlig + 2
cel5 = "e" & derlig + 2
cel6 = "f" & derlig + 2
cel7 = "g" & derlig + 2
cel8 = "h" & derlig + 2
cel9 = "i" & derlig + 2
colonne1 = "a" & derlig + 3
colonne2 = "b" & derlig + 3
colonne3 = "c" & derlig + 3
colonne4 = "d" & derlig + 3
colonne5 = "e" & derlig + 3
colonne6 = "f" & derlig + 3
colonne7 = "g" & derlig + 3
colonne8 = "h" & derlig + 3
colonne9 = "i" & derlig + 3
If ActiveSheet.Name = "Janvier" Then
mois = "janv"
mois2 = 1
jourmax = "31"
ElseIf ActiveSheet.Name = "Février" Then
mois = "fév"
mois2 = 2
If Year(Date) = "2004" Or Year(Date) = "2008" Or Year(Date) = "2012" Or Year(Date) = "2016" Or Year(Date) = "2020" Or Year(Date) = "2024" Or Year(Date) = "2028" Or Year(Date) = "2032" Or Year(Date) = "2036" Or Year(Date) = "2040" Or Year(Date) = "2044" Or Year(Date) = "2048" Or Year(Date) = "2052" Or Year(Date) = "2056" Or Year(Date) = "2060" Then
jourmax = "29"
Else
jourmax = "28"
End If
ElseIf ActiveSheet.Name = "Mars" Then
mois = "mars"
mois2 = 3
jourmax = "31"
ElseIf ActiveSheet.Name = "Avril" Then
mois = "avril"
mois2 = 4
jourmax = "30"
ElseIf ActiveSheet.Name = "Mai" Then
mois = "mai"
mois2 = 5
jourmax = "31"
ElseIf ActiveSheet.Name = "Juin" Then
mois = "juin"
mois2 = 6
jourmax = "30"
ElseIf ActiveSheet.Name = "Juillet" Then
mois = "juil"
mois2 = 7
jourmax = "31"
ElseIf ActiveSheet.Name = "Août" Then
mois = "août"
mois2 = 8
jourmax = "31"
ElseIf ActiveSheet.Name = "Septembre" Then
mois = "sept"
mois2 = 9
jourmax = "30"
ElseIf ActiveSheet.Name = "Octobre" Then
mois = "oct"
mois2 = 10
jourmax = "31"
ElseIf ActiveSheet.Name = "Novembre" Then
mois = "nov"
mois2 = 11
jourmax = "30"
ElseIf ActiveSheet.Name = "Décembre" Then
mois = "déc"
mois2 = 12
jourmax = "31"
End If
OptionButton1.Value = True
DTPicker1.Day = Day(Date)
DTPicker1.Month = mois2
DTPicker1.Year = Year(Date)
DTPicker1.MinDate = "1/" & mois2 & "/" & Year(Date)
DTPicker1.MaxDate = jourmax & "/" & mois2 & "/" & Year(Date)
DTPicker1.Day = Day(Date)
' modes de transaction
Dim x, y, lignemode, tousmode, ligneobjet, objet
x = 2
lignemode = "b" & x
While Workbooks("Comptes personnels.xls").Worksheets("Mode de transaction comptes").Range(lignemode) <> ""
tousmode = Workbooks("Comptes personnels.xls").Worksheets("Mode de transaction comptes").Range(lignemode)
ComboBox2.AddItem (tousmode)
x = x + 1
lignemode = "b" & x
Wend
' Objets
y = 2
ligneobjet = "b" & y
While Workbooks("Comptes personnels.xls").Worksheets("Objets comptes").Range(ligneobjet) <> ""
objet = Workbooks("Comptes personnels.xls").Worksheets("Objets comptes").Range(ligneobjet)
ComboBox3.AddItem (objet)
y = y + 1
ligneobjet = "b" & y
Wend
End Sub
Ok je veux bien, mais là je bloque...
