Discussion :

[DodoCanada]

Bonjour,

Cela fait quelque temps que j'essaye plusieurs choses lues sur internet et dans mon livre mais en vain.

Voici ce que je veux:
- Ouvrir mon ficher excel contenant mon code vba
- aller chercher automatiquement des données contenues dans un autre fichier excel "source"
- copier l'ensemble de ces données et les coller dans ma feuille intitulée "destination"

Voici mon code à ce jour:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub copy()
 
Workbooks("Programme.xlsm").Worksheets("destination").Cells.ClearContents ' Efface le contenu de la feuille qui va recevoir les données
Workbooks.Open Filename:="\\monchemin\fichiersource.xls" 'Ouvre le fichier Excel source
Workbooks("fichiersource.xls").Worksheets("source").Cells.copy 'Cette ligne fonctionne
 
Workbooks("Programme.xlsm").Worksheets("destination")..... 'Je ne trouve pas l'instruction pour coller la feuille que je viens de copier
 
Workbooks("fichiersource.xls").Close False 'Referme le fichier source
 
End Sub

Mes questions sont les suivantes:
1) Quelle est l'instruction à mettre pour coller les feuilles copiées ? Le code est-il optimal par ailleurs...?
2) Je souhaite dans un futur proche déployer l'outil pour plusieurs utilisateurs, existe-t-il un moyen de spécifier que la fichier source se trouve dans le même dossier que le fichier programme ? (i.e. indépendamment du poste sur lequel on utilise l'outil, dans la mesure ou les fichiers extraits se trouvent dans le même dossier avec le nom "source", excel peut aller chercher les données dans le fichier excel)

Merci d'avance pour votre aide,

Salutations canadiennes

[XLRATOR]

Bonsoir,
S'il s'agit d'un simple import de données, vous feriez mieux d'utiliser l'utilitaire de données externes, puis ce sera question d'actualisation seulement.

En fin, une idées parmi d'autres.

Salutations Algériennes
Karim