VBA ouverutre du fichier
Résolu
vbadurdur
Messages postés
17
Statut
Membre
-
vbadurdur Messages postés 17 Statut Membre -
vbadurdur Messages postés 17 Statut Membre -
Bonjour,
j'ai crée la macro excel 2010 ( en copie ci apres) et j'aiemerai faire en sorte que lorsque le pop up me demande d'aller chercher le fichier, la fenetre correspondante s'ouvre directement. en fait il faut que le chemin d'éacces au fichier soit enregistrer dans la macro pour ne pas avoir a aller le chercher dans mes documents, ouvrir tel dossier puis tel dossier et enfin selectionner la feuille voulue: est ce possible?
Sub annulation()
'
' annulation macro
'
'les Msgbox avec test servent au dev et seront à supprimer
monclasseur = ActiveWorkbook.Name
racine = ActiveWorkbook.Path
'MsgBox "test 1: The path is " & racine
'--------------------- insertion du premier fichier
MsgBox ("Ajouter le fichier Récap")
monFichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")
'gestion erreur
If monFichier = False Then
Exit Sub
End If
'MsgBox "test 3 " & monFichier
'choix fichier
'copie
' a faire : OK
'il faut enregistrer ou copier le fichier selectionné (monFichier) en écrasant le fichier Récap dans le dossier du fichier synthèse
FileCopy monFichier, racine & "\recap.xls"
'
'--------------------- insertion du deuxième fichier
MsgBox ("Ajouter le fichier Stat")
monFichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")
'gestion erreur
If monFichier = False Then
Exit Sub
End If
' a faire : OK
'il faut enregistrer ou copier le fichier selectionné (monFichier) en écrasant le fichier Stat dans le dossier du fichier synthèse
'choix fichier
'copie
FileCopy monFichier, racine & "\Stat.xls"
'
'Application.AskToUpdateLinks = True
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources, Type:=xlExcelLinks
Application.ScreenUpdating = True
'
End Sub
j'ai crée la macro excel 2010 ( en copie ci apres) et j'aiemerai faire en sorte que lorsque le pop up me demande d'aller chercher le fichier, la fenetre correspondante s'ouvre directement. en fait il faut que le chemin d'éacces au fichier soit enregistrer dans la macro pour ne pas avoir a aller le chercher dans mes documents, ouvrir tel dossier puis tel dossier et enfin selectionner la feuille voulue: est ce possible?
Sub annulation()
'
' annulation macro
'
'les Msgbox avec test servent au dev et seront à supprimer
monclasseur = ActiveWorkbook.Name
racine = ActiveWorkbook.Path
'MsgBox "test 1: The path is " & racine
'--------------------- insertion du premier fichier
MsgBox ("Ajouter le fichier Récap")
monFichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")
'gestion erreur
If monFichier = False Then
Exit Sub
End If
'MsgBox "test 3 " & monFichier
'choix fichier
'copie
' a faire : OK
'il faut enregistrer ou copier le fichier selectionné (monFichier) en écrasant le fichier Récap dans le dossier du fichier synthèse
FileCopy monFichier, racine & "\recap.xls"
'
'--------------------- insertion du deuxième fichier
MsgBox ("Ajouter le fichier Stat")
monFichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")
'gestion erreur
If monFichier = False Then
Exit Sub
End If
' a faire : OK
'il faut enregistrer ou copier le fichier selectionné (monFichier) en écrasant le fichier Stat dans le dossier du fichier synthèse
'choix fichier
'copie
FileCopy monFichier, racine & "\Stat.xls"
'
'Application.AskToUpdateLinks = True
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources, Type:=xlExcelLinks
Application.ScreenUpdating = True
'
End Sub
A voir également:
- VBA ouverutre du fichier
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
2 réponses
Bonjour,
Vous n'avez pas fait la modif pour selection fichiers excel
f894009 - 10 févr. 2015 à 16:10
Re,
'choix fichier
monFichier = Application.GetOpenFilename("Fichiers Recap(*.xls),*.xls")
'copie
FileCopy monFichier, racine & "\recap.xls"
Pour positionner la boite a dialogue choix fichier sur le disque et repertoire souhaites:
positionnement disque:
positionnement repertoire:
A+
Vous n'avez pas fait la modif pour selection fichiers excel
f894009 - 10 févr. 2015 à 16:10
Re,
'choix fichier
monFichier = Application.GetOpenFilename("Fichiers Recap(*.xls),*.xls")
'copie
FileCopy monFichier, racine & "\recap.xls"
Pour positionner la boite a dialogue choix fichier sur le disque et repertoire souhaites:
positionnement disque:
ChDrive "D"avec la lettre du disque si changement de disque, si disque C pas besoin de cette instruction
positionnement repertoire:
ChDir "C:\Documents\Supplies": lettre du disque, repertoire et sous-repertoire si besoin
A+
voila ce que j'ai entre
MsgBox ("Ajouter le fichier Récap")
monFichier = Application.GetOpenFilename("Fichiers Recap(*.xls),*.xls")
'gestion erreur
If monFichier = False Then
Exit Sub
End If
ChDrive "S"
ChDir "S:\APAC FLUX SPECIALISEE\COMMUN\Anne-gabrielle\Fichier source macro\Recap"
'MsgBox "test 3 " & monFichier
'choix fichier
'copie
'il faut enregistrer ou copier le fichier selectionné (monFichier) en écrasant le fichier Récap dans le dossier du fichier synthèse
FileCopy monFichier, racine & "\recap.xls"
'ne fonctionne pas pour l'instant ....
'Workbooks(monFichier).SaveCopyAs (racine & "SaveRecap.xls")