copier coller des données d'autres fichiers

Question

Bonjour à tous, 

Je souhaite faire un fichier qui me permette de regrouper sur une unique feuille les données(enfin que le "corps" ; sans les entetes et la toute derniere ligne somme) d'autres fichiers (contenant plusieurs feuilles mais toutes sont formalisées de la même manière). 

J'ai donc commencé un programme avec un formulaire qui marche bien. 
Cependant je bloque pour le copiage et collage des données et je ne trouve pas comment avancer. 

j'envoie ci joint le fichier qui accueillera les données des rapports d'activités et 2 exemples de rapport d'activité 

Et je colle içi ma procédure copiecolle dont le déboggeur me renvoie une erreur des la premiere ligne (sub ou function non définie) 



Private Sub copiecolle(fichier As String)
Dim debut As Integer: Dim position As Integer: Dim text As Variant: Dim nomfichier As Variant: Dim lign As Integer: Dim colon As Integer: Dim x As Integer: Dim y As Integer
Dim sh As Worksheet

'ouvrir le premier fichier pour pouvoir copier coller ses données'

Worbook.Open fichier
nomfichier = Dir(fichier)

'Pour chaque feuille du fichier à copier, trouver le nombre de lignes et jusqu'à ce que la colonne 1 contienne un vide'
Dim count As Long: Dim cel As Range
For Each sh In nomfichier
count = 0
For Each cel In Columns(1)
If cel.Value <> "" Then
count = count + 1
End If
Next cel
MsgBox count
'comme la 2eme ligne de chaque feuille est une ligne d'entete en 2eme ligne qui ne m'interesse pas, je dois enlever 1 au compteur'
count = count - 1
MsgBox count
'Pour chaque fichier de la liste, pour chaque feuilles de ce fichier, pour chaque ligne à partir de la ligne 3, je viens copier la ligne et la coller dans la feuil1 du fichier prévisionnel '
For y = 3 To count
Workbook(prévisionnel).Worksheet("Feuil1").Row.Value=Workbook(nomfichier).Worksheet("sh").Row(ligne_encours).Value
ligne_encours = ligne_encours + 1 'j'incrémente ligne_encours afin que dans mon fichier prévisionnel, la copie continue à ce faire dans la colonne d'en dessous '
Next

End Sub

     EDIT : Ajout du LANGAGE dans les balises de code (la coloration syntaxique).
Explications disponibles ici : ICI 

Merci d'y penser dans tes prochains messages.

https://www.cjoint.com/c/HDwhOSG6Z8W 

https://www.cjoint.com/c/HDwhRV6hMeW 

https://www.cjoint.com/c/HDwhSwf7CIW 


Merci beaucoup de votre aide ^^ 

PS: je viens de voir la présentation du code ; ça rend pas très bien sur le forum c'est normal ? 


Configuration: Windows / Opera Next 52.0.2871.64

yg_be · Answer

bonjour, 
quand tu écris "erreur des la premiere ligne", de quelle ligne s'agit-il?
corrections de quelques erreurs évidentes:
Option Explicit

Private Sub copiecolle(fichier As String)
Dim debut As Integer, position As Integer, text As Variant
Dim lign As Integer, colon As Integer, x As Integer, y As Integer
Dim sh As Worksheet
Dim cl As Workbook
Dim ligne_encours As Long

'ouvrir le premier fichier pour pouvoir copier coller ses données'

Set cl = Workbooks.Open(fichier)

'Pour chaque feuille du fichier à copier, trouver le nombre de lignes et jusqu'à ce que la colonne 1 contienne un vide'
Dim count As Long, cel As Range
For Each sh In cl
count = 0
For Each cel In Columns(1) ' pas prudent de ne pas spécifier l'onglet pour Columns(1)
If cel.Value <> "" Then
count = count + 1
End If
Next cel
MsgBox count
'comme la 2eme ligne de chaque feuille est une ligne d'entete en 2eme ligne qui ne m'interesse pas, _
    je dois enlever 1 au compteur'
count = count - 1
MsgBox count
'Pour chaque fichier de la liste, pour chaque feuilles de ce fichier, _
    pour chaque ligne à partir de la ligne 3, _
    je viens copier la ligne et la coller dans la feuil1 du fichier prévisionnel '
For y = 3 To count
Workbooks("prévisionnel").Worksheet("Feuil1").Row.Value = sh.Rows(ligne_encours).Value
ligne_encours = ligne_encours + 1 'j'incrémente ligne_encours afin que dans mon fichier prévisionnel, _
    la copie continue à ce faire dans la colonne d'en dessous '
Next

Copier coller des données d'autres fichiers

1 réponse

Discussions similaires

Newsletters