Discussion :

[Mammy Potter]

Bonjour à tous,

Je me permets de venir poster ici car il m'arrive une chose inexplicable...

j'ai déclaré ma variable comme suit

Code :

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

Dim nbimg As Long

C'est une variable placé en amont du début de la macro

Ensuite dans la macro, je l'initialise et je l'incrémente pour m'en servir dans le nommage de mon fichier que j'enregistre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub expdos()
 
Dim MonDossier As String
 
MonDossier = ThisWorkbook.Path & "\Export\"
 
If Len(Dir(MonDossier, vbDirectory)) = 0 Then
    MkDir (ThisWorkbook.Path & "\Export\")
End If
 
'je teste voir si la macro a déjà été lancée pour initialisé nSheet et nbimg
If exp <> "Ok" Then
    nSheet = ActiveSheet.Name
    nbimg = 0
End If
 
'c'est ici où ça bug, ça ne veut pas incrémenter nbimg mais j'ai bien la msgbox qui s'active me confirmant que je suis bien dans la condition du If
If nSheet = ActiveSheet.Name Then
    nbimg = nbimg + 1
    MsgBox nbimg & " i"
Else
    nSheet = ActiveSheet.Name
    nbimg = 0
End If
 
ActiveWindow.DisplayGridlines = False
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
 
With ActiveSheet.ChartObjects.Add(Left:=Selection.Left, Top:=Selection.Top, Width:=Selection.Width, Height:=Selection.Height)
    .Name = "ExportImage"
    .Activate
End With
ActiveChart.Paste
FichierImage = MonDossier & nSheet & "_" & nbimg & ".jpg"
ActiveSheet.ChartObjects("ExportImage").Chart.Export FichierImage
ActiveSheet.ChartObjects("ExportImage").Delete
 
Application.ScreenUpdating = True
End Sub

Vous remerciant par avance.

[Philippe Tulliez]

Bonjour,
La condition pour incrémenter étant If nSheet = ActiveSheet.Name, est-ce le cas ?
Il existe le débogage au pas à pas (raccourci clavier F8) et le point d'arrêt (F9), c'est la meilleure manière de savoir ce qui ne va pas.

[Menhir]

j'ai déclaré ma variable comme suit

Code :

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

Dim nbimg As Long

C'est une variable placé en amont du début de la macro

Tu veux dire que tu l'as déclarée hors procédure (avant le premier Sub) ?

Ensuite dans la macro, je l'initialise et je l'incrémente pour m'en servir dans le nommage de mon fichier que j'enregistre :

Et... Qu'est-ce qui pose problème ?...

[Mammy Potter]

Bonjour,
La condition pour incrémenter étant If nSheet = ActiveSheet.Name, est-ce le cas ?
Il existe le débogage au pas à pas (raccourci clavier F8) et le point d'arrêt (F9), c'est la meilleure manière de savoir ce qui ne va pas.

Oui c'est ce que j'indique avec mon MSGBOX...

Tu veux dire que tu l'as déclarée hors procédure (avant le premier Sub) ?


Et... Qu'est-ce qui pose problème ?...

Oui hors procédure (comme d'autre) car j'ai besoin qu'il garde des infos à chaque utilisation de la macro.

Le problème c'est que je n'arrive pas à incrémenter la variable nbimg

[Menhir]

j'ai besoin qu'il garde des infos à chaque utilisation de la macro.

Que se passe-t-il entre deux utilisations de cette macro ?

Où la variable exp est-elle renseignée ?

[Mammy Potter]

Que se passe-t-il entre deux utilisations de cette macro ?

En gros ma macro me permet d'enregistrer sous JPG des zones sélectionnées.

Certaines feuilles peuvent être découpées en plusieurs JPG, donc j'ai besoin que chaque image soit nommée de façon avec un indice : Feuil1_1.jpg, Feuil1_2.jpg...

Donc entre 2 exécutions de macro, mise à part une nouvelle sélection de cellule dans la même feuille ou un changement de feuille rien...

Où la variable exp est-elle renseignée ?

EUUUUUUUUUH... je reviens....

[Mammy Potter]

Que se passe-t-il entre deux utilisations de cette macro ?

Où la variable exp est-elle renseignée ?

Tu vois, quand on fait 2000000 choses à la fois, on passe à côté d'une évidence...

Merci Menhir de m'avoir ouvert les yeux...