Excel - Erreur : "Impossible d'accéder aux pa

Fermé

fireware - 31 juil. 2006 à 23:31
fireware - 1 août 2006 à 20:59

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.

A voir également:

Excel - Erreur : "Impossible d'accéder aux pa
Erreur 0x80070643 - Guide
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide

1 réponse

Réponse 1 / 1

fireware
1 août 2006 à 20:59

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...

Discussions similaires

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Discussions similaires

Newsletters