Discussion :

[Jeff1950]

Bonjour,
Mon problème est le suivant :

J'ai réalisé (avec mes piètres connaissances) une macro qui sauvegarde une facture dans un répertoire spécifique sous Windows XP (32bits) et EXCEL 2003 .
Il fonctionne très bien !

Je suis passé à Windows 7 Ultimate (64bits) et Office 2010.
La macro se déroule très bien jusqu'au moment de sauvegarder le fichier dans le répertoire où je désire le mettre. Là, il me retourne une erreur.

Après bien des recherches, je ne trouve pas la solution. Quelqu'un peut-il m'aider ?

Ci-dessous le bout de programmation incriminé (en rouge gras, la ligne qui bloque) :

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
' Sauvetage du nouveau fichier dans le répertoire « C:\Facture »
' de l'ordinateur de base par le réseau
  Workbooks(NouveauClasseur).Sheets(Onglet1).Activate
         
' Sélection de la feuille « Facture » dans le modèle de base
  Workbooks(ModèleGen).Sheets(Onglet1).Activate
 
' Dévérrouillage de la feuille « Facture » -> Onglet 1
      With Worksheets(Onglet1)
          .Unprotect ("1")
      End With
          
      Nom_facture = "Facture-" & [E19] & " - " & [T10]
   Workbooks(NouveauClasseur).Activate
   
      ActiveWorkbook.SaveAs Filename:=RepSauve & Nom_facture
      MsgBox Nom_facture & " sauvegardée !"
      
' Sélection de la feuille « Facture »
      Sheets(Onglet1).Activate

J'ai essayé de supprimer « RepSauve & », cela fonctionne, mais le programme met le fichier dans « Mes documents »

[arosec]

Bonsoir,
Quel est le n° de l'erreur?
N'y aurait il pas un problème d'autorisation (sécurité) sur le dossier?

[Philippe Tulliez]

Bonsoir,

J'ai essayé de supprimer « RepSauve & », cela fonctionne, mais le programme met le fichier dans « Mes documents »

Très bien mais tu nous montres ton code et nulle part je ne vois comment est alimentée cette variable RepSauve.
Difficile ainsi de savoir pourquoi quand tu la supprime de la ligne ActiveWorkbook.SaveAs Filename:=RepSauve & Nom_facture cela fonctionne (bien sûr pas dans le bon répertoire). Peut-être cette variable est vide.
As-tu placer un debug.print RepSauve juste avant cette ligne ou un espion pour en connaître la valeur.

[Jeff1950]

Bonsoir à vous et merci de bien vouloir vous pencher sur mon problème.

Suite à vos demandes, L'initialisation des variables :

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
 
Dim RepSauve, RepModèle, ClasseurRés As String
Dim NouveauClasseur, ModèleGen As String
Dim Onglet1, Onglet2, Onglet3, Onglet4, Onglet5, Onglet6 As String
 
' Définition des variables
 
RepModèle = "\\JEFF-PC\Procédures\"
RepSauve = "\\JEFF-PC\Facture\"
 
ModèleGen = "Facture-01.xls"
ClasseurRés = "Facture-res.xls"
Rep_Mod_gen = RepModèle & ModèleGen
Nom_facture = "Facture-"
Onglet1 = "Facture"
Onglet2 = "Codes"
Onglet3 = "BV Canon"
Onglet4 = "BV DCP-9045"
Onglet5 = "Intro"
Onglet6 = "Récap"

Le travail se fait correctement, il ouvre un nouveau classeur, prend son nouveau nom « Facture-10095 - Tartenpion », elle est ouverte à l'écran.
C'est à partir de là qu'Excel semble tourner en rond à chercher le répertoire où aller, il affiche dans la barre d'état qu'il cherche le répertoire, puis il affiche l’erreur suivante :

Erreur d'exécution '1004':
La méthode 'SaveAs' de l'objet '_workbook' a échoué.

Pour ce qui est de la variable, elle contient :

RepSauve = "\\JEFF-PC\Facture\"

Si vous désirez la totalité du programme, je le poste volontiers en MP