[VBA] Pb de copiage de ligne bien spécifique

Fermé

Jaybee - 20 juil. 2008 à 15:28
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 21 juil. 2008 à 08:33

Bonjour,

Voila mon problème (hors mis que je suis totalement novice en vba :D) :

J'ai 1043 fichiers excel qui présente la même forme de tableau mais avec des valeurs différentes bien sûr.
J'aimerai pouvoir copier la ligne 48 de chaque fichier et les coller dans un nouveau fichier excel "ClasseurTemp.xslm"

voila le code que j'ai pondu, mais ca ne marche pas.

Sub copie48()

Dim wb As Workbook
Dim ws As Worksheet
Dim i As Integer

For Each wb In Application.Workbooks
i = 1
'For Each ws In wb.Worksheets

Rows("48:48").Select
Selection.Copy
Windows("ClasseurTemp.xlsm").Activate
Rows("i:i").Select
ActiveSheet.Paste

i = i + 1

'Next ws

Next wb

End Sub

Donc di quelqu'un pouvait me depanner ca serait très sympa.
merci d'avance
jaybee

A voir également:

[VBA] Pb de copiage de ligne bien spécifique
Site de vente en ligne particulier - Guide
Partage de photos en ligne - Guide
Aller à la ligne excel - Guide
Hors ligne instagram - Guide
Ligne occupée - Forum Mobile

2 réponses

Réponse 1 / 2

Ivan-hoe Messages postés 433 Date d'inscription dimanche 17 février 2008 Statut Membre Dernière intervention 17 octobre 2008 309
21 juil. 2008 à 08:13

Bonjour,
pour que ton code ci-dessus marche, il faut que tes 1043 fichiers et ton ClasseurTemp soient ouverts quand tu exécutes ta macro.
de plus, déplace l'instruction i = 1 AVANT For Each wb ; sinon, tu remets ton i à 1 à chaque classeur et tu écrases systématiquement ta ligne 1.

Si tes 1043 fichiers sont facilement identifiables (tous dans le même répertoire, ou avec des noms qui contiennent tous la même racine), utilise une boucle pour les ouvrir un par un, faire ton traitement et les fermer.
Regarde l'instruction Dir dans l'aide VBA.
I.

Réponse 2 / 2

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
21 juil. 2008 à 08:33

Bonjour,
Un pti coup de pouce supplémentaire...

Sub Recupfile()
Dim fs, F, f1, s, sf
Dim Ext As String, Chemin As String
Dim i As Integer, Nom As String
    Ext = "xls" 'Pour des fichier Excel
    Chemin = "C:\" 'Le répertoir à parcourir
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set F = fs.GetFolder(Chemin)
    Set sf = F.Files
    For Each f1 In sf
        If Right(f1.Name, 3) = Ext Then
            'Adapté les adresses cellules.
            Nom = f1.Name
            Workbooks(Nom).Open
                'Ici Faire la copie
            Workbooks(Nom).Close
        End If
        i = i + 1
    Next
End Sub

A+

Discussions similaires

cette phrase est elle correcte

Que veut dire "correspondant occupé" lors d'un appel ?

Statut « en ligne » alors que non

Chemin Logo du site de la Cité de l'espace

Erreur d'exécution 13 Incompatibilité de type

Discussions similaires

Newsletters