Plusieurs question au sujet des import de données avec liaisons et macro

  • Initiateur de la discussion Initiateur de la discussion yalou
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

yalou

XLDnaute Nouveau
Bonjour à tous,

Je travaille sur un fichier qui récupère des données sur un fichier externe.

Ma 1ère question concerne la liaison entre ces deux fichiers.
- Est 'il possible que le chemin menant vers le fichier "esclave" soit inscrit dans une cellule et qu'ensuite la macro important les données prenne en compte ce chemin.
Ceci éviterait aux utilisateurs de ce fichier de venir trifouiller dans le code pour y modifier le chemin.

Ma 2ème question concerne le code d'import:

VB:
Sub ouverture()
' Chemin du fichier "esclave"
Fichier = "H:\Saisie HTC.xls"
' Affichage Msgbox echec
If Fichier = False Then MsgBox "Fichier introuvable", _
vbCritical + vbOKOnly, "  /!\  Erreur  /!\ "
'trouver ligne vide sur feuille active
lig = IIf([A3] = "", 3, [A65536].End(xlUp).Row + 1)
' copie dans le fichier "maitre" de la ligne [A2:G2] du fichier "esclave"
Set Wb = GetObject(Fichier)
Range("A" & lig & ":G" & lig).Value = _
Wb.Sheets("Données").[A2:G2].Value
' Affichage Msgbox succés
MsgBox "Données importées avec succés", _
vbCritical + vbOKOnly, "    Import Réussit   "
' Fermeture du fichier "esclave" sans le sauvegarder
Wb.Close savechanges:=False
End Sub

J'ai bien un Msgbox qui s'affiche lorsque l'import est réussi, mais par contre si le fichier n'est pas présent ou si le chemin n'est pas bon, j'ai une erreur "nom du fichier ou de la classe introuvable..." alors que j'aurais voulu un msgbox auquel je rajouterais un "Application.GetOpenFilename" pour aller chercher le fichier esclave.


Merci pour votre aide.
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour