saveas workbook excel

bonjour,

je souhaite enregistrer mon dossier avec un autre nom ou sous un autre repertoire, etant novice en VBA je me suis inpiré d'un forum que j'ai trouver sur le net, voila ce que j'ai fait:

Code:

---

1 2 3 4 5 6

Dim objExcel As Object, objWorksheet As Object Set objExcel = CreateObject("Excel.Application") WordbookName= "c:\monFichier.xls" objExcel.ActiveWorkbook.PublishObjects.Add _ (Excel.xlSourceSheet, WordbookName, objWorksheet, "", _ Excel.ThisWorkbook).Publish

---

mais ça ne marche pas et j'ai l'erreur suivante, dans la derniere instruction:
erreur d'execution '91':
variable objet ou variable de bloc With non definie

quel est votre avis?

Heu beaucoup plus simple

Code:

---

ActiveWorkbook.SaveAs "c:\monFichier.xls"

---

Si ca ne fonctionne pas, lance l'enregistreure de macro et fait enregistrer sous

Merci
ça marche bien seulement, si le fichier monfichier.xls existe déjà j'obtient la boite de dialog ma demandant si je veux le remplacer! est ce qu'il ya un moyen d'eviter ça?

Salut Djawida,
Comme Krovax semble ne pas être connecté, je me permets...

Pour éviter ça tu peux utiliser SendKeys (je te laisse voir l'aide) ou DisplayAlerts (voir code ci-dessous) à mettre en début de code et à la fin pour réactiver.

Code:

---

1 2 3 4 5

Application.DisplayAlerts = False 'désactive les fenêtres d'alertes   '...Ton code   Application.DisplayAlerts = True 'Réactive les fenêtres d'alertes !! super important de bien réactiver.

---

A+

Edit: Salut Krovax, le temps d'écire la réponse et tu es connecté :ccool:

Essai avec (pas testé)

Code:

---

Application.displayalerts = false

---

Citation:

---

Envoyé par Fvandermeulen

Edit: Salut Krovax, le temps d'écire la réponse et tu es connecté :ccool:

---

Je trouve ca normale que l'on réponde même si j'ai attaqué le suivit surtout quand je n'ai pas mieux a proposer (ce qui est relativement fréquent) et c'est ce qui permet au forum d'être si réactif (enfin c'est une vision personnel des choses peut être). Après c'est a la personne qui pose la question de se débrouiller pour suivre les différente pistes proposées, faut bien les faire bosser un peu non? :mouarf:

oui Krovax, ça ma bien fait bosser :mrgreen:
la methode de Fvandermeulen marche tres bien parcontre celle aalex_38 n'a pas fonctionné

Merci à tous :ccool:

C'est la meme méthode sauf que aalex n'a pas détaillé son utilisation ;)

Citation:

---

la methode de Fvandermeulen marche tres bien parcontre celle aalex_38 n'a pas fonctionné

---

Ca alors, heureusement que Fvandermeulen etait là ;)

Citation:

---

C'est la meme méthode sauf que aalex n'a pas détaillé son utilisation

---

Alors, en bonus les modules desactive et active que j'appelle en début et en fin de procédure :

Code:

---

1 2 3 4 5

Sub Desactive() Application.DisplayAlerts = False 'Arret des alertes Application.ScreenUpdating = False 'Arret rafraichissement ecran ActiveSheet.EnableCalculation = False 'Evite le re-calcul de feuil1 End Sub

---

Code:

---

1 2 3 4 5 6

Sub Active() Application.DisplayAlerts = True ActiveSheet.EnableCalculation = True Calculate Application.ScreenUpdating = True End Sub

---