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

  • Initiateur de la discussion Initiateur de la discussion GASP
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

GASP

XLDnaute Nouveau
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
 
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
Code:
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
861
Réponses
11
Affichages
683
Retour