Pb macro
Résolu
leroy
-
leroy -
leroy -
Bonjour,
J'ai une macro qui ouvre un certain de nombre fichier excel et dans lesquels elle copie des informations. Le problème que je rencontre est que la macro va chercher dans des onglets qui porte un certain nom "Toto" et que dans certain fichiers l'onglet de ce nom n'existe pas. Je voudrai savoir comment dire à la macro que lorsqu'elle ouvre le fichier et qu'elle ne trouve pas l'onglet qui porte le nom "toto" elle passe au suivant fichier.
Merci de votre aide
J'ai une macro qui ouvre un certain de nombre fichier excel et dans lesquels elle copie des informations. Le problème que je rencontre est que la macro va chercher dans des onglets qui porte un certain nom "Toto" et que dans certain fichiers l'onglet de ce nom n'existe pas. Je voudrai savoir comment dire à la macro que lorsqu'elle ouvre le fichier et qu'elle ne trouve pas l'onglet qui porte le nom "toto" elle passe au suivant fichier.
Merci de votre aide
Configuration: Windows XP Internet Explorer 7.0
4 réponses
-
bonjour,
pour essayer d'être efficace, montres nous le bout de macro où tu vas chercher le fichier et l'onglet "toto" -
Workbooks.Open Filename:="Y:\Titi\Tata.xls"
Sheets("Toto").Activate
Range("B12:AF50").Select
Selection.Copy
Windows(fichier de récupération).Activate
Sheets("Toto détail").Activate
Range("C2:AG40").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Merci de votre aide -
Bonjour,
il faut que tu intègres ce bout de code :
for i = 1 to worksheets.count
if sheets(i).name = "toto" then
'fais les actions à mener
end if
next i
ce devrait donner ca :
Workbooks.Open Filename:="Y:\Titi\Tata.xls"
for i = 1 to worksheets.count
if sheets(i).name = "toto" then
Sheets("Toto").Activate
Range("B12:AF50").Select
Selection.Copy
Windows(fichier de récupération).Activate
Sheets("Toto détail").Activate
Range("C2:AG40").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
end if
next i -
