Discussion :

[Jeff1950]

Bonjour,
Voilà, j’ai deux fichiers.
Le premier est un fichier modèle « .xltm » dans lequel, j’ai édité une macro « essai_fermeture » dans un module.
Pour l'envoi, j'ai dû le renommer en « .xlsm », il faut le renommer en « .xltm », sinon cela ne va pas fonctionner.
Le second, un fichier contenant d’autres macros, celui-là est un « .xlsm », il s’intitule « essai-transfert » où les données doivent être inscrites.
Au départ de la procédure les 2 fichiers sont ouverts.
Attention !!! Dans la macro complète, je fais un transfert de données, là aucun problème, les données y figurant ne seront pas traitées.
C’est la fermeture qui en pose un.
Dans le premier fichier, il y a un appel à la macro par un double-clic sur la cellule « J1 » intitulée « EG ».
Dans le premier fichier sous « ThisWorkbook », je contrôle si le fichier existe ou pas.
Dans le premier fichier sous « module 2 » se trouve la macro.
Le code de cette macro ne fonctionne pas comme je le désire. Je voudrais quelle referme le premier fichier « essai fermeture », celle qui comprend la macro.
Lorsque je le fais en pas à pas cela fonctionne très bien, mais lorsque je le fais en « double-cliquant » sur la cellule « EG », elle m’inscrit un message d’erreur « La mémoire disponible est insuffisante … ».

Qu’est-ce que je ne fais pas juste ?
Voulez-vous que je développe le code ici ou les fichiers joints sont-ils suffisants ?

[licardentaistor]

je n'ai pas ce pb sur mon poste.

[Jeff1950]

je n'ai pas ce pb sur mon poste.

Salut, avec l'essai des deux fichiers que j'ai joint ?

[Jeff1950]

Je pense que personne ne répond parce que j'ai joint des fichiers.
Donc, je vais recommencer à zéro sans ajouter ces fichiers.
Bonjour,
Voilà, j’ai deux fichiers.
Le premier est un fichier modèle « .xltm » dans lequel, j’ai édité une macro « essai_fermeture » dans un module.
Pour l'envoi, j'ai dû le renommer en « .xlsm », il faut le renommer en « .xltm », sinon cela ne va pas fonctionner.
Le second, un fichier contenant d’autres macros, celui-là est un « .xlsm », il s’intitule « essai-transfert » où les données doivent être inscrites.
Au départ de la procédure les 2 fichiers sont ouverts.
Attention !!! Dans la macro complète, je fais un transfert de données, là aucun problème, les données y figurant ne seront pas traitées.
C’est la fermeture qui en pose un.
Dans le premier fichier, il y a un appel à la macro par un double-clic sur la cellule « J1 » intitulée « EG ».
Dans le premier fichier sous « ThisWorkbook », je contrôle si le fichier existe ou pas.
Dans le premier fichier sous « module 2 » se trouve la macro.
Le code de cette macro ne fonctionne pas comme je le désire. Je voudrais quelle referme le premier fichier « essai fermeture », celle qui comprend la macro.
Lorsque je le fais en pas à pas cela fonctionne très bien, mais lorsque je le fais en « double-cliquant » sur la cellule « EG », elle m’inscrit un message d’erreur « La mémoire disponible est insuffisante … ».



Qu’est-ce que je ne fais pas juste ?

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub essai_fermeture()
'
' Chemin du fichier :
' Nom du fichier :                     Module 2
' Saisie du Nom du fichier à exporter
 
 Dim Trans As Variant
 Dim Tab_date()
 
 Rep = "F:\documents\excel\foe\"
 
' Suppression de l'affichage pendant le traitement
  Application.ScreenUpdating = False
 
' Normallement ce fichier est déjà ouvert
  Workbooks.Open (Rep & "essai-transfert.xlsm")
 
' Changement de fichier : Appel ddu fichier « essai-transfert.xlsm »
  Workbooks("essai-transfert.xlsm").Sheets("forme").Activate
  ActiveSheet.Unprotect
  Range("B1").Select
  ActiveSheet.Protect
  Application.EnableEvents = False
 
' Activation et suppression du fichier « essai de fermeture (1).xlsx »
  Workbooks("essai-de-fermeture1").Activate
  ActiveWorkbook.Close SaveChanges:=False
 
End Sub