Pb Pour copier une plage

[Pascale]

Bonjour tout le monde,

J'ai eu ce code par Denis;

With Range('mon_fichierl!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

mais au 1er Paste, il me met une erreur 1004 ' Methode PasteSpecial de la classe Range a échoué. Si j'interverti les 'PasteSpecial',l'erreur est sur le 2ème Paste donc comme toujours sur 'Paste:=xlValues'
Etant donné que j'ai des cellules fusionnées,copier en 1er le format est plus rationnel, mais cela ne change pas le Pb.
Avez vous une idée.
Merci et bonne Aprèm.
Pascale

 

[Robert]

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

 

[Pascale]

Bonjour Robert, le forum,

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

 

[porcinet82]

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

@+

 

[Pascale]

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

 

[Robert]

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

 

[Pascale]

Re bonjour Robert, le forum,

Désolé, cela ne change rien.

@+.
Pascale

 

[porcinet82]

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

...
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

@+