Erreur Base de Donnees

[Kerchak38]

Je travail actuellement sur la base de donnees de LISTE_CLIENTS_LAUVIZH.xls pour mon boulot
et j'ai un message d'erreur quand je clic sur un bouton qui doit activer les modification d'un client
Voila le message d'erreur :

Erreur d'execution '1004':
Impossible de definir la propriete Top de la classe Windows

Sa marche bien sur avec une macro mais la je ne comprend plus de tout

D'avance merci a vous tous de votre aide

 

[Pierrot93]

Re : Erreur Base de Donnees

Bonjour,

sans voir le code qui pose problème, pas facile de t'aider... précise également la ligne qui bogue, en jaune lorsque tu es en débogage...

bonne journée
@+

 

[Kerchak38]

Re : Erreur Base de Donnees

Merci beaucoup de ton aide
Voila la ligne

Sub Modification()
'
' Modification Macro
' Macro enregistrée le 9/03/2009 par X XX
'

'

Range("A2:X2").Select
Selection.Copy
With ActiveWindow
.Top = -6
.Left = -3
End With
Sheets("BD").Select
Range("A" & [PARAM_NO_LIGNE] + 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
With ActiveWindow
.Top = -1
.Left = 0
End With
Sheets("Modifier le client").Select
Range( _

 

[Pierrot93]

Re : Erreur Base de Donnees

Re,

attention cette propriété ne peut pas être utilisée si ta fenêtre est agrandie, il faut que la fenêtrede ton classeur soit du niveau "inférieure"...

@+

 

[Kerchak38]

Re : Erreur Base de Donnees

merci
pierrot93
mais cela veut dire quoi
il faut que la fenêtre de ton classeur soit du niveau "inférieure"...

Je met le fichier de base en piece jointe

Merci de ton aide preicieuse

 

[Pierrot93]

Re : Erreur Base de Donnees

Re

je parle de l'icone "agrandir" ou "restaurer la fenêtre", fonction de l'état, à coté de la croix pour fermer le classeur... Pour que ton code puisse fonctionner, il faut que la fenêtre du classeur dont tu veux modifier la position ne soit pas "agrandie"...

Quel est l'interet de vouloir modifier la position, puisqu'à priori tu la repositionnes après ?

 

[Kerchak38]

Re : Erreur Base de Donnees

Certains de mes clients ont des modifications d'apres nos contrats je vais meme etre obliger de modifier cette base de donnees enfin essayer car je suis totalement nul
Si tu a un autre style de base a me proposer je suis completment preneur car je suis nul en base de donnees

Si tu regarde bien si je veut supprimer les 3 clients sa supprime completement la base de donnees je pense que cette BDD est trop complexe pour moi

 

[Pierrot93]

Re : Erreur Base de Donnees

Re

je parlais de modifier la position de la fenêtre...

A priori je dirais que tu peux supprimer les lignes relatives a ces modifications...

With ActiveWindow
.Top = -6
.Left = -3
End With

With ActiveWindow
.Top = -1
.Left = 0
End With

 

[Kerchak38]

Re : Erreur Base de Donnees

je test pour voir et je te tient au courant

Non sa ne marche pas

Dans l'exemple de la BDD celui qui la creer a mis CLIENT 1 a 3 pourrait tu me dire comment les supprimer sans que cela supprime deffinitivement la feuille BD ?

 

[Pierrot93]

Re : Erreur Base de Donnees

Re

pas cernain que nous parlions de la même chose...

je faisais allusion à cette macro :

Sub Modification()
    Range("A2:X2").Select
    Selection.Copy
    ''''''''''''''''''''''''With ActiveWindow
    ''''''''''''''''''''''''    .Top = -6
    ''''''''''''''''''''''''    .Left = -3
    '''''''''''''''''''''''''''End With
    Sheets("BD").Select
    Range("A" & [PARAM_NO_LIGNE] + 1).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    '''''''''''''''''''''''''''''''''''''''''With ActiveWindow
    ''''''''''''''''''''''''''''''''''''''''''    .Top = -1
    ' '''''''''''''''''''''''''''''''''''''''  ' .Left = 0
    ''''''''''''''''''''''''''''''''''''''''''End With
    Sheets("Modifier le client").Select
    Range( _
        "D10,D12,D14,D16,D18,D20,C24:E24,C26:E26,C28:E28,C30:E30,C32:E32,C44:E50"). _
        Select
    Range("C44").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("D8").Select

End Sub

ou je suggérais la suppression des lignes précédées de quote

'

@+

 

[Kerchak38]

Re : Erreur Base de Donnees

je suis tellement nul que je ne comprend vraiment plus rien

 

[Kerchak38]

Re : Erreur Base de Donnees

J'ai totalement modifier le fichier mais impossible de modifier la macro 🙁