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

JCGL

XLDnaute Barbatruc

• 31 Janvier 2015

• #2

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

Bonjour à tous,

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

A+ à tous

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 31 Janvier 2015

• #3

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 !

 

Vote positif 0 Vote négatif

M

Moi_Bis

XLDnaute Nouveau

• 31 Janvier 2015

• #4

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 31 Janvier 2015

• #5

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

Bonjour à tous,

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

A+ à tous

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Janvier 2015

• #6

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

 

Vote positif 0 Vote négatif

M

Moi_Bis

XLDnaute Nouveau

• 1 Février 2015

• #7

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.

 

Vote positif 0 Vote négatif

M

Moi_Bis

XLDnaute Nouveau

• 1 Février 2015

• #8

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.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 1 Février 2015

• #9

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

 

Vote positif 0 Vote négatif