Bonjour,

Je suis sur un projet (utilisé par plusieurs personnes) qui gère des missions d'experts.

La première partie consiste à repérer un certain nombre d'experts (de 1 à 30) correspondant à une demande de mission. Des contacts, souvent téléphoniques sont pris avec les experts et le traitement automatique est suspendu et l'état de la demande est archivé (ensemble du classeur).

 

ActiveWorkbook.SaveCopyAs ("C:\chemin du fichier et nom .xls X ").

 

1°) Je m'aperçois que le fichier .xlsX (sans macro) est plus important que le fichier .xls qui est sauvé en même temps (???),

2°) Quand j'essaie de récupérer le fichier pour continuer le traitement.

-           ou bien j'ai pris la peine de lui donner un nom différent du projet initial et je me retrouve avec 2 projets,

-           ou bien je lui ai donné le même nom et il me le refuse. J'imaginais que les feuilles de calcul du second écraseraient celle du premier (erreur !)

Workbooks.Open "C:\Documents and settings\Benchétrit Christian\Bureau\Base de données\Ecti\Gestion des mission .xlsx", 3
 

Je n'y arrive pas.

Merci de m'aider

Je pense que ton soucis est que tu n'arrive pas à manipuler la dll de control d'excel.
Fait des recherches au niveau de la conformité de ce que tu fais. C'est à dire : il faut à mon avis que tu ferme ta feuille avant de la réouvrir aussi non cela pose problème ... De plus un fichier xlsx est forcément plus petit qu'un fichier binaire...

Merci de ta répons Thot49,
C'est l'ensemble des feuilles du classeur que je sauvegarde. Je vide les feuilles. Quand l'utilisateur reprend le programme, je voudrais qu'il puisse récupérer les données du classeur  sauvé (sans macros) et qu'elles s'affichent dans le projet feuilles par feuilles.
Je n'ai peut être pas la bonne procédure ...

Donne ton code parce que c'est tout a fait faisable ...

Pour l'instant,
mon code se limite à ces 2 instructions que j'ai laissées dans le même module pour les tester + facilement

ActiveWorkbook.SaveCopyAs ("C:\chemin du fichier et nom .xls X "). Workbooks.Open "C:\Documents and settings\Benchétrit Christian\Bureau\Base de données\Ecti\Gestion des mission .xlsx", 3
 
En amont se trouve un programme de pilotage d'un logiciel sur intranet qui me donne les éléments d'un tableau qui va sur feuil3. En voilà la partie "Edition":

Sheets("Feuil3").Activate

Cells(2, 1).Select

J = 2

v = 1

Blog = 0

Plug:

UU = "A1": Call FORMATAGE(UU, 1)

'UserForm5.Hide

If NombreExperts > 30 Then ImprimNombreExpert = 30 Else ImprimNombreExperts = NombreExperts

For I = 1 To ImprimNombreExperts

If J > 99 Then L = 3 Else L = 2

If I = (6 * v) + 1 Then Stop: v = v + 1: J = J + 1: UU = "A" + Right(str(J), L): Call FORMATAGE(UU, J): J = J + 1

For K = 1 To 7

       col = col + 1: Loc = Loc + 1

 

If Profil(I, 1) = "" Then Exit For

If J >= 28 Then Blog = 2

 

   '1

       If J = 2 + ((I - 1) * 4) + (Blog * (v - 1)) And col = 3 Then Loc = Loc + 1

   '2

        If J = 2 + ((I - 1) * 4) + (Blog * (v - 1)) And col = 4 Then J = J + 1: Loc = 2: Cells(J + 1, Loc).Select

   '3

                If J = 3 + ((I - 1) * 4) + (Blog * (v - 1)) And col = 6 Then J = J + 1: Loc = 2: Cells(J + 1, Loc).Select

   '4

        If J = 4 + ((I - 1) * 4) + (Blog * (v - 1)) And col = 7 Then J = J + 1: Loc = 2: Cells(J + 1, Loc).Select

  

         Cells(J, Loc) = Profil(I, col)

 

                 If J = 7 + ((I - 1) * 4) + (Blog * (v - 1)) And col = 2 Then Loc = Loc + 1

                

 Next

 col = 0: J = J + 1: Loc = 0: Cells(J, 1).Select

 

        Next

       

        Cells(1, 1).Select

        Unload UserForm2

        Call fORMATURE

If nombreexpert < 7 Then Cells(26, 3).Value = "Nombre d'experts :": Cells(26, 4).Value = NombreExperts

If nombreexpert > 6 And NombreExperts < 13 Then Cells(52, 3).Value = "Nombre d'experts :": Cells(52, 4).Value = NombreExperts

If nombreexpert > 12 And NombreExperts < 20 Then Cells(78, 3).Value = "Nombre d'experts :": Cells(78, 4).Value = NombreExperts

If nombreexpert > 18 And NombreExperts < 27 Then Cells(104, 3).Value = "Nombre d'experts :": Cells(104, 4).Value = NombreExperts

If nombreexpert > 24 And NombreExperts < 34 Then Cells(130, 3).Value = "Nombre d'experts :": Cells(130, 4).Value = NombreExperts

 

    Sheets("Feuil3").Activate

 

ActiveWorkbook.SaveCopyAs ("C:\Documents and settings\Benchétrit Christian\Bureau\Base de données\Ecti\Gestion des mission .xls")

 

'  Effacement des contenus de feuil3

 

Workbooks.Open "C:\Documents and settings\Benchétrit Christian\Bureau\Base de données\Ecti\Gestion des mission .xls", 3

Stop

Merci