laurent56380
Messages postés21Date d'inscriptionvendredi 18 janvier 2008StatutMembreDernière intervention27 janvier 2008
-
25 janv. 2008 à 06:29
bosstony -
21 août 2012 à 17:48
Bonjour,
Ne connaissant pas grand chose en VBA, j'ai essayé de faire une macro comme j'ai pu.
Cette macro recopie une sélection de lignes dans plusieurs classeurs.
Le problème c'est qu'elle fonctionne pour 1 fichier et qu'elle ouvre bien le 2ème mais ensuite je reçois le message "La méthode paste spéciale de la classe range a échouée".
Que dois-je modifier??
Voici la macro au complet.
Sub Copie_plage()
Dim Fich As String, Ligne As Long
Const Chemin = "D:\ABC\Laurent\Essai macro"
Fich = Dir(Chemin & "\*.xl*")
ThisWorkbook.Sheets("98%").Rows("3770:4000").Select
Selection.Copy
Do While Fich <> ""
Workbooks.Open Filename:=Chemin & Fich
Worksheets("98%").Select
Rows("3770").Select
J'ai un problème du meme genre. Mon pasteSpecial me fait un message d'erreur. je cherche à a copier 4 lignes d'un classeur vers un autre classeur. Si je fait le copier coller original selection.paste la copie se fait mais sans les virgules. j'essaie donc de faire le pastespecial pour copier le format mais j'ai l'erreur:
COLLETF
Messages postés2Date d'inscriptionvendredi 19 décembre 2008StatutMembreDernière intervention10 janvier 2009 10 janv. 2009 à 15:19
Tchoi
Bonjour .
Nouveau sur la liste
J'ai un problème du même genre que je n'arrive pas à résoudre .
la méthode paste spécial a échoué , bla bla bla ..
les fichiers texte contiennent des nombre décimaux et il ne sont correctement collés avec la virgule que si j'utilise la méthode pas spécial conservation du format et des données .
d'ailleurs je ne comprend pas très bien comment ça marche car manuellement je n'ai pas toujours les mêmes options disponibles dans la boite de dialogues .
Voici le code
Sub Macro1()
'
' Macro1 Macro
'08-01-2009
Dim fin As Integer
Dim fichier As String
Dim nomfeuil As String
nom_dep = ThisWorkbook.Name
fin = Sheets("fichiers").UsedRange.Rows.Count
For i = 1 To fin
Sheets("fichiers").Select
fichier = Range("A" & i).Value
MsgBox fichier