Convertir des données d'un fichier à un autre

Version imprimable

Bonsoir
J'ai un fichier Excel dans lequel des étudiants admis et ajournées
Je veux transférer les étudiants admins à un autre fichier Exel dans le chemin "J:\resultat\resultat2019.xlsx"

voici mon code dans le même fichier et ça marche très bien

je veux que vous me changé le code pour convertir les étudiants admins dans ce fichier "J:\resultat\resultat2019.xlsx"

Mon Code

Code:

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
 
Sub migration()
 
 
Dim R As Integer, M As Integer, N As Integer
 
 
    Sheets("admis").Range("A2:D1000").ClearContents
    Sheets("ajournées").Range("A2:D1000").ClearContents
 
 
    M = 2: N = 2
    Application.ScreenUpdating = False
 
    For R = 2 To 1000
 
 
 
 
        If Cells(R, 4) = "admis" Then
            Range("A" & R).Resize(1, 4).Copy
 
 
            Sheets("admis").Range("A" & M).PasteSpecial xlPasteValues
            Application.CutCopyMode = False
            M = M + 1
 
            ElseIf Cells(R, 4) = "ajournées" Then
            Range("A" & R).Resize(1, 4).Copy
            Sheets("ajournées").Range("A" & N).PasteSpecial xlPasteValues
            Application.CutCopyMode = False
 
 
                       N = N + 1
 
 
        End If
 
   '''''''''''''''''''''''''''''''''''''''''''''''''''''
 
    Next
 
 
    MsgBox ("transfer reussi")
    Application.ScreenUpdating = True
End Sub
   '''''''''''''''''''''''''''''''''''''''''''''''''''''

Et merci

14/10/2019, 08h44
Menhir

Citation:

Envoyé par azzeddine2005

Je veux transférer les étudiants admins à un autre fichier Exel dans le chemin "J:\resultat\resultat2019.xlsx"
je veux que vous me changé le code pour convertir les étudiants admins dans ce fichier "J:\resultat\resultat2019.xlsx"

La seule différence que je vois entre ces deux phrases, c'est le terme "transférer" dans la première et "convertir" dans la seconde.
Mais je ne comprends pas quelle différence ça représente... :koi:
14/10/2019, 09h38
Néroxi

Tu veux dire quoi par "convertir" ? tu veux faire quoi ? développe ta demande stp

Bonjour ami et bienvenue, bonjour la forum
si j'ai compris la demande tu cherche à envoyer la feuille "admis" dans un autre classeur nommé Résultat2019
voila un code à tester
NB : j'ai porté quelques modifications à ton code initial , et j'ai supposé que dans le classeur de destination il y a aussi un onglet nommé "admis"

Code:

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
Sub migration()
 Dim F1 As Worksheet
 Dim F2 As Worksheet
 Dim F3 As Worksheet
 Dim derlig As Long
 Set F1 = Worksheets("Base")
 Set F2 = Worksheets("admis")
 Set F3 = Worksheets("ajournées")
 
Dim R As Integer, M As Integer, N As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
derlig = F1.Range("A" & Rows.Count).End(xlUp).Row
 
    Sheets("admis").Range("A2:D1000").ClearContents
    Sheets("ajournées").Range("A2:D1000").ClearContents
 
 ' remplir entête de colonne
 F2.Cells(1, 1).Resize(1, 4) = Array("Nom", "Prénom", "note", "mention")
  F3.Cells(1, 1).Resize(1, 4) = Array("Nom", "Prénom", "note", "mention")
 ' **********************************************
    M = 2: N = 2
    Application.ScreenUpdating = False
    For R = 2 To derlig
           If F1.Cells(R, 4) = "admis" Then
           F1.Range("A" & R).Resize(1, 4).Copy
            F2.Range("A" & M).PasteSpecial xlPasteValues
            Application.CutCopyMode = False
            M = M + 1
            ElseIf F1.Cells(R, 4) = "ajournées" Then
            F1.Range("A" & R).Resize(1, 4).Copy
            F3.Range("A" & N).PasteSpecial xlPasteValues
            Application.CutCopyMode = False
             N = N + 1
             End If
    Next R
 '***************************************************
 
Dim wkDest As Workbook ' Classeur destinataire
Set wkDest = Application.Workbooks.Open("J:\resultat\resultat2019.xlsx")
' le classeur PMI.xlsm contient ce code et est donc accessible par ThisWorkBook
ThisWorkbook.Sheets("admis").Cells.Copy wkDest.Sheets("admis").Range("A1")
wkDest.Close True 'Ferme en sauvant.
 
    MsgBox ("transfer reussi")
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
 
   '''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub

Tester et revenir avec tes remarques s'il y a lieu
BONNE CONTINUATION

14/10/2019, 12h15
azzeddine2005

Bonjours BENNASR

y'a un problème

Code:

Set wkDest = Application.Workbooks.Open("G:\resultat\resultat2019.xlsx")
14/10/2019, 12h20
BENNASR

avez vous déjà ouvert un classeur avec ce nom ??
14/10/2019, 12h21
azzeddine2005

Citation:

Envoyé par BENNASR

avez vous déjà ouvert un classeur avec ce nom ??

oui
14/10/2019, 12h28
BENNASR

vérifiez bien l'adresse : aller sur le classeur et clic droite avec le souris / propriétés / général et copier l'emplacement
peut être c'est le disque C ou D et non pas G !!! vérifiez bien svp
14/10/2019, 12h34
azzeddine2005

1 pièce(s) jointe(s)

Pièce jointe 509809
14/10/2019, 12h48
BENNASR

le code suppose que le classeur est fermé ... le code aller ouvrir le dossier copier les données et ferme de nouveau ce classeur
donc n'oublier pas de fermer le dossier avant de lancer le code
14/10/2019, 12h55
azzeddine2005

Citation:

Envoyé par BENNASR

le code suppose que le classeur est fermé ... le code aller ouvrir le dossier copier les données et ferme de nouveau ce classeur
donc n'oublier pas de fermer le dossier avant de lancer le code

ça marche très bien
merci très cher ami :D:D:D
14/10/2019, 13h02
BENNASR

une chose qui manque et risque de t'induire en erreur
n'oublier pas de nettoyer la feuille "admis" de ton dossier resultat2019 avant d'envoyer les données
BONNE CONTINUATION