Macros pour récupérer valeurs externes au fichier

Bastien43 · 10 Mars 2020

Bonjour,

Je souhaite récupérer les données de plusieurs fichiers externes (références externes) dans un seul fichier.

Je peux mettre ='C:\Users\ ....\Desktop\[MonFichier.xlsm]DDP!$M$13

Cependant à l'ouverture de Excel, un message d'alerte s'affiche en rapport aux connexions externes, ... Je ne veux pas de message d'erreur. Je peux désactiver l'invite mais cela ne m'intéresse pas.

Est-il possible de créer un bouton et une macro qui viendrait récupérer la donnée dans chacun des fichiers lorsque je clique et non à l'ouverture d'excel.

Voici un exemple d'application. Je cherche à récupérer les Prix Unitaires de chaque feuille excel nommée DDPi. La valeur de i est noté dans la colonne A que je masque ensuite.

Parfois un DDPi donné n'existe pas car il n'y a pas de ligne de prix et donc aucun prix unitaire correspondant.

Je joins la macro que j'ai commencée... avec 3 fichiers en exemple.

Sub MAJ_PU()
Dim MonFichier As String, chemin As String
chemin = ThisWorkbook.Path & "\Détails de prix\"

For i = 6 To 20
If Range("B" & i) <> "" Then
MonFichier = chemin & "DDP" & Range("A" & i).value & ".xlsx"
Workbooks.Open Filename:=MonFichier, local:=True
'Range("F" & i) = +[MonFichier]DDP!$M$13 ' J'ai une erreur ici
Else
Range("F" & i) = ""
End If

Next i

MsgBox "Prix unitaire mis à jour."

End Sub

Je vous remercie pour votre aide,
Cordialement,

Calvus · 10 Mars 2020

Bonsoir Bastien,

J'ai jeté un oeil à tes fichiers mais ta demande est trop floue, aucune donnée n'est renseignée.

Il faudrait mettre un exemple avec le résultats souhaité et les données initiales dans les autres fichiers.
A+

Bastien43 · 11 Mars 2020

Bonjour,

Merci pour votre réponse. En effet, je n'ai pas mis assez d'infos.

Je renvoie le document avec les fichiers joints en exemple.

J'ai complété la formule qui va retrouver le prix unitaires de chaque tâche (colonne F). Si je n'ouvre pas les fichiers, un message d'alerte s'affiche (ci-joint à mon message) concernant les références externes.

Je ne souhaite pas ouvrir moi même tous les documents pour actualiser les prix unitaires.

Je pensais donc mettre une macro qui ouvre elle-même le fichier et le ferme et affecte le prix unitaire correspondant dans la bonne case.

La colonne A a les mêmes indices que les fichiers sources DDP (Détail de prix) 1 à 20. Parfois un fichier source DDP... n'existe pas (DDP6.xls en exemple et DDP9.xls à DDP15.xls) et la macro ne doit pas bloquer.

Je vous remercie encore pour votre aide et votre temps.
Cordialement,

Bastien43 · 11 Mars 2020

Bonjour,

Finalement je laisse un simple = [cellule vers autre feuille excel]

C'est bien plus simple.

Cordialement

Calvus · 11 Mars 2020

Bonsoir Bastien, le forum,

Voici le code à mettre dans ton module du classeur Prix Unitaires.

VB:

Sub MAJ_PU()


Dim MonFichier As String, chemin As String, Mavaleur As String, nom As String
        
        chemin = ThisWorkbook.Path & "\"
        
On Error Resume Next
For i = 6 To 20
    If Range("B" & i) <> "" Then
        MonFichier = chemin & "DDP" & Range("A" & i).Value & ".xlsx"
            nom = "DDP" & Range("A" & i) & ".xlsx"
                Workbooks.Open Filename:=MonFichier, local:=True
        
                Mavaleur = Range("M13")
            ThisWorkbook.Activate
        Range("F" & i) = Mavaleur
        Workbooks(nom).Close False
    End If
        
Next i
        
        MsgBox "Prix unitaire mis à jour."

End Sub

Bonne soirée

Bastien43 · 12 Mars 2020

Bonjour,

Je vous remercie pour votre aide. C'est exactement ce que je souhaitais faire. Encore merci

Cordialement
Bastien

Macros pour récupérer valeurs externes au fichier

Bastien43

XLDnaute Occasionnel

Pièces jointes

Calvus

XLDnaute Barbatruc

Bastien43

XLDnaute Occasionnel

Pièces jointes

Bastien43

XLDnaute Occasionnel

Calvus

XLDnaute Barbatruc

Bastien43

XLDnaute Occasionnel

Discussions similaires