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) :
J'ai essayé de supprimer « RepSauve & », cela fonctionne, mais le programme met le fichier dans « Mes documents »
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
Partager