Bonjour,
Je bute sur des copies de résultats pour lesquelles je ne souhaite pas voir les formules des cellules mais leurs valeurs.
J'ai le même Pb. pour une copie de plage d'une feuille d'un classeur vers un autre classeur.
D'autre part, des erreurs 1004 à répétition me saoulent... tel l'exemple suivant :
Sub CopyDataOut()
Sheets(FRapport).Select ' feuille 1 du classeur en cours
Range(A1:M164").Select
Application.CutCopyMode = False
Selection.Copy
Sheets(FDataOut).Select ' feuille 4 du classeur en cours
Range("A1").Select ' erreur 1004 ? Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets(FRapport).Select
End Sub
J'abuse peut-être... mais je tourne en rond.
Merci d'avance. bab
Sub CopyDataOut()
Worksheets("FDataOut").Range("A1:M164").Value = Worksheets("FRapport").Range("A1:M164").Value
End Sub
et pour copier d'un classeur vers un autre il suffit de préciser le classeur :
Sub CopyDataOut()
Workbooks("Classeur1").Worksheets("FDataOut").Range("A1:M164").Value = Workbooks("Classeur2").Worksheets("FRapport").Range("A1:M164").Value
End Sub
Par contre, la copie entre classeur reconduit les formules alors que les valeurs seules me seraient utiles.
Le classeur récepteur, créé pour envoi, ne doit contenir que les résultats déterminés par le 1er.
D'autre part, après fermeture du classeur de traitement des données, le classeur créé 'Résu.xls' n'est pas reconnu comme document Excel. Pourquoi ?
Re-bonjour.
J'ai résolu le Pb. de non reconnaissance du classeur créé : Je mettais un suffixe (.xls) au nom du nouveau classeur, alors que c'est inutile.
Pour le reste, jai bien appliquer ton code et ça fonctionne pour le feuille to feuille.
Pour classeur(1),feuille(3) to classeur(2),feuille(1), j'ai un résultat curieux. A suivre...
Je te confirmerai ma satisfaction dans quelques instants.