saveas workbook excel

**Djawida** · 01/07/2009, 09h04

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

**Krovax** · 01/07/2009, 09h18

Heu beaucoup plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs "c:\monFichier.xls"

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

**Djawida** · 01/07/2009, 09h31

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?

**Fvandermeulen** · 01/07/2009, 09h47

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

**Krovax** · 01/07/2009, 10h03

Envoyé par Fvandermeulen

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

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?