.Export et variable

[Temjeh]

Bonjour

J'ai un prob avec ceci:

i = InputBox(prompt:='Entrer le nom du gif ', Title:='New')

...bla bla

.Export 'C:\\Documents and Settings\\Claude\\Bureau/i', 'gif'

Il ne sauvegarde pas sous la valeur de i

Merci beaucoup

Temjeh

 

[MichelXld]

bonsoir Temjeh

tu peux essayer

.Export 'C:\\\\\\\\Documents and Settings\\\\\\\\Claude\\\\\\\\Bureau\\\\\\\\' & i , 'gif'


bonne soirée
MichelXld

 

[Temjeh]

Merci Michel et je pense que c'est toi qui m'avait justement donné ceci:

Option Explicit

Private Declare Sub keybd_event Lib 'user32' ( _
ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

Private Declare Function ShellExecute Lib 'shell32.dll' Alias 'ShellExecuteA' _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub Macro1()
Dim i
i = InputBox(prompt:='Entrer le nom de la feuil ', Title:='New')
Application.ScreenUpdating = True
Selection.Name = 'Temp'
With ActiveSheet.ChartObjects
With .Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export 'C:\\monImage.gif', 'gif'
'Je veut mettre ceci
'.Export 'C:\\Documents and Settings\\Claude\\Bureau\\' & i, 'gif'
End With.Delete
End With
ActiveSheet.Shapes('Temp').Delete
Application.ScreenUpdating = True

End Sub

Merci beaucoup^

Temjeh

 

[Temjeh]

Encore-moi

Il n'y a pas d'objet car je copie et colle une image à la main en A1 et en suite ...macro1

Merci de m'aider

Temjeh

 

[Temjeh]

Merci à tous

J,ai enfin trouvé après 1h d'essaie avec ou sans '', acvec i pas de .gif, avec .gif

voici la ligne:

.Export ActiveWorkbook.Path & '\\' & i & '.gif', 'gif'

Merci

Temjeh