Probléme sauvegarde fichier VBA excel
Résolu
aurelie76
Messages postés
88
Statut
Membre
-
f894009 Messages postés 17413 Statut Membre -
f894009 Messages postés 17413 Statut Membre -
Bonjour,
j'avance à pas de foumi sur mon projet, je crois bien n'avoir jamais eu autant de soucis, est ce parce queje travaille maintenant sur xl 2007 (?)
je n'arrive pas à enregistrer mes modif sur un fichier : voilà mon prog
Sub essai()
' ouverture du fichier source techno
Workbooks.Open Filename:= _
"C:\Users\Documents\Projet\source\techno.xls"
' ouverture du fichier source ini_of
Workbooks.Open Filename:= _
"C:\Users\Documents\Projet\source\ini_of.xls"
' copie de la colonne (E:E) de la feuille 1 de ini_of
Range(Cells(2, 6), Cells(Rows.Count, 6).End(xlUp)).Copy
' coller sur la feuille 1 dans la cellule (2,3) dans le fichier techno
Windows("techno.xls").Activate
Cells(2, 3).Select
ActiveSheet.Paste
Cells(1, 1).Select
' sauvegarde et fermeture de techno, essai sur 3 façon de fermer enenregistrant, rien à faire ...???
Workbooks("techno.xls").Close SaveChanges:=True ' ne fonctionne pas
'ActiveWorkbook.Close SaveChanges:=True ' ne fonctionne pas
' Application.DisplayAlerts = False
'ActiveWorkbook.Save ' ne fonctionne pas
'ActiveWindow.Close 'Windows("techno.xls")
'Application.DisplayAlerts = True
end sub
merci pour votre aide, aurelie76
j'avance à pas de foumi sur mon projet, je crois bien n'avoir jamais eu autant de soucis, est ce parce queje travaille maintenant sur xl 2007 (?)
je n'arrive pas à enregistrer mes modif sur un fichier : voilà mon prog
Sub essai()
' ouverture du fichier source techno
Workbooks.Open Filename:= _
"C:\Users\Documents\Projet\source\techno.xls"
' ouverture du fichier source ini_of
Workbooks.Open Filename:= _
"C:\Users\Documents\Projet\source\ini_of.xls"
' copie de la colonne (E:E) de la feuille 1 de ini_of
Range(Cells(2, 6), Cells(Rows.Count, 6).End(xlUp)).Copy
' coller sur la feuille 1 dans la cellule (2,3) dans le fichier techno
Windows("techno.xls").Activate
Cells(2, 3).Select
ActiveSheet.Paste
Cells(1, 1).Select
' sauvegarde et fermeture de techno, essai sur 3 façon de fermer enenregistrant, rien à faire ...???
Workbooks("techno.xls").Close SaveChanges:=True ' ne fonctionne pas
'ActiveWorkbook.Close SaveChanges:=True ' ne fonctionne pas
' Application.DisplayAlerts = False
'ActiveWorkbook.Save ' ne fonctionne pas
'ActiveWindow.Close 'Windows("techno.xls")
'Application.DisplayAlerts = True
end sub
merci pour votre aide, aurelie76
A voir également:
- Probléme sauvegarde fichier VBA excel
- Fichier bin - Guide
- Fichier epub - Guide
- Logiciel de sauvegarde gratuit - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide