je pige pas

[marie]

Voila j'ai un problème à la fin du code (en rouge), il me dit erreur de syntaxe
Dès que j'utilise destination:= j'ai ce message

si qqn peut me dire prq ?

Merci


Option Explicit

Private Sub CommandButton1_Click()
Workbooks.Open ('G:\\COMPTA2005\\Transports\\Détail factures TNT 2005')
Dim selstr As String
Dim TestMois As Date
Dim ligne As Variant
TestMois = Workbooks('controle.xls').Worksheets('Feuil2').Range('B2').Value
Debug.Print TestMois
Workbooks('Détail factures TNT 2005.xls').Activate
Worksheets('Détail').Activate
For Each ligne In Workbooks('Détail factures TNT 2005.xls').Worksheets('Détail').Range('A1', 'A65532').Rows
Worksheets('Détail').Range('A' & ligne.Row).Select
Debug.Print
If ActiveCell.Text = '29905' And ActiveCell.Offset(0, 3).Value = TestMois Then
If selstr <> '' Then
selstr = selstr & ',' & ligne.Row & ':' & ligne.Row
Else
selstr = ligne.Row & ':' & ligne.Row
End If
End If
Next
ActiveSheet.Range(selstr).Select
ActiveWindow.RangeSelection.Copy
Destination:=Worksbooks('controle.xls').Worksheets('Feuil1').range('A65535').End(xlup).offset(1,0)
Workbooks('controle.xls').Activate
Worksheets('feuil1').Activate
End Sub

 

[Riddick]

bonjour a tous

Le premier truc que je vois parceque c'est GROS c'est

Workbooks
pas WorksBooks

 

[PascalXLD]

Bonjour

Excuses moi je n'ai pas bien vu ton message 😱 mais essaies


Destination:=Workbooks('controle.xls').Worksheets('Feuil1').range('A' & Workbooks('controle.xls').Worksheets('Feuil1').range('A65535').End(xlup).Row +1)

Message édité par: Pascal76, à: 23/06/2005 16:36

 

[marie]

désolé pour la taille, je sais pas ce que j'ai fait j'ai corrigé la faute et ça marche tjs pas

 

[Hervé]

Bonjour

Une idée :

ta destination dans ton code est bien sur la meme ligne que le copy :

ActiveWindow.RangeSelection.Copy Destination:=Worksbooks('controle.xls').Worksheets('Feuil1').Range('A65535').End(xlUp).Offset(1, 0)

et non

ActiveWindow.RangeSelection.Copy
Destination:=Worksbooks('controle.xls').Worksheets('Feuil1').Range('A65535').End(xlUp).Offset(1, 0)

Salut

 

[2passage]

bonjour,

c'est surement parce que c'est pas écrit assez gros encore, que personne n'a remarqué...


WorkSbooks...

mais avec workbooks, ca ira mieux, je pense...

A+

Message édité par: 2passage, à: 23/06/2005 17:32

Message édité par: 2passage, à: 23/06/2005 17:33

 

[PascalXLD]

Bah alors 2passage regarde le fil de Riddick la première réponse Il l'avait déjà dit

🙂 😱 🙂 :unsure:

Bonne soirée

 

[2passage]

Bonjour,

<Mode super mauvaise foi ON> Ah ? .. c'est pas le début de sa signature</OFF>

et voila.. fin de journée.. gros n'orage... papotage dans les couloir... et c'est la sortie de route...
😱 😱

désolé 🙂

A+