Discussion :

[mea4502]

Bonjour à tous,

Je suis débutant en vba et j'aimerais récupérer des données sous l'intranet.

Voici le code que j'ai mis sauf qu'avec ce code une boite de dialogue s'affiche et je peux récupérer les fichiers mais moi j'ai besoin d'inscrire les liens réseaux des fichiers sur l'intranet.

Merci j'attends vos retours.

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écapitulatif
 
    ' --- Ouvrir boite de dialogue pour sélectionner les fichiers à ouvrir
    vFichiers = Selectionner_Fichiers("Sélectionner les fichiers à compiler") 'Appel de Fonction pour ouvrir fichiers
 
    ' --- 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
    For k = 1 To UBound(vFichiers)
        Application.StatusBar = ">> Lecture du fichier #" & k & "/" & UBound(vFichiers)
 
        ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        ' C'est ici qu'on écrit les instructions
        Set wbSource = Workbooks.Open(vFichiers(k))                        'on ouvre le fichier
        Set wsSource = wbSource.Sheets(1)                                  'On copie les données de la feuille 1
        DernLign = wbRecap.Sheets(1).Range("A60000").End(xlUp).Row + 1     'ligne pour écrire le log des fichiers compilés
 
 
        ' - On copie les données vers le fichier Recapitulatif; à adapter
        Set rgRecap = wsRecap.Range("A65000").End(xlUp).Offset(1, 0)
        rgRecap = Time
        With wsSource
            rgRecap.Offset(0, 1) = .Range("B7")
            rgRecap.Offset(0, 2) = .Range("B8")
            rgRecap.Offset(0, 3) = .Range("B10")
            rgRecap.Offset(0, 4) = .Range("B13")
            rgRecap.Offset(0, 5) = .Range("B14")
        End With
 
        wbSource.Close              'fermer fichier
        Set wbSource = Nothing
        ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Next k
 
    Application.ScreenUpdating = True
    Application.StatusBar = False
 
End Sub
 
Function Selectionner_Fichiers(sTitre As String) As Variant
    Dim sFiltre As String, bMultiSelect As Boolean
 
    sFiltre = "Fichiers XYZ (.xls)(.xlsm), *.xls*"
    bMultiSelect = True 'Permet de choisir plusieurs fichiers à la fois
    Selectionner_Fichiers = Application.GetOpenFilename(Filefilter:=sFiltre, Title:=sTitre, MultiSelect:=bMultiSelect)
End Function

[Wini29]

Essaye ça

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
Private Sub Browser()
Dim Bwser As FileDialog
Dim XlsPath As String
Dim TheFile As Workbook
Dim ThisWB As Workbook
 
Set ThisWB = ActiveWorkbook
 
Set Bwser = Application.FileDialog(msoFileDialogFilePicker)
Bwser.AllowMultiSelect = False
Bwser.Show
If Bwser.SelectedItems.Count > 0 Then
 
XlsPath = Bwser.SelectedItems(1)
 
Set TheFile = Workbooks.Open(XlsPath)
 
TheFile.Sheets("Feuilselectionnee").Copy After:=ThisWB.Sheets(ThisWB.Sheets.Count)
TheFile.Close
 
Sheets("Feuilselectionnee").Select
 
Set Bwser = Nothing
 
End Sub

[QuestVba]

Bonjour,

Un peu de lecture: http://qwazerty.developpez.com/tutor...-et-vba-excel/

[mea4502]

bonjour
Merci mais je ne comprends toujours pas mais j'ai est ce que avec ce code je peux accéder à un fichier excel sur l'intranet avec un lien?

Code :

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

1
2
ChDir "le lien de l'intraner "
    monfichier = Dir("*.*")

qu'est ce que je dois mettre avant dans le code?