Discussion :

[benadry]

Bonjour,

Je souhaiterais, à partir d'une macro ou d'une formule, extraire une partie des colonnes d'un fichier dont les données répondent à certaines conditions et alimenter un fichier préexistant.

Je suis débutant et ne sais pas trop comment m'y prendre.

Pour l'instant, j'ai un classeur1 dans lequel l'utilisateur entre le nom du fichier qui servira d'extraction. L'idée serait qu'en cliquant sur le bouton contenu dans ce classeur1, les données d'un 2e classeur soient automatiquement extraites vers un autre classeur si elles répondent à certaines conditions.

Merci d'avance pour votre aide.

Cordialement.

[benadry]

Bonjour,

Désolé de relancer le forum, mais j'ai cherché ce week-end avec des fonctions comme DECALER et SI et ça ne donne rien.
Je ne vois pas comment je peux procéder.

Merci d'avance pour votre aide.

Cordialement.

[benadry]

Bonjour,

Je me suis creusé les méninges et j'ai surtout consulté des forums, pour un résultat qui n'est pas fantastique !!

Je n'arrive pas à ouvrir le fichier comme indiqué ci-dessus. J'ai essayé 4 macros successives (ci-dessous) et j'ai toujours la même erreur :

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
Sub Ouvrir_Excel()
 
'Ne marche pas
Chemin = "G:\CPT\Activités service compta\Gestion des créances et oppositions\Année 2013\Indus\Suivi des notifications d'indus\"
 
Workbooks.Open (Chemin + [F6])
 
End Sub
 
Sub Macro()
 
'Ne marche pas
Dim Dossier As String, Fichier As String, Chemin As String
Dossier = "G:\CPT\Activités service compta\Gestion des créances et oppositions\Année 2013\Indus\Suivi des notifications d'indus\"
Fichier = [F6]
Chemin = Dossier & Fichier
 
Workbooks.Open Filename:=Chemin
 
End Sub
 
 
Sub Macro3()
 
'Ne marche pas
Workbooks.Open Filename:="G:\CPT\Activités service compta\Gestion des créances et oppositions\Année 2013\Indus\Suivi des notifications d'indus\" & "journeedu21062013" & ".xls"
 
End Sub
 
Sub Macro4()
 
 
[F6] = ActiveWorkbook.Name
Workbooks.Open Filename:="G:\CPT\Activités service compta\Gestion des créances et oppositions\Année 2013\Indus\Suivi des notifications d'indus\"
Windows(F6).Activate
 
End Sub

J'ai ensuite essayé d'écrire quelque chose, mais je suis loin d'être sûr que ça marche.

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
Sub Extraction_données()
 
    Set wbcible = "G:\BUREAU\Documents\Indus\Relances.xlsx"
    Set wbsource = Workbooks.Open("G:\BUREAU\Documents\[F6]")
wbsource .Activate
 
' If R = 0 and V = "RLC" Then Exit Sub (ici, il faut dire "quand la colonne R est égale à 0 ou la colonne V à RLC, il n'y a rien à faire.
 
Else 'dans le cas contraire, copie les colonnes de A à W du classeur source dans le classeur cible
    With wbsource
        ActiveSheet.Columns("A:A").Copy wbcible.Sheets("Relances.xlsx").Columns("A:A")
        ActiveSheet.Columns("B:B").Copy wbcible.Sheets("Relances.xlsx").Columns("B:B")
        ActiveSheet.Columns("C:C").Copy wbcible.Sheets("Relances.xlsx").Columns("C:C")
        ActiveSheet.Columns("D:D").Copy wbcible.Sheets("Relances.xlsx").Columns("D:D")
        ActiveSheet.Columns("E:E").Copy wbcible.Sheets("Relances.xlsx").Columns("E:E")
        ActiveSheet.Columns("F:F").Copy wbcible.Sheets("Relances.xlsx").Columns("F:F")
        ActiveSheet.Columns("G:G").Copy wbcible.Sheets("Relances.xlsx").Columns("G:G")
        ActiveSheet.Columns("H:H").Copy wbcible.Sheets("Relances.xlsx").Columns("H:H")
        ActiveSheet.Columns("I:I").Copy wbcible.Sheets("Relances.xlsx").Columns("I:I")
        ActiveSheet.Columns("J:J").Copy wbcible.Sheets("Relances.xlsx").Columns("J:J")
        ActiveSheet.Columns("K:K").Copy wbcible.Sheets("Relances.xlsx").Columns("K:K")
        ActiveSheet.Columns("L:L").Copy wbcible.Sheets("Relances.xlsx").Columns("L:L")
        ActiveSheet.Columns("M:M").Copy wbcible.Sheets("Relances.xlsx").Columns("M:M")
        ActiveSheet.Columns("N:N").Copy wbcible.Sheets("Relances.xlsx").Columns("N:N")
        ActiveSheet.Columns("O:O").Copy wbcible.Sheets("Relances.xlsx").Columns("O:O")
        ActiveSheet.Columns("P:P").Copy wbcible.Sheets("Relances.xlsx").Columns("P:P")
        ActiveSheet.Columns("Q:Q").Copy wbcible.Sheets("Relances.xlsx").Columns("Q:Q")
        ActiveSheet.Columns("R:R").Copy wbcible.Sheets("Relances.xlsx").Columns("R:R")
        ActiveSheet.Columns("S:S").Copy wbcible.Sheets("Relances.xlsx").Columns("S:S")
        ActiveSheet.Columns("T:T").Copy wbcible.Sheets("Relances.xlsx").Columns("T:T")
        ActiveSheet.Columns("U:U").Copy wbcible.Sheets("Relances.xlsx").Columns("U:U")
        ActiveSheet.Columns("V:V").Copy wbcible.Sheets("Relances.xlsx").Columns("V:V")
        ActiveSheet.Columns("W:W").Copy wbcible.Sheets("Relances.xlsx").Columns("W:W")
    End With
    Range("A2").Select
 
End Sub

Si quelqu'un pouvait jeter un coup d'oeil à tout ça, ce serait très sympathique. Mon niveau en macro est très très limité et je patauge complètement.

Merci d'avance.

Cordialement.

[Dubbleu]

Hey
Je suis sur un problème similaire au tiens !! je te préviens si je trouve une solution (ou si on m'en propose une sur un autre topic)

[benadry]

Bonjour,

En utilisant la discussion suivante (http://www.developpez.net/forums/d11...dition-resolu/), j'ai un peu avancé sur mon projet.

Voici ce que ça donne :

Code :

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

1
2
3
4
5
6
7
8
Sub Ouvrir_Excel()
 
Chemin = "G:\BUREAU\Documents\...\Suivi indus\"
ext = ".xls"
nom = ThisWorkbook.Sheets(1).Range("f6").Value
Workbooks.Open (Chemin & nom & ext)
 
End Sub

A ce niveau, tout fonctionne.

Voici la 2e macro :

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
Sub Extraire_donnees()
 
Dim wbSource As Workbook
Dim wbCible As Workbook
Dim CelSource As Range
Dim CelCible As Range
Dim shCible As Worksheet
Dim Lig     As Long
Dim Col     As String
Dim NbrLig  As Long
Dim NumLig  As Long
 
Chemin = "G:\BUREAU\Documents\...\Suivi indus\"
ext = ".xls"
nom = ThisWorkbook.Sheets(1).Range("f6").Value
 
Set wbSource = Workbooks.Open(Chemin & nom & ext)
Workbooks.Open "G:\BUREAU\Documents\...\Suivi indus\Relances.xlsm"
Set wbCible = Workbooks("Relances.xlsm")
Set shCible = wbCible.Worksheets("Total des indus non soldés")
 
wbSource.Activate
 
wbCible.Worksheets("Total des indus non soldés").Activate ' feuille de destination
 
  Col = "R"                 ' colonne de la donnée non vide à tester
  NumLig = 2
  With wbSource     ' feuille source
  NbrLig = .Cells(65536, Col).End(xlUp).Row
  For Lig = 3 To NbrLig
    If .Cells(Lig, Col).Value <> "0" Then
       .Range("A" & Lig & ":W" & Lig).Copy
      NumLig = NumLig + 1
      Cells(NumLig, 1).Select
      ActiveSheet.Paste
    End If
 
  Next
  End With
 
End Sub

Ce n'est sans doute pas très "beau", mais ça semble être un bon début, sauf que j'ai une erreur d'exécution 438 "propriété ou méthode non géré par cet objet" à la ligne

Code :

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

NbrLig = .Cells(65536, Col).End(xlUp).Row

Par ailleurs, je souhaiterais rajouter une autre condition dans la colonne V et je ne sais pas comment faire. J'ai essayé de recopier la condition de la colonne R en l'adaptant, mais la macro bloque, car il y a une succession de "for", si j'ai bien compris.
Enfin, je voudrais fermer le fichier source une fois le travail réalisé.

Quelqu'un aurait-il une idée, car je tourne vraiment en rond ?

Merci d'avance.

Cordialement.

[casefayere]

Bonsoir,

Apprends-toi à mettre des balises pour éditer tes codes, cliques sur "#", après avoir selectionné le code,
quand tu fais :

Code :

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

1
2
3
4
5
6
...
Col = "R" ' colonne de la donnée non vide à tester
NumLig = 2
With wbSource ' feuille source
NbrLig = .Cells(65536, Col).End(xlUp).Row
.....

"Col" ne sert pas à grand chose, pourquoi pas :

Code :

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

1
2
3
4
 
NumLig = 2
With wbSource ' feuille source
NbrLig = .range("R" & .Rows.Count).End(xlUp).Row

attention, je n'ai pas regardé ni analysé tout ton code, je réponds juste pour ta dernière erreur signalée