Macro qui s'arete à l'ouverture d'un fichier xls

[GASP]

Bonjour,

j'ai une macro qui ouvre des fichiers xls pour en extraire des données, elle fonctionne bien en mode debug, mais s'arete à l'ouverture du 1er fichier en mode "normal" ...

Cela fonctionnait bien en office 2003 ...


MsgBox ("Ouvrir le fichier Planning Type 0")
monfichier = Application.GetOpenFilename("Classeurs Excel 97 (*.xls), *.xls")
Workbooks.Open Filename:=monfichier

>>> Il s'arete la ...

NOM = ActiveWorkbook.Name
Cells.Select
Selection.Copy
Windows(RESULTAT).Activate
Sheets("Type 0").Select
Range("A1").Select
ActiveSheet.Paste
Workbooks(NOM).Close savechanges:=False, RouteWorkbook:=True


MERCI

 

[Gorfael]

Re : Macro qui s'arete à l'ouverture d'un fichier xls

Salut GASP et le forum
Utilises les balises code (#)

Cela fonctionnait bien en office 2003 ...

Et ? si le problème est du à un changement de version explique

MsgBox ("Ouvrir le fichier Planning Type 0")
    monfichier = Application.GetOpenFilename("Classeurs Excel 97 (*.xls), *.xls")
    Workbooks.Open Filename:=monfichier
'NOM = ActiveWorkbook.Name
    Cells.Copy workbooks("RESULTAT").Sheets("Type 0").Range("A1")
Activeworkbook.Close savechanges:=False, RouteWorkbook:=True
'Workbooks(NOM).Close savechanges:=False, RouteWorkbook:=True

A+