VBA ouverutre du fichier
Résolu/Fermé
vbadurdur
Messages postés
16
Date d'inscription
vendredi 6 février 2015
Statut
Membre
Dernière intervention
20 février 2015
-
Modifié par vbadurdur le 12/02/2015 à 14:12
vbadurdur Messages postés 16 Date d'inscription vendredi 6 février 2015 Statut Membre Dernière intervention 20 février 2015 - 12 févr. 2015 à 15:43
vbadurdur Messages postés 16 Date d'inscription vendredi 6 février 2015 Statut Membre Dernière intervention 20 février 2015 - 12 févr. 2015 à 15:43
A voir également:
- VBA ouverutre du fichier
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
- Fichier iso - Guide
2 réponses
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
12 févr. 2015 à 14:37
12 févr. 2015 à 14:37
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+
vbadurdur
Messages postés
16
Date d'inscription
vendredi 6 février 2015
Statut
Membre
Dernière intervention
20 février 2015
12 févr. 2015 à 14:46
12 févr. 2015 à 14:46
cela ne donne rien le lien. ou alors ca me ramene sur une page qui ne parle pas de tout de code VBA.
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
12 févr. 2015 à 15:13
12 févr. 2015 à 15:13
Re,
il y a eu un probleme de reponse intempestive DoctoR.Closing qui n'avait rien a faire ici
voir: f894009 12 févr. 2015 à 14:37
il y a eu un probleme de reponse intempestive DoctoR.Closing qui n'avait rien a faire ici
voir: f894009 12 févr. 2015 à 14:37
vbadurdur
Messages postés
16
Date d'inscription
vendredi 6 février 2015
Statut
Membre
Dernière intervention
20 février 2015
>
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
12 févr. 2015 à 15:43
12 févr. 2015 à 15:43
ok
12 févr. 2015 à 15:34
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")