Récupérer des données

[Jum_o]

Bonjour,

Merci d'avance pour votre aide.

J'aimerais créer une macro permettant d'aller récuperer des informations de fichiers présents sur un même serveur.
Je m'explique:
Lorsque je veux récupérer des infos d'un nouveau fichier, il me suffira de remplir juste le nom du fichier et la macro ira chercher automatiquement ces infos. Un système d'incrémentation serait mis en place pour pouvoir récupérer plusieurs fichiers à la suite.

En PJ un exemple de ce à quoi j'aspire si je me suis mal fait comprendre.

Merci bcp pour votre aide.

Jum_o

 

[skoobi]

Re : Récupérer des données

Bonjour,

Edit: désolé, j'ai répondu trop vite.

 

[skoobi]

Re : Récupérer des données

Me revoilou,

tu n 'as pas besoin de passer par un userform pour faire cela. Le code suivant va directement récupérer
le fichier écrit en E1.
Place ce code dans le bouton de la feuille:

Num = IIf([A65536].End(xlUp).Row = 14, 1, Val([A65536].End(xlUp).Value) + 1)
LigSuiv = [A65536].End(xlUp).Row + 1
Set Wb = GetObject([E1].Value)
With Wb.Sheets("Formulaire KP")
  Range("A" & LigSuiv).Value = Num
  Range("B" & LigSuiv).Value = .[D3].Value
  Range("C" & LigSuiv).Value = .[D5].Value
  Range("D" & LigSuiv).Value = .[D7].Value
  Wb.Close
End With

 

[Jum_o]

Re : Récupérer des données

Slt Skoobi,

le champ en E1, je ne dois pas le modifier, c'est vraiment le nom du doc que l'utilisateur va rentrer que la macro ira chercher. En gros en E1 on a juste le début du chemin, ce qu'il y a sur la userform est la fin du chemin...si tu vois ce que je veux dire.

 

[skoobi]

Re : Récupérer des données

Re,

dans ce cas:

Private Sub CommandButton1_Click()
Num = IIf([A65536].End(xlUp).Row = 14, 1, Val([A65536].End(xlUp).Value) + 1)
LigSuiv = [A65536].End(xlUp).Row + 1
If TextBox1.Value = "" Then
      MsgBox ("Veuillez remplir un nom de document!")
Else
  If Dir([E1].Value & TextBox1.Value) <> "" Then
    Set Wb = GetObject([E1].Value & TextBox1.Value)
    With Wb.Sheets("Formulaire KP")
      Range("A" & LigSuiv).Value = Num
      Range("B" & LigSuiv).Value = .[D3].Value
      Range("C" & LigSuiv).Value = .[D5].Value
      Range("D" & LigSuiv).Value = .[D7].Value
      Wb.Close
    End With
  Else: MsgBox "Fichier inconnu!", vbExclamation
  End If
End If
End Sub

Petite précision: mettre uniquement le chemin en E1: \\toto\titi\
Mais si tu n'envisages pas de prévoir d'autre utilisation pour ce userform, je te suggère d'utiliser plutôt un InputBox.

 

[Jum_o]

Re : Récupérer des données

Merci Skoobi, j'ai finalement opté pour un bouton qui me permettait de choisir mon fichier et aprés d'importer le doc.

Merci encore