en debug ça marche mais en exécution la macro s'arette aprés Workbooks.open
Que faire ? Merci
Non les fichiers que j'ouvre contiennent uniquement des données que je récupère pour concaténer dans une nouvelle feuille.
La macro marchait bien en office 2003, elle fonctionne bien en mode debug pas à pas mais pas en exécution hors du debugger ....
Merci.
michdenis
Bonjour,
Ceci fonctionne ....mais avec cette commande tu risques de rencontrer des problèmes Cells.Select Compte tenu de l'étendue de la plage.
Lorsque ton fichier est ouvert, pourquoi ne pas limiter la copie à la plage occupée
'-------------------------------------- Sub test() monfichier = Application.GetOpenFilename("(*.xls, *.xls") Workbooks.Open Filename:=monfichier NOM = ActiveWorkbook.Name Cells.Select Selection.Copy End Sub '--------------------------------------
MichD -------------------------------------------- "gasp" a écrit dans le message de groupe de discussion :
Bonjour,
j'ai une macro qui ouvre des classeurs pour en extraire des info :
en debug ça marche mais en exécution la macro s'arette aprés Workbooks.open
Que faire ? Merci
Bonjour,
Ceci fonctionne ....mais avec cette commande
tu risques de rencontrer des problèmes
Cells.Select
Compte tenu de l'étendue de la plage.
Lorsque ton fichier est ouvert, pourquoi ne pas limiter la copie
à la plage occupée
'--------------------------------------
Sub test()
monfichier = Application.GetOpenFilename("(*.xls, *.xls")
Workbooks.Open Filename:=monfichier
NOM = ActiveWorkbook.Name
Cells.Select
Selection.Copy
End Sub
'--------------------------------------
MichD
--------------------------------------------
"gasp" a écrit dans le message de groupe de discussion : fsudncoghsizCmrRRVn_vwA@giganews.com...
Bonjour,
j'ai une macro qui ouvre des classeurs pour en extraire des info :
Ceci fonctionne ....mais avec cette commande tu risques de rencontrer des problèmes Cells.Select Compte tenu de l'étendue de la plage.
Lorsque ton fichier est ouvert, pourquoi ne pas limiter la copie à la plage occupée
'-------------------------------------- Sub test() monfichier = Application.GetOpenFilename("(*.xls, *.xls") Workbooks.Open Filename:=monfichier NOM = ActiveWorkbook.Name Cells.Select Selection.Copy End Sub '--------------------------------------
MichD -------------------------------------------- "gasp" a écrit dans le message de groupe de discussion :
Bonjour,
j'ai une macro qui ouvre des classeurs pour en extraire des info :