Code simple qui ne marche pas

[Jacques25]

Bonjour à tous,

Je rencontre un problème avec une macro. Elle est très simple dans son fonctionnement mais elle ne fait pas ce que je lui demande.

J'ai 2 fichiers ouverts Fichier A et Fichier 1
Au début je suis dans le Fichier A, je presse sur un bouton qui :
- efface 2 colonnes
- bascule sur l'onglet 1 du fichier 1
- passe en calcul manuel et enlève la protection
- doit venir copier les cellules C3 à DXX (XX étant la dernière ligne pleine)


Voici déjà le début du code jusqu'au premier disfonctionnement :

Private Sub CommandButton1_Click()

Columns("M:N").ClearContents

Windows("fichier1.xls").Activate
Sheets("onglet1").Select

With Application
.Calculation = xlManual
End With

Sheets("onglet1").Unprotect Password:="toto"

' les 3 lignes ci dessous ne marchaient pas j'ai voulu poursuivre sans elles
'Range("A2:AD500").Sort Key1:=Range("C2"), Order1:=xlAscending, Header:= _
'xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
'DataOption1:=xlSortNormal

dl = Range("D5000").End(xlUp).Row

Range("C3😀" & dl).copy

Les cellules C3 à DXX (XX étant dl) de l'onglet 1 devraient être copiées et elles ne le sont pas, il copie les cellules C3 à DXX de mon fichier de départ.
Avez vous une explication à mon problème?

En pas à pas avec des stops je n'ai pas eu de soucis... Je n'y comprend rien.

Merci pour aide.
Jacques

 

[youky(BJ)]

Re : Code simple qui ne marche pas

Bonjour,
Peut être mettre la propriété du bouton
TakeFocuOnClick=false
à tester
Bruno

 

[Jacques25]

Re : Code simple qui ne marche pas

Bonjour Bruno,

Je viens de faire l'essai mais ça ne change rien.
J'ai essayé avec Windows("fichier1.xls").select au lieu de activate mais j'ai une erreur.
J'ai essayé avec Worbooks au lieu de Windows mais ça ne change rien.

Je sais plus quoi essayer.

 

[youky(BJ)]

Re : Code simple qui ne marche pas

Voici qui fonctionne
Vérifie la ligne copie j'ai mis C3😀 & dl
Bruno

Private Sub CommandButton1_Click()
 Columns("M:N").ClearContents
  Workbooks("fichier1.xls").Activate
With Workbooks("fichier1.xls").Sheets("onglet1")
 .Select
Application.Calculation = xlManual
.Unprotect "toto"
 .Range("A2:AD500").Sort Key1:=.Range("C2"), Order1:=xlAscending, Header:= _
 xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
 DataOption1:=xlSortNormal
dl = .Range("D5000").End(xlUp).Row
.Range("C3:D" & dl).Copy
'[A1].PasteSpecial
 End With
End Sub

 

[Jacques25]

Re : Code simple qui ne marche pas

Salut Youky, le forum,

Merci pour ce code. Une petite question que représente le [A1] en fin de code?

Merci pour ton aide.
Bonne journée.

jacques

 

[ERIC S]

Re : Code simple qui ne marche pas

Bonjour

c'est une autre façon d'écrire Range("A1")

il serait peut-être utile de remettre
Application.Calculation = xlCalculationAutomatic
en fin de macro

 

[Jacques25]

Re : Code simple qui ne marche pas

Salut Eric s,

Merci pour la réponse, effectivement je ne savais pas. Pour la remise en place du calcul c'est prévu dans la suite du code que j'ai largement diminué pour l'exemple.

Encore merci
@ plus

Jacques