Discussion :

[Otman.pro]

Bonjour à tous ;
J'ai fait une Macro qui importe des fichiers Xls dans un seule fichier
Récapitulatif, La macro fait également une copie coller des cellules des fichiers importés selon un offset définis, comme les fichiers que j'importe sont de format différentes mon programme sera très long, je compte faire la copie/coller en appelant d'autre Macro écrite dans d'autres module, mon problème c'est que l'appel de la macro au milieu du programme principal ne réussi pas par la suite la copie échoue aussi, par contre si je laisse un seul programme j'arrive à faire la copie/coller, pour préciser voici la macro et mes
et la partie que je veux mettre dans la macro d'appel :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66

Sub Creer_Recapitulatif()
Dim wbRecap As Workbook         'fichier recap
Dim wsRecap As Worksheet        'feuille où on écrit les données
Dim wbSource As Workbook        'fichier à ouvrir
Dim wssource As Worksheet       'feuille où on cherche les données
Dim DernLign As Integer             'ligne où on écrit les données
Dim vFichiers As Variant             'noms des fichiers
Dim i As Integer, k As Integer
Dim rgrecap As Range               'plage où on copie les données
  
Set wbRecap = ThisWorkbook       'Fichier récapitulatif
Set wsRecap = wbRecap.Sheets(1)  'on écrit dans la feuille 1 du fichier Récap
 
     ' Ouvrir boite de dialogue pour sélectionner les fichiers à ouvrir
     ' Appel de Fonction pour ouvrir fichiers
    vFichiers = Selectionner_Fichiers("Sélectionner les fichiers à compiler") 
 
     'Vérifier qu'au moins un fichier à été sélectionné
        If Not IsArray(vFichiers) Then
        Debug.Print "Aucun fichier sélectionné."
        MsgBox "Erreur! Aucun/Mauvais fichier sélectionné."
        Exit Sub
        End If
        On Error Resume Next
       Application.ScreenUpdating = False
 
      ' Boucle à travers les fichiers
      i = UBound(vFichiers)
      For k = 1 To i
      Application.StatusBar = ">> Lecture du fichier #" & k & "/" & i
 


Set wbSource = Workbooks.Open(vFichiers(k))  'Ouvre le fichier
Set wssource = wbSource.Sheets("rapport")     'Copier données de la feuille 1

' ligne pour écrire le log des fichiers compilés
DernLign = wbRecap.Sheets(1).Range("A60000").End(xlUp).Row + 1     
 
'copier les données vers le fichier Recapitulatif; à adapter

         Set rgrecap = wsRecap.Range("A65000").End(xlUp).Offset(3, 0)
         rgrecap = Time
   
' MAINTENANT C'EST LE PROGRAMME DE COPIE QUE JE VEUX APPELER àPARTIR D'UN AUTRE MOdULE MAIS çA FONTIONNE PAS    
         With wssource
              rgrecap.Offset(0, 1) = .Range("A14")
              rgrecap.Offset(0, 4) = .Range("G59")
              rgrecap.Offset(0, 5) = .Range("G70")
              rgrecap.Offset(0, 6) = .Range("G74")
              rgrecap.Offset(0, 7) = .Range("G78")
              rgrecap.Offset(0, 8) = .Range("G82")
         End With
'FIN MACRO DE COPIE
 
        wbSource.Close              'fermer fichier
        Set wbSource = Nothing  ' détruire le fichier

       Next k
  
       Application.ScreenUpdating = True
       Application.StatusBar = False

End Sub

Pourriez vous m'aider à le faire ? je vous remercie infiniment

[SfJ5Rpw8]

Montre nous ta procédure de copie , une fois extraite ainsi que la façon dont tu l'appelle (n'oubli pas les paramètres peu-être wssource et rgrecap )

[Otman.pro]

Bonjour ;
Merci pour votre retour
Pour la procédure de copie je fais tout simplement appel à une macro copie1 :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Creer_Recapitulatif()
.
.
With wssource
copie1
End With
.
.
End Sub

La macro copie1 existe dans un autre Module elle est écrite comme ça :

Code :

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

1
2
3
4
5
6
7
8
Sub copie1()
              rgrecap.Offset(0, 1) = .Range("A14")
              rgrecap.Offset(0, 4) = .Range("G59")
              rgrecap.Offset(0, 5) = .Range("G70")
              rgrecap.Offset(0, 6) = .Range("G74")
              rgrecap.Offset(0, 7) = .Range("G78")
              rgrecap.Offset(0, 8) = .Range("G82")
End sub

Je crois je ne fais pas attention au variable rgrecap et wssource, je ne suis pas doué, Merci d'avance pour votre réponse

[SfJ5Rpw8]

Bonjour,

avant l'appel tu n'as pas à utiliser l'instruction "With" (tu devrais faire un tour dans l'aide en ligne pour comprendre à quoi sert cette instruction, si tu ne comprends pas sache que c'est juste une "facilité" d'écriture et passe toi en ...)


il faut passer des paramètres à ta fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub copie1( rG  as range, ws as Worksheet  )
 
   rG.Offset(0, 1) = ws.Range("A14")
   rG.Offset(0, 4) = ws.Range("G59")
   rG.Offset(0, 5) = ws.Range("G70")
   rG.Offset(0, 6) = ws.Range("G74")
   rG.Offset(0, 7) = ws.Range("G78")
   rG.Offset(0, 8) = ws.Range("G82")
 
end sub

pour l'appel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Creer_Recapitulatif()
.
 
.
 
copie1 rgrecap, wssource
 
.
.
.
End Sub

[Otman.pro]

L'appel fonctionne correctement, ce sont les variable dans la procédure de copie qu'une fois je n'ai pas défini, une autre fois je l'ai défini mais Ws je l'ai déclaré comme Sheets et non Wroksheet, je dois réviser les cours notamment pour l'instruction With

Une dérnière question est ce que je peux utiliser la même procédure de copie pour copier une image de la feuille Wssource et la coller sous forme de lien hypertexte dans rgrecap ? Comment je peux le faire ?

Un Super Merci Monsieur L'administrateur