Probleme d'enregistrement et d'ecrasement fichier via vba
Résolu
vbadurdur
Messages postés
17
Statut
Membre
-
vbadurdur Messages postés 17 Statut Membre -
vbadurdur Messages postés 17 Statut Membre -
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
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:
- Probleme d'enregistrement et d'ecrasement fichier via vba
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
'choix fichier
meme chose pour Stat