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:
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.
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: