Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Importations de données

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Tommy
  • 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 !

S'inscrire
T

Tommy

Guest
Salut a tous.

Voici ce que j'essais de faire. Je veux importer des données d'un autre fichier excel en se basant sur le numéro de la semaine.

Ex. Si, dans le fichier nommé ventes37.xls, en A1 : 36 donc excel ira chercher dans le fichier ventes36.xls la donnée de la case B8 et l'importera dans ventes37.xls dans la case c4... ainsi de suite (A1 : 03, donc, aller chercher dans ventes03.xls).

Mais je veux aussi que si il n'y a pas de données a importer car la cellule est vide ou le fichier n'existe pas, que l'utilisateur puisse entrer manuellement une donnée.

A date, je n'arrive a faire qu'une partie de ce que je veux avec INDIRECT.

Une idée ??
 
Trier par date Trier par votes
Bonjour

voila un code de feuille qui fait cela, dans l'adresse le nom Feuil1 est à adapter en fonction de celui utilisé dans les classeurs

A+
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Chemin As String, Nom_Fichier As String, Ref_Classeur As Variant
On Error GoTo Fin
If Target.Address = Range('A1').Address Then
    Chemin = ActiveWorkbook.Path & '\\'
    Nom_Fichier = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, '.') - 3)
    Ref_Classeur = Right('0' & Target.Value, 2)
    If Not (Dir(Chemin & Nom_Fichier & Ref_Classeur & '.xls') = '') Then
        Range('C4').Formula = '='' & Chemin & '[' & Nom_Fichier & Ref_Classeur & '.xls]Feuil1'!B8'
    Else
        Range('C4').Value = Application.InputBox(prompt:='Le classeur ' & Nom_Fichier & _
        Right('0' & Ref_Classeur, 2) & '.xls n'existe pas' & Chr(10) & 'Entrez une valeur !', _
        Default:=Range('C4').Value)
    End If
End If
Exit Sub
Fin:
End Sub

Message édité par: yeahou, à: 18/01/2006 23:47
 
Vote positif 0 Vote négatif
Parfait !!! Merci !

Et si je veux refaire ca avec d'autre case, dois-je répéter le code, ou bien je peux modifier directement le code pour le faire.

Car dans mon fichier j'entre les semaines dans les cellules de A1 a A5

Donc A1 va chercher dans B8 et retourne dans C4
A2 va chercher dans B8 et retourne dans C5
A3, dans B8, retoune dans C6... ainsi de suite

Merci encore
 
Vote positif 0 Vote négatif
Bonjour

on modifie un peu le code, mais tu aurais du le dire tout de suite.

A+

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Chemin As String, Nom_Fichier As String, Ref_Classeur As Variant
On Error GoTo Fin
Select Case Target.Address
Case Is = Range('A1').Address, Range('A2').Address, Range('A3').Address, Range('A4').Address, Range('A5').Address
    Chemin = ActiveWorkbook.Path & '\\'
    Nom_Fichier = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, '.') - 3)
    Ref_Classeur = Right('0' & Target.Value, 2)
    If Not (Dir(Chemin & Nom_Fichier & Ref_Classeur & '.xls') = '') Then
        Range('C' & (3 + Target.Row)).Formula = '='' & Chemin & '[' & Nom_Fichier & Ref_Classeur & '.xls]Feuil1'!B8'
    Else
        Range('C' & (3 + Target.Row)).Value = Application.InputBox(prompt:='Le classeur ' & Nom_Fichier & _
        Right('0' & Ref_Classeur, 2) & '.xls n'existe pas' & Chr(10) & 'Entrez une valeur !', _
        Default:=Range('C' & (3 + Target.Row)).Value)
    End If
Case Else
End Select
Exit Sub
Fin:
End Sub
 
Vote positif 0 Vote négatif
Fantastique !

Derniere chose (et oui... encore !!!), je veux aussi utiliser ca dans un autre feuille, sauf que la c'est le contraire, au lieu de a1-a2-a3 qui va dans c4-c5-c6 ca part de d5-e5-f5 qui va dans d9-e9-f9.

J'ai essayé de modifier, mais je ne crois pas comprendre a 100% le code. Car quand j'entre une donnée dans d5, elle se copie dans d9-e9-f9... meme chose pour E5, elle se retourne tout dans d9-e9-f9

Merci encore pour l'aide, c'est tres sympa.

Désolé de pas avoir mentionner ca avant. Je croyais pouvoir trouvé par moi-meme. Mais, les joies d'etre un p'tit nouveau. Des fois j'y arrive, mais il y a des fois comme... la !
 
Vote positif 0 Vote négatif
Bonjour

j'ai modifié le code, tu peux maintenant définir facilement la cellule de destination relative à target.

A+
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Chemin As String, Nom_Fichier As String, Ref_Classeur As Variant, Cel_Dest As Range
On Error GoTo Fin
Select Case Target.Address
Case Is = Range('D5').Address, Range('E5').Address, Range('F5').Address
    
    'définition de la cellule cible par rapport à Target
    Set Cel_Dest = Cells(Target.Row + 4, Target.Column)
    
    Chemin = ActiveWorkbook.Path & '\\'
    Nom_Fichier = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, '.') - 3)
    Ref_Classeur = Right('0' & Target.Value, 2)
    If Not (Dir(Chemin & Nom_Fichier & Ref_Classeur & '.xls') = '') Then
        Cel_Dest.Formula = '='' & Chemin & '[' & Nom_Fichier & Ref_Classeur & '.xls]Feuil1'!B8'
    Else
        Cel_Dest.Value = Application.InputBox(prompt:='Le classeur ' & Nom_Fichier & _
        Right('0' & Ref_Classeur, 2) & '.xls n'existe pas' & Chr(10) & 'Entrez une valeur !', _
        Default:=Cel_Dest)
    End If
Case Else
End Select
Exit Sub
Fin:
End Sub
 
Vote positif 0 Vote négatif
Salut encore Yeahou.

J'éprouve un p'tit probleme avec mon code... y'a un calcul circulaire qui se fait. J'y ai trouvé une solution.. mais j'ai pas l'idée de comment on fait. J'explique mon probleme ici.

Lien supprimé

Merci encore

Tommy
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

T
  • Question Question
Microsoft 365 Problème de user form
Réponses
8
Affichages
241
patricktoulon
F
  • Question Question
XL 2016 recherche données et collage
Réponses
4
Affichages
220
finarobert
F
G
  • Question Question
XL 2016 Calcul en boucle de valeurs cibles
Réponses
6
Affichages
403
job75
M
  • Question Question
XL 2021 actualisation impossible d un tcd
Réponses
2
Affichages
225
Marietchikok
M
P
  • Question Question
Autres Excel 2024 - Formule "Fractionner.Texte"
Réponses
12
Affichages
181
Paulle
P
V
  • Question Question
Autres Importer des données avec condition depuis l'onglet source
Réponses
4
Affichages
687
vdudu
V
G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
320
job75
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
199
sylvanu
Y
  • Résolu(e)
XL 2016 Importer des données suivant l'ordre de passage
2 3
Réponses
32
Affichages
1 K
YGU1
Y
B
  • Question Question
XL 2019 Extraction glyphes arabe
Réponses
7
Affichages
689
bazzi
B
F
  • Question Question
Autres problème de cache de TCD menant à des données partielles
2
Réponses
20
Affichages
678
chris
S
  • Résolu(e)
XL 2021 "Blocage de la mise a jour d'une cellule"
Réponses
8
Affichages
549
Steph733
S
C
  • Résolu(e)
XL 2021 Données qui ne s'affichent pas dans un label (UserForm)
Réponses
6
Affichages
181
Constantin
C
  • Résolu(e)
XL 2019 copier des valeurs de la verticale à l'horizontale. Possible d'un coup ?
2
Réponses
20
Affichages
478
gosselien
L
  • Résolu(e)
XL 2021 importation données depuis différentes feuille suivant critère
Réponses
10
Affichages
359
lutin74330
L
M
  • Résolu(e)
Autres Faire une recherche de sous-dossiers Windows (pas de fichiers) dans un dossier précis à partir de son nom contenu dans une cellule
6 7 8
Réponses
106
Affichages
4 K
job75
  • Question Question
Microsoft 365 probleme enregistrement de 2 fichiers
Réponses
3
Affichages
113
Nain porte quoi
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
315
Nico Gre
N
N
  • Question Question
XL 2010 creer une base de donnée
2
Réponses
15
Affichages
843
n_turf
N
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
280
PR.
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…