Discussion :

[FCL31]

J'utilise le code suivant afin de copier le contenu de plusieurs feuilles sur une autre dans le même classeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub copier()
Application.DisplayAlerts = False
 
Dim WS As Worksheet, DerniereLigne As Long
 
For Each WS In Worksheets
WS.Rows("1").Delete
If WS.Name <> "MACHINES" Then
DerniereLigne = Worksheets("MACHINES").Range("A65536").End(xlUp).Row
WS.Range("A1:P1000").Copy Worksheets("MACHINES").Range("A" & DerniereLigne + 1)
WS.Delete
End If
Next WS
Application.DisplayAlerts = True
End Sub

Sa marche.
Toutefois, j'ai un problème : a la fin de la feuille "MACHINES", j'ai du texte qui s'écrit. Dans le cas présent on dirait un post du forum que j'aurrais eventuellemnt copier dans le presse papier.

J'ai essayé le code suivant pour vider le presse papier mais sa marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CommandBars("clipboard").Controls(4).Execute

Une idée

[laetitia]

rebonjour FCL31 essai comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Option Explicit
Sub copier()
Application.DisplayAlerts = False
Dim WS As Worksheet
For Each WS In Worksheets
If WS.Name <> "MACHINES" Then
WS.Range("A1:P1000").Copy Destination:=Sheets("MACHINES").Range("A65536").End(xlUp)(2)
WS.Delete
End If: Next WS
End Sub

[FCL31]

Malheureusement pareil

Je comprend pas

[laetitia]

re c est quoi ce texte??? fait un essai sur un classeur vierge avec 2 ou 3 feulles avec quelques donnees pour voir si cela te produit cela va te prendre 5 minutes
decidement tu as de gros pb.. fait un test anti virus ca coute rien!!
pour ton autre post j'avais une solution sans find mais bon!! tu as cloture

[FCL31]

Voici se que sa me fait en pièce jointe

Même après redémarrage du PC


On dirait un post d'un sujet du forum (mais je ne pense même pas avoir lu se post)



Il doit y avoir un moyen de la supprimer d'une façon ou d'une autre

[laetitia]

re tu as essaye sur un fichier vierge???
anti virus essaye ou pas???
tu as PEUT ETRE une macro xla qui peut poser probleme???
au pire reinstaller xl2003 tu en as pour 20 minutes il faut faire par élimination a mon humble avis.