Probleme d'enregistrement et d'ecrasement fichier via vba

Résolu
vbadurdur Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   -  
vbadurdur Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,



Bonjour,

je ne trouve pas le code pour pouvoir effectuer ce qu'il y d'indiquer 'a faire' dans ma fenetre VBA: pourrait on m'aider?
ci joint macro.
.

Sub macroslaannulation()
'
' macroslaannulation Macro
'
'les Msgbox avec test servent au dev et seront à supprimer

Application.ScreenUpdating = False


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

' a faire :
'il faut enregistrer ou copier le fichier selectionné (monFichier) en écrasant le fichier Récap dans le dossier du fichier synthèse
'ne fonctionne pas pour l'instant ....
Workbooks(monFichier).SaveCopyAs (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 :
'il faut enregistrer ou copier le fichier selectionné (monFichier) en écrasant le fichier Stat dans le dossier du fichier synthèse
'
Application.ScreenUpdating = True

'
End Sub

Cordialement
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Les fichiers que vous selectionnez sont des fichiers excel ??
0
vbadurdur
 
Oui.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > vbadurdur
 
Re,

'choix fichier 
    monFichier = Application.GetOpenFilename("Fichiers Recap(*.xls),*.xls")
    
    'copie
    FileCopy monFichier, racine & "\recap.xls"


meme chose pour Stat
0
vbadurdur Messages postés 16 Date d'inscription   Statut Membre Dernière intervention  
 
merci cela fonctionne
0