Re : Problème modification fiche client
Voici la macro dans son ensemble. au moins vous aurez une vue plus générale.
Le but de celle-ci est de modifier une base de donnée client.
Donc j'ai un formulaire ou je remplie les champs qui sont midifiés et la macro s'occupe de mettre à jour les champs dans le tableau de la base de données.
Le problème vient de la référence qui se trouve en dessous de Activewindow (comme précisé dans mon précédent poste) merci de votre aide!!
le fichier client est a cette adresse:
Sub Modification()
'
' Modification Macro
' Macro enregistrée le 9/03/2009 par X XX
'
'
Range("A2:AA2").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,D22,D24,D26,C30:E30,C32:E32,C34:E34,C36:E36,C38:E38,C50:E56"). _
Select
Range("C49").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("D8").Select
End Sub
Sub aller_a_nouveau()
'
' aller_a_nouveau Macro
' Macro enregistrée le 9/03/2009 par X XX
'
'
Sheets("Nouveau Client").Select
Range("C6").Select
End Sub
Sub aller_a_Modification()
'
' aller_a_Modification Macro
' Macro enregistrée le 9/03/2009 par X XX
'
'
Sheets("Modifier le client").Select
Range("D8").Select
End Sub
Sub aller_a_consultaion()
'
' aller_a_consultaion Macro
' Macro enregistrée le 9/03/2009 par X XX
'
'
Sheets("Fiche Client").Select
Range("A1").Select
End Sub
Sub aller_a_menu()
'
' aller_a_menu Macro
' Macro enregistrée le 9/03/2009 par X XX
'
'
Sheets("Menu").Select
End Sub