Problème d'enregistrement de fichier ????

Moi_Bis

XLDnaute Nouveau
Bonjour à tous .....

J'ai un petit soucis. J'ai créé un fichier sous 2003 au sein de mon entreprise. Une ligne de code en VBA permet d'enregistrer ce fichier qui est en lecture seule avec le nom Matinée suivi de la date.


Ils sont passé à excel 2010 et depuis cela ne fonctionne plus.

Voilà la ligne de code ==> ActiveWorkbook.SaveAs "C:\Users\Franck\Desktop\Matinée\Matinée" & Format(Date, "ddmmyyyy") & ".xls"


Je tiens à préciser que cette ligne fonctionne parfaitement sur mon ordi muni de windows 8 et excel 2010.

Par contre au boulot avec windows 7 et excel 2010, ça ne fonctionne pas ??????

Je remercie à l'avance toute personne me venant en aide.

A ++
 

JCGL

XLDnaute Barbatruc
Re : Problème d'enregistrement de fichier ????

Bonjour à tous,

Peux-tu essayer en remplaçant ".xls" pas ".xlsm" ?

A+ à tous
 

chris

XLDnaute Barbatruc
Re : Problème d'enregistrement de fichier ????

Bonjour

Il existe bien un dossier C:\Users\Franck\Desktop\Matinée\ au boulot ?

Quel est le message d'erreur renvoyé par VBA ?

Edit : Coucou JCGL :). Bien vu !
 

Moi_Bis

XLDnaute Nouveau
Re : Problème d'enregistrement de fichier ????

Merci à vous de répondre aussi rapidement

oui le fichier existe. Modifié au niveau du nom, c'est tout.

Le message d'erreur est : erreur d'execution 1004
 

JCGL

XLDnaute Barbatruc
Re : Problème d'enregistrement de fichier ????

Bonjour à tous,

Cette erreur est souvent générée par un chemin indisponible.

A+ à tous
 

Staple1600

XLDnaute Barbatruc
Re : Problème d'enregistrement de fichier ????

Bonsoir à tous, chris, JCGL

En complément de ce qui a déjà été dit:
Puisque tu parles de deux PC distincts, pour que le chemin suivant soit valable sur les deux PC
"C:\Users\Franck\Desktop\Matinée\Matinée"
Il faut que tu ouvres une session en tant que Franck sur les deux PC.
Est-ce le cas ?

Sinon pour que ton code fonctionne quel que soit le PC tu peux modifier ainsi
NB: Il faut évidemment que le dossier Matinée existe.
Code:
Sub MacroSave()
Dim strPath As String
With CreateObject("Wscript.Shell")
strPath = .SpecialFolders("Desktop") & "\Matinée\"
End With
ActiveWorkbook.SaveAs strPath & "Matinée" & Format(Date, "ddmmyyyy") & ".xls"  
End Sub

PS
: Ce code fonctionne sur un PC ou deux ou plus mais pas sur un MAC ;)
 

Moi_Bis

XLDnaute Nouveau
Re : Problème d'enregistrement de fichier ????

Merci à vous tous pour vos reponse ...

Je ne comprends ce qui se passe???

Staple1600, ton code fonctionne trés bien. Mais à la seul condition de ne pas ajouter la date ==> Format(Date, "ddmmyyyy")

Il me propose le debogage et Format est surligné. Je propose de le remplacer par Now, mais pareil.

Erreur d'execution'1004':

Merci pour votre aide.
 

Moi_Bis

XLDnaute Nouveau
Re : Problème d'enregistrement de fichier ????

Bon ben j'ai reussi à ajouter la date, mais en magouillant un poil.

Grace à Worksheet_SelectionChange, j'ai appliqué la date à une cellule, Range("G3").value = Now. J'ai ensuite remplacé Format(Date............) par Range("G3").text.

Mais si quelqu'un pouvait me dire d'où vient le soucis cité auparavant, merci à l'avance.
 

JCGL

XLDnaute Barbatruc
Re : Problème d'enregistrement de fichier ????

Bonjour à tous,

Merci de déposer le bout de code que tu as mis dans la procédure car chez moi le code de Staple160 fonctionne parfaitement.

A+ à tous
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas