Pb macro Résolu

Question

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

michel_m · Answer

bonjour,

pour essayer d'être efficace, montres nous le bout de macro où tu vas chercher le fichier et l'onglet "toto"

leroy · Answer

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

melanie1324 · Answer

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

leroy · Answer

Super c'est nickel
Merci beaucoup

Pb macro

4 réponses

Discussions similaires

Newsletters