Importer data depuis un fichier fermé

[Faral]

Bonsoir à tous,
je cherche une macro qui permet d'importer les données de la colonne E à partir de E3 du classeur soft vers la colonne E à partir de E3 du classeur Faral, sans toucher la mise en forme

merci pour votre assistance

 

[job75]

Bonjour Faral, bienvenue sur XLD,

Avec ou sans VBA utilisez des formules de liaison, nombreux exemples sur le forum.

A+

 

[Faral]

Bonjour job75
Merci mais peux-tu m'aider pour avoir un code qui répond à mon problème ?? Je suis nul en bva aufait

Merci

 

[job75]

Re,

Pas le temps, je dois m'en aller, je vous conseille d'utiliser le moteur de recherche du forum.

A+

 

[zebanx]

Bonjour Job75, Bonjour Faral

Ci-joint un zip avec un exemple d'importation qui devrait vous aider :
- 1 base export (feuille data)
- 1 fichier à choisir pour l'import

Et les données de la colonne depuis E3 vont s'enregistrer sur la feuille 3 du feeder à partir de E3 en copie-valeur, sans toucher à la MEF.
Le fichier d'import est refermé après exécution de la macro.

Cdlt
thierry

@job75 : journée orange ça devrait aller

 

[Faral]

Bonjour zebanx
Merci pour ta réponse mais ca n'a pas marché pour moi
Peux-tu l'appliquer sur mon exemple si c'est possible??

Merci d'avance

 

[zebanx]

Bonjour Faral,

Quelques modifications (pour copier vraiment toute la liste de E3 à la dernière ligne de "PFE" vers "Data")
J'ai mis exprès en jaune pour constater que c'est bien un copie valeur.

Cdlt
thierry

 

[Faral]

Cher zebanx,

je te remercie pour la réponse mais c'est un peu compliqué pour moi,
quand je clique sur le code il me demande de choisir l'emplacement de la base de données, ce serait mieux de le modifier pour qu'il s’exécute sans choisir l'emplacement
tu trouves pas ?

 

[job75]

Re, bonjour zebanx,

Téléchargez les 3 fichiers joints dans le même dossier (le bureau) et voyez.

A+

 

[zebanx]

Bonsoir,

L'avantage avec le GETOPENFILENAME est que tu n'as pas à lui indiquer le chemin complet de ton fichier récepteur.
Un deuxième code ici avec les deux fichiers ouverts (exporter 2).
Sinon, il faudra que tu utilises les chemins complets* des fichiers pour que la macro aille les trouver.

Cdlt,
thierry

*exemple : C:\Users\thierry\Desktop\SOFT.xls

edit : message posté en même temps que JOB75 (dont les formules sont plus directes ^^)

 

[job75]

Re,

Si l'on ne veut pas encombrer le fichier avec des valeurs zéro inutiles on utilisera :

Private Sub Workbook_Activate()
With Feuil01.[E3:E1000]
  .FormulaArray = "='" & ThisWorkbook.Path & "\[SOFT.xlsx]PFE'!E3:E1000"
  .Value = .Value 'supprime la formule
  .Replace 0, "", xlWhole 'efface les valeurs zéro
  With .Parent.UsedRange: End With 'actualise la barre de défilement verticale
End With
End Sub

Fichier (2).

A+

 

[Faral]

Bonjour Job75
je n'arrive pas à executer le code, j'ai essayé de le lier au bouton mais ça marche pas je ne sais pas pourquoi...
puis supposant que j'ai plus 1000 données dans la base de donnée le code ne va pas l'importer puisque vous mettez dans le code E3:E1000

 

[job75]

Bonjour Faral, le forum,

Bah pas besoin de bouton, si mon code est bien placé dans ThisWorkbook il s'exécute automatiquement quand on ouvre ou active le classeur.

Et c'est à vous de savoir (à peu près) le nombre maximum de lignes que peut contenir le tableau source.

Donc si la plage E3:E1000 est insuffisante augmentez-la, par exemple en mettant E3:E10000.

A+

 

[Faral]

Ah, je ne veux pas que le code s’exécute automatiquement
désolé si je suis novice mais y'a t'il pas moyen de lier le code à un bouton et l’exécuter juste quand j'ai envie de le faire et non pas automatiquement???

 

[zebanx]

Bonjour Faral, bonjour Job75

Faire attention au nom aussi du fichier ou de la feuille, à l'emplacement (feuille1), et à l'extension (xls *ou xlsm). Mais le code fonctionne bien (sûr)!.

Bonne journée
thierry

* ayant excel 2003, mes deux fichiers sont avec extension .xls.