Discussion :

[luko6]

bonjour à tous
dans mon rapport mensuel , jai besoin de plusieurs exports
ces exports sont deja sur mon bureau
je souahiterais avoir la possibilité d'automatiser cela
il faudrait que je puisse choisir avec une macro le fichier en parcourant mon disque dur par exemple (comme une fonction ouvrir basique)
et ensuite quil me copie l'export dans une feuille precise de mon rapport mensuel

en gros je voudrais ce debut de code

Code :

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

stFichier = Application.GetOpenFilename

ensuite en cliquant sur un fichier excel , il me copie la plage de la feuille qu'il contient dans une feuille déja existante dans mon fichier de travail

[aalex_38]

un exemple d'ouverture :

Code :

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

1
2
3
4
5
6
Dim QuelFichier As Variant 
 QuelFichier = Application.GetOpenFilename(Title:="Sélectionner le fichier à traiter", MultiSelect:=False) 
If VarType(QuelFichier) = vbBoolean Then 'Annulation ouverture 
      exit sub
End If 
Workbooks.Open Filename:=QuelFichier

[luko6]

merci de ton aide!

[luko6]

je me permet de reprendre la discussion car j'ai un problème sur le même sujet
je voudrais savoir le code pour fermer automatiquement sans enregistrer le fichier que je viens de sélectionner (apres avoir copier les données sur un autre classeur)

merci

[aalex_38]

Un exemple :

Code :

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

1
2
3
4
 
Dim wb As Workbook
Set wb = Workbooks.Open(Filename:=xfile)
wb.Close savechanges:=False

[luko6]

je te remercie
je n'etais pas tres loin tout compte fait
bonne journée