besoin d'un coup de main pour importer une série de valeurs

[Byfranck]

Bonjour à tous,
la demande d'aide de cet utilisateur m'interesse: Je pensait m'en sortir avec le fichier ci-joint (j'ai CONCATER avec un num de fiche qui s'incrémente) , mais mon tableau ne s'actualise que si j'ouvre le fiches... et il y en a trop!
Ce dont j'ai besoin c'est d'importer les valeurs sans ouvrir les fiches.

toutes les infos dont j'ai besoin se trouvent à la même place dans chacune des fiches.
les fiches sont numérotées de 1 à 12.000 (1.xls , 2.xls etc...)
certaines fiches n'ont pas étées crées.

c'est un boulot que j'ai à faire qu'une seule fois ce n'est donc même s'il y a des cases qui seront remplies par un 0 parcequ'elles sont vide dans le fichier source ou que la fiche n'existe pas.. c'est pas grave!
ci-joint la structure dont j'aurais bien besoin pour pouvoir continuer

Merci d'avance pour votre aide généreuse j'en ai besoin assez vite!!😱

 

[Compte Supprimé 979]

Re : besoin d'un coup de main pour importer une série de valeurs

Salut ByFranck

Juste comme ça

la demande d'aide de cet utilisateur m'interesse

Ca veut dire que tu postes pour une demande de quelqu'un d'autre 😕

j'en ai besoin assez vite!!

Désolé, ici je trouve que l'on répond déjà suffisament vite ... rien n'est URGENT

Alors pour les miracles, s'adresser à Pope2you il pourra peut-être faire quelque chose pour toi 😎

 

[vbacrumble]

Re : besoin d'un coup de main pour importer une série de valeurs

Bonjour à tous


Je vous conseille ne pas ouvrir la pièce jointe
Sinon gare aux crampes

ByFrank : combien de fichiers liés ???
(EDITION : Au bout de 207 clic sur [Annulez] ,j 'ai la réponse )

PS: Quelqu'un connait la manip pour justement à ne pas avoir à cliquer sur Annulez n fois à l'ouverture d'un classeur avec liaisons ?

 

[Byfranck]

Re : besoin d'un coup de main pour importer une série de valeurs

Bonjour à tous


Je vous conseille ne pas ouvrir la pièce jointe
Sinon gare aux crampes

ByFrank : combien de fichiers liés ???
(EDITION : Au bout de 207 clic sur [Annulez] ,j 'ai la réponse )

PS: Quelqu'un connait la manip pour justement à ne pas avoir à cliquer sur Annulez n fois à l'ouverture d'un classeur avec liaisons ?

Oups !
désolé vbacrumble !
Quand vous ouvrez le fichier il faut répondre nom à la demande d'actualisation des liaisons.

c'est un extrait de ce que j'ao besoin de récupérer dans des fichiers dont le nom ext un chiffre qui va de 1 à plus de 12.000.

en pièces jointe un autre fichier qui n'est pas de moi donc pas (merci à kiki29) de risque de crampe !!! 😛

c'est une base qui me parait interessante mais je n'arrive pas à comprendre où ajouter le code des cellules que je veux importer et comment créer un fichier avec une colonne complète qui aurait tous les noms de fichier (de 1 à 120000 même si les fichiers sont manquant!😕

si quelqu'un comprend comment ça marche ... merci pour toute aide apportée!🙄

 

[vbacrumble]

Re : besoin d'un coup de main pour importer une série de valeurs

Re

Byfranck
Sous Excel 2000, malheureusement il n'y a pas ce genre de message

(en tout cas pas sur mon PC)

Dans le code de kiki29, c'est ici qu'il faut modifier

With ShImport
.Cells(NumeroLigne, 4) = _
ExtraireValeur(NomDossier, NomFichier, NomFeuille, [B][COLOR="Red"]"A2"[/COLOR][/B])
End With

 

[Byfranck]

Re : besoin d'un coup de main pour importer une série de valeurs

Brrr!

Rien à faire je suis dessus depuis tout à l'heure, j'avais trouvé où changer l'adresse de la cellule qui est lue, j'arrive à récupérer les valeur d'une case mais je trouve pas la solution pour avoir les 5 ou 6 autres que je voudrais extraire.
JE pense que cette macro est trop sophistiquée pour mon besoin, moi je voudrais simplement une colonne avec les noms de fichiers de 1 à 12000 et das les colonnes à côté simplement les valeurs extraites qui m'interessent du genre:
une colonne pour les C21, une autre pourC92, une autre pour C95 etc...
Et si un fichier est manquant, même si je me retrouve avec une ligne de #REF! c'est pas génant!
en plus cette "moulinette" je peux la placer dans le repertoire oùu se trouvent mes fiches .. pas besoin d'indiquer un chemin particulier

Quelqu'un à une idée?

 

[JCGL]

Re : besoin d'un coup de main pour importer une série de valeurs

Bonjour à tous,

Ne sachant pas où sont tes fichiers...
Avec le fichier déposé de Kiki29
Crée un répertoire sous C : C:\Tempo
Décompresse toute l'archive jointe dans ce répertoire

Clique sur Import de la feuille 'Import' du classeur 'Lecture'

Normalement tu as tes valeurs en D à L

A+ à tous

 

[Byfranck]

Re : besoin d'un coup de main pour importer une série de valeurs

Chapeau bas M'sieur JCGL !!

ça marche du premier coup !😛🙂🙄

un grand merci pour cet extracteur, maintenant je vais pouvoir avancer!

le top serait qu'il ne scane par le repertoire indiqué, mais qu'il remplisse ligne à ligne en commençant par un fichier dont le nom serait 1.xls et qu'il passe au suivant 2.xls, puis 3. xls etc... et qu'ils'arrête à une valeur indiquée que je pourrait introduire dans la macro.. et tout ça très important en laissant une ligne vide quand le fichier qu'il devrait lire n'existe pas ...

mais bon sinon je ferait correspondre à la main les valeurs extraîtes avec mon autre fichier.

En tout cas merci déjà pour cet Excel qui me sauve d'un Weekend de galère!

 

[JCGL]

Re : besoin d'un coup de main pour importer une série de valeurs

Bonjour à tous,

Toutes les félicitations doivent revenir à

Avec le fichier déposé de Kiki29

Je n'ai fait qu'arranger le code suivant tes demandes...

Pour ta dernière demande : Comme tu pensais y passer la fin de semaine et que te voilà libéré... Je t'invite à faire les arrangements manuellement 😛

Tu veux une ligne vide si le fichier n'existe pas : c'est simple tu n'auras pas de ligne pour ce fichier (les fichiers sont triés par ordre alphabétique : 1.xls est différent de 01.xls...)

A+ à tous

Edition : N'oublie pas les constantes à modifier ou à adapter...

Const DossierFichiers As String = "C:\Tempo" 'A adapter
Const NomFeuille As String = "Questions" 'A adapter
Const TypeFichier As String = "XLS" 'A adapter

 

[Byfranck]

Re : besoin d'un coup de main pour importer une série de valeurs

Bonjour à tous,

Toutes les félicitations doivent revenir à

Je n'ai fait qu'arranger le code suivant tes demandes...

Pour ta dernière demande : Comme tu pensais y passer la fin de semaine et que te voilà libéré... Je t'invite à faire les arrangements manuellement 😛
A+ à tous

Oui fin de weekend sauvée ... grâce à toi!
merci et ok pour la suite: je vais jouer du copier coller ... et lire les 12000 lignes😱

merci encore pour ton aide et bon weekend à toi aussi
cordialement
Franck