Pb Pour copier une plage

Robert

XLDnaute Barbatruc

Repose en paix

• 26 Mai 2005

• #2

Bonjour Pascale, bonjour le forum,

Pas sûr du tout que ce soit la solution mais il manque une parenthèse à la fin de la première ligne de code :

With Range('mon_fichierl!A1') 'la première cellule de destination

 

Vote positif 0 Vote négatif

P

Pascale

Guest

• 26 Mai 2005

• #3

Bonjour Robert, le forum,

Effectivement ce n'est pas une erreur, C une omission de re-transcrption, mais merci quand même.
Pascale

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 26 Mai 2005

• #4

salut Pascale, salut Robert,

il y a une autre erreur dans la première ligne de code, il y a une barre en trop:
With Range('mon_fichierl!A1')
je pense qu'en la supprimant ca devrait fonctionner puisque chez moi, cela fonctionne

@+

 

Vote positif 0 Vote négatif

P

Pascale

Guest

• 26 Mai 2005

• #5

Bonsor Porcine82,le forum,

ok, mais comme pour Robert, C ds la ligne 'Paste:=xlValues' où est mon erreur mais je ne sais pas laquelle.
Pascale

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 26 Mai 2005

• #6

Bonsoir le fil, bonsoir le forum,

Malgré ma première erreur je reviens à la charge (on me dit têtu dans l'ignorance)...
essaie peut-être :

Sheets('mon_fichier').Select
With ActiveSheet.Range('A1') 'la première cellule de destination
.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With

 

Vote positif 0 Vote négatif

P

Pascale

Guest

• 27 Mai 2005

• #7

Re bonjour Robert, le forum,

Désolé, cela ne change rien.

@+.
Pascale

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 27 Mai 2005

• #8

bon jour a tous,

tout comme Robert, je suis un peu non complétement borné donc j'insiste encore car chez moi sans la correction que je te propose ca ne fonctionne pas et en corrigeant ca fonctionne.

je voudrais juste rajouter que c'est pas parce que l'erreure est sur cette ligne que c'est cette ligne qui a l'erreure. juste un petit exemple pour te le prouver, si tu fait une macro avec le code suivant

Code:

...
for i=1 to 15
  if ... then
    ...
  else
    ...
next i
...

il manque le end if, et pourtant le message d'erreur va etre 'boucle for sans next'

bon courage pour trouver ton erreur

@+

 

Vote positif 0 Vote négatif