Itération de macros Excel

Bonjour

le principe:

Sub ccm() 
Dim fich As String 
'on force dans le répertoire source 
ChDir "C:\ficheappel" 
'on fige le défilement de l'écran 
Application.ScreenUpdating = False 
 'on réduit la sélection en utilisant un générique  et un joker  *" 
fich = Dir(ficheappel & "*.xlsm") 
While fich <> "" 
    'on appelle la macro 
    import fich 
  'affecte le fichier suivant (utilisation du joker " * " utilisé pour la def du 1° fichier) 
    fich = Dir 
Wend 
End Sub 

et tu modifies ta macro import ( lignes modifiées uniquement)

Sub import(fichier) 
Set classeurSource = Application.Workbooks.Open(fichier, , True) 

Maintenant, tu as pas mal de modif à faire dans cette macro car telle qu'elle est tu écris toujours au m^me endroit dans le classeur destination; il te faut créer une boucle et optimiser car elle est très lente... on pourrait aussi supprimer l'appel à la macro import et faire une seule macro...

essaies et reviens si tu n'y arrives pas

:-x

Tout d'abord, merci pour le code, il marche très bien!

Maitenant, ce qui nous faudrait, c'est pouvoir faire une boucle qui retranscrive les données sur des lignes différentes du tableur excel comme vous nous l'avez fait remarqué.

Comment peut-on faire?
Est ce qu'on doit le faire dans la macro ccm ou dans import?
Est ce qu'on doit faire 2 macros différentes?

Merci pour votre aide!

Voila ce qu'on a tenté:

Sub ccm()
Dim fich As String
'on force dans le répertoire source
ChDir "C:\ficheappel"
'on fige le défilement de l'écran
Application.ScreenUpdating = False
'on réduit la sélection en utilisant un générique et un joker *"
fich = Dir(ficheappel & "*.xlsm")
For i = 1 To 50
While fich <> ""

'on appelle la macro
Dim classeurSource As Workbook, classeurDestination As Workbook
'ouvrir le classeur source (en lecture seule
Set classeurSource = Application.Workbooks.Open(fich, , True)
'définir le classeur destination
Set classeurDestination = ThisWorkbook

'copier les données de la "Feuil1" du classeur source vers la "Feuil1" du classeur destination
classeurSource.Sheets("Feuil1").Range("C6").Copy classeurDestination.Sheets("Feuil1").Range("Ai+1")

classeurSource.Sheets("Feuil1").Range("C8").Copy classeurDestination.Sheets("Feuil1").Range("Bi+1")
classeurSource.Sheets("Feuil1").Range("C10").Copy classeurDestination.Sheets("Feuil1").Range("Ci+1")
classeurSource.Sheets("Feuil1").Range("C12").Copy classeurDestination.Sheets("Feuil1").Range("Di+1")
classeurSource.Sheets("Feuil1").Range("C14").Copy classeurDestination.Sheets("Feuil1").Range("Ei+1")
classeurSource.Sheets("Feuil1").Range("C16").Copy classeurDestination.Sheets("Feuil1").Range("Fi+1")
classeurSource.Sheets("Feuil1").Range("C18").Copy classeurDestination.Sheets("Feuil1").Range("Gi+1")
classeurSource.Sheets("Feuil1").Range("C20").Copy classeurDestination.Sheets("Feuil1").Range("Hi+1")
classeurSource.Sheets("Feuil1").Range("C22").Copy classeurDestination.Sheets("Feuil1").Range("Ii+1")
classeurSource.Sheets("Feuil1").Range("C24").Copy classeurDestination.Sheets("Feuil1").Range("Ji+1")

'fermer le classeur source
classeurSource.Close False
'affecte le fichier suivant (utilisation du joker " * " utilisé pour la def du 1° fichier)
fich = Dir

Wend
Next i
End Sub

On a rassemblé les 2 macros en une seule.
Ca ne fonctionne pas!
Pour les valeurs de i, à la place de 50, on aimerais bien avoir "le nombre de dossiers".

Désolé mais on est vraiment pas doué!
Merci d'avance!

C'est exactement ce qu'on voulait!

Merci énormément!

A une prochaine fois peut-être!

On a encore une petite question finalement.

Nous souhaitons mettre notre tableau récapitulatif des fiches d'appels et les fiches d'appels sur en seveur local.
On a par conséquent changé l'adresse du classeur source dans la macro (ce n'est plus C:\ficcheappel mais \\Srv-fttmtp\entreprise\ficheappel).
Néanmoins cela ne fonctionne pas et l'erreur suivante s'affiche

Erreur d'éxecution '91'
Variable objet ou variable de bloc With non définie

et le debogeur nous indique la ligne :

classeurDestination.Sheets("Feuil1").Activate

Y a-t-il un problème parce que l'on ne cherche plus sur le disque dur mais sur un réseau?
Ou sinon d'où vient le problème?

Merci d'avance