Discussion :

[Salmakh]

Bonjour tout le monde,

je vient vers vous pour solliciter votre aide pour alimenter une base de données à partir d'une liste des réclamations.

J'ai essayé de commencer mon code mais puisque je suis encore débutante en VBA, je suis bloquée sur :

- Le fait de coller les données que j'importe à chaque fois dans la premiere ligne vide et non pas ecraser à chaque fois les données qui sont déja sur le document.

je joint mon code à ce message.

je vous remercie par avance pour votre aide 🥰😊

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 Recupererdata()
 
    'Déclaration des variables
    Dim ListeFichier As Variant
    Dim MonClasseur As Workbook
 
    'On désactive le presse papier et le rafraichissement de l'écran
 
    Application.CutCopyMode = False
    Application.ScreenUpdating = False
 
 
    'On récupére le fichier des données à copier
    ListeFichier = Application.GetOpenFilename(Title:="Sélectionner votre liste des DCs ", _
                   filefilter:="Fichiers Excel(*.xls*),*xls*", ButtonText:="Cliquez")
    'Prévoir le cas du bouton Annuler
    If ListeFichier <> False Then
        'On affecte le fichier sélectionné
        Set MonClasseur = Application.Workbooks.Open(ListeFichier)
        'On copie les données de la feuille 1 du classeur séléctionné
        MonClasseur.Sheets(1).Range("A1").CurrentRegion.Copy
 
 
        'On colle les données dans la premiére ligne vide
        ThisWorkbook.ActiveSheet.Range("A" & Rows.Count).End(xlUp).PasteSpecial xlPasteValues
 
 
        'On désactive les messages d'alerte de Microsoft
        Application.DisplayAlerts = False
        'On ferme le classeur source
        MonClasseur.Close
    End If
 
       'On réactive le presse papier et le rafraichissement de l'écran
    Application.CutCopyMode = True
    Application.ScreenUpdating = True
 
 
End Sub

[ChristianBosch]

Salut,

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 Recupererdata()
 
    'Déclaration des variables
    Dim ListeFichier As Variant
    Dim MonClasseur As Workbook
 
    'On désactive le presse papier et le rafraichissement de l'écran
 
    Application.CutCopyMode = False
    Application.ScreenUpdating = False
 
 
    'On récupére le fichier des données à copier
    ListeFichier = Application.GetOpenFilename(Title:="Sélectionner votre liste des DCs ", _
                   filefilter:="Fichiers Excel(*.xls*),*xls*", ButtonText:="Cliquez")
    'Prévoir le cas du bouton Annuler
    If ListeFichier <> False Then
        'On affecte le fichier sélectionné
        Set MonClasseur = Application.Workbooks.Open(ListeFichier)
        'On copie les données de la feuille 1 du classeur séléctionné
        MonClasseur.Sheets(1).Range("A1").CurrentRegion.Copy
 
 
        'On colle les données dans la premiére ligne vide
        feuil1.Range("A" & feuil1.Range("A" & Rows.Count).End(xlUp).Row).PasteSpecial xlPasteValues
 
 
        'On désactive les messages d'alerte de Microsoft
        Application.DisplayAlerts = False
        'On ferme le classeur source
        MonClasseur.Close
    End If
 
       'On réactive le presse papier et le rafraichissement de l'écran
    Application.CutCopyMode = True
    Application.ScreenUpdating = True
 
 
End Sub

Vérifie juste que le codename de ta feuille ou tu copie les valeurs est bien "feuil1" comme je l'ai mis ici.

A+

CB